Tuesday, June 26, 2007

Koneksi database menggunakan ODBC lewat Delphi asp.net

Contoh berikut adalah sebuah fungsi bagaimana cara membangun aplikasi database menggunakan Delphi ASP.NET dengan koneksi via ODBC

Kebutuhan dasar:
Delphi 8/2005/2006
ODBC.Net, bisa didownload dari sini

unit WebService1;

interface

uses
System.Collections, System.ComponentModel,
System.Data, System.Diagnostics, System.Web,
System.Web.Services, Borland.Vcl.SysUtils, System.Data.Odbc;

............

private
{ Private Declarations }
MyConnString: string;
MyConnection: OdbcConnection;
MyException: OdbcException;

MySelectQuery: string;
MyCommand: OdbcCommand;
MyReader: OdbcDataReader;

.............

function TWebService1.Connect2DB(var Return_Msg: string): boolean;
begin
//mydb adalah nama alias database di setting ODBC yang akan kita gunakan
MyConnString:= 'DSN=mydb;UID=myuserid;PWD=mypsw';
MyConnection:= OdbcConnection.Create(MyConnString);

//create connection
try
MyConnection.Open;
Result := True;
except on MyException: OdbcException do
Return_Msg:= 'Unable to connect to database!'+MyException.get_Message;
end;
end;

end.

0 Comments: