Koneksi SQL Server di Delphi

Pada Kesempatan kali ini saya mencoba berbagi pengetahuan bagaimana caranya menghubungkan database SQL Server 5.1 di Delphi. Pertama kali yang akan kita buat adalah Datasource database melalui menu ODBC yaitu kita masuk ke Control Panel -> Administrative Tools dan pilih ODBC sehingga akan tampil menu seperti di bawah ini:

Langkah selanjutnya Pilih tombol Add dan pilih provider yang kita gunakan. Karena kita menggunakan SQL Server 5.1 dan Connector yang kita gunakan MySql Connector versi 5.1 maka pilihlah MySql ODBC 5.1 Driver seperti tampak pada gambar di bawah ini:


Selanjutnya pilih Finish dan masukkan Paramater yang berhungan dengan database yang kita buat seperti tampak pada gambar di bawah ini:

Dari sini tinggal giliran kita masuk ke Delphinya dan komponen yang kita butuhkan diantaranya ADOConnection, beberapa Textbox, Label dan button, aturlah seperti gambar dibawah ini

Sorce code sederhananya bisa dilihat seperti di bawah ini:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, DBXpress, SqlExpr, DBTables, Grids, Mask;

type
TForm1 = class(TForm)
txtserver: TEdit;
txtusr: TEdit;
txtpsw: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
Button2: TButton;
txtdb: TEdit;
Label4: TLabel;
ADOConnection1: TADOConnection;
txtport: TEdit;
Label5: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//tutup koneksi saat ini
if adoconnection1.Connected then
begin
adoconnection1.Close;
adoconnection1.ConnectionString := '';
end;
//test koneksi
adoconnection1.ConnectionString := 'DSN=db;DESCRIPTION=db'+
';SERVER=' + txtserver.Text +
';UID='+ txtusr.Text +
';PWD='+ txtpsw.Text +
';DATABASE='+ txtdb.Text +
';PORT='+ txtport.Text ;
screen.Cursor := crhourglass;
try adoconnection1.Open ;
//koneksi berhasil
screen.Cursor := crdefault;
messagedlg('Koneksi Berhasil !' , mtinformation, [mbok],0);
except
on E:exception do
begin
//koneksi gagal
screen.Cursor := crdefault;
adoconnection1.Close;
messagedlg('koneksi gagal ! ', mtinformation, [mbok],0);
end;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Close ;
end;

end.

Nah... sampai disini aku mau mencoba menampilkan isi dari tabel dari databases sql yang aku bikin. Aqu tinggal menambahkan beberapa komponen saja. Komponen yang di perlukan:
1. Datasource dari pallete DataAccess
2. AdoQuery dari pallete ADO
3. DbGrid dari menu DataControls
4. Button
5. Edit

Atur Form seperti gambar di bawah ini:


Nah untuk listing program lengkapnya sepert dibawah ini;

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, DB, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;

type
TForm2 = class(TForm)
BitBtn1: TBitBtn;
Edit1: TEdit;
DBGrid1: TDBGrid;
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation
uses Unit1;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
form1.Hide ;
DataSource1.DataSet := adoquery1;
dbgrid1.DataSource := DataSource1;
end;

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
try
with ADOQuery1 do begin
connection := form1.ADOConnection1;
Active:= true;
close;
SQL.Clear;
sql.Add(edit1.Text);
Open;
end;

except
application.MessageBox ('Sql Command anda salah',' Error');
end;

end;

end.

Artikel Terkait :
- Koneksi Query SQL Delphi dengan Zeoz Lib
- Lazzarus Platform delphi yang gratisan