DELPHI7 :: Koneksi Database dengan Delphi & MySQL

INSTALASI MYSQL

MySQL Server dapat didownload di http://dev.mysql.com/. Petunjuk instalasi dapat Anda lihat pada dokumentasi yang disertakan dengan file arsip (*.zip) MySQL yang Anda download. Namun jika Anda tidak mau repot, berikut saya coba menunjukkan langkah-langkah instalasi MySQL Server sebagai service di Windows XP (SP2), dengan catatan, tidak ada modifikasi konfigurasi kecuali path-path MySQL.

·Untuk menginstall MySQl Server, ekstraklah file zip hasil download ke drive C:\ sehingga folder utama menjadi C:\MySQL-x.xx.

·Kemudian masuklah ke C:\MySQL-x.xx\, cari file-file dengan ekstensi *.cnf dan hapus. Hapus juga file My.cnf di drive C:\ jika ada. Hapus juga file my.ini di folder C:\Windows jika ada. Langkah ini untuk membuang kemungkinan konflik nantinya.

·Sekarang jalankan command prompt dari menu Start>Run, ketik CMD dan enter.
Ketik C:\ dan enter.
Ketik cd C:\MySQL-x.xx\Bin dan enter.
Ketik mysqld-nt –install dan enter, untuk menginstall MySQL sebagai service.
Ketik SC start mysql untuk menjalankan MySQL Service.

·Jika semuanya berjalan lancar, kini MySQL Server telah terinstall di komputer Anda.

Untuk menguji MySQL Server, kita akan mencoba membuat sebuah database dan sebuah tabel.

·Masih di command prompt,
ketik mysql -u root dan enter untuk menjalankan MySQL Client. Secara default user pada MySQL Server adalah root dan passwordnya kosong.

·Dari konsole MySQL Client, ketik perintah-perintah berikut ini:
mysql> Create database mydata; <enter>
Query OK, 1 row affected (0.00 sec)
mysql> use mydata; <enter>
Database changed
mysql> create table teman(
-> nama varchar(30) not null,
-> alamat varchar(100),
-> telepon varchar(15)
-> ); <enter>
Query OK, 0 rows affected (0.05 sec)
Sampai di sini, Anda telah membuat sebuah database “mydata” dan sebuah tabel “teman” di dalamnya.

·OK, sekarang Anda bisa keluar dari konsole ini dengan mengetik
mysql> exit <enter>
Bye

KONEKSI DELPHI & MYSQL

Di Delphi, telah disediakan berbagai cara untuk berkomunikasi dengan MySQL Server, ada ADO/dbGo – dengan perantaraan MyODBC driver, ada juga BDE dengan memanfaatkan ODBC, ada pula dbExpress yang melakukan koneksi langsung ke Server dengan perantaraan library MySQL. Sampai nanti, yang akan kita bahas adalah dbExpress ini, sebab dbExpress adalah teknologi koneksi database asli dari Borland, dan sudah mendukung MySQL sejak Delphi 6. Meskipun demikian tidak tertutup kemungkinan bagi Anda untuk menggunakan komponen koneksi pihak ketiga dalam aplikasi Delphi Anda, seperti MyDac dan sebagainya. Jika Anda nantinya tertarik,http://www.torry.net menyediakan beragam library antarmuka Delphi – MySQL untuk Anda download.

OK, kini kita buat sebuah aplikasi baru di Delphi. Harap diingat, meski Delphi 6 sudah mendukung MySQL, namun yang saya gunakan dalam menulis posting ini adalah Delphi 2006. Kita lanjutkan dengan langkah-langkah berikut:

·Tambahkan sebuah TSQLConnection dari palette dbExpress ke form

Atur property LoginPrompt menjadi False, lewat Object Inspector

·Klik kanan pada SQLConnection1 pada form dan pilih Edit Connection Properties
Sebuah dialog Connection Editor akan ditampilkan

·Kita buat koneksi dengan mengklik tombol Add Conection
Koneksi ini bertipe MySQL dan kita beri nama DBMyData
Klik OK.
Kini kita atur property koneksi DBMyData ini seperti terlihat pada gambar berikut

·Anda bias mencoba koneksi ini dengan mengklik tanda centang di bagian atas dialog. Jika pesan yang muncul menunjukkan koneksi sukses, selamat, Anda siap berksperimen dengan Delphi & MySQL!

·Klik OK untuk menutup dialog Connection Editor

·Kembali ke form, ubah properti SQLConnection1 menjadi True, sehingga koneksi ke MySQL menjadi aktif.

·Tambahkan sebuah TSQLTable dari palette dbExpress, sebuah TDataSource, TDataSetProvider dan TClientDataSet dari palette Data Access ke form
Atur properti SQLConnection milik SQLTable1 menjadi SQLConnection1 dan properti TableName menjadi “teman”, seperti yang telah kita buat pada langkah di atas.

·Sekarang ubah properti Dataset dari DataSetProvider1 menjadi SQLTable1.
Ubah juga properti ProviderName dari ClientDataSet1 menjadi DataSetProvider1.
Terakhir, ubah properti DataSet dari DataSource1 menjadi ClientDataset1.

Dari langkah-langkah ini, kita bias melihat alur data dari server MySQL hingga ke GUI aplikasi kita dan juga sebaliknya, pada diagram berikut:


Sebenarnya, akses data dalam table MySQL dapat langsung dilakukan antara DataSource1 dan SQLTable1, tapi karena SQLTable adalah dataset unidirectional (satu arah), penggunaan data control yang multidirectional menjadi tidak berfungsi dengan baik. Contoh, DBGrid, DBNavigator.
Pergerakan kursor penunjuk record pun hanya dapat bergerak dengan arah Next() dan First. Last() dan Next() tidak didukung.
Dataset unidirectional sangat menguntungkan saat koneksi ke SQL Server (pada umunya) mengembalikan sejumlah besar data, karena menghemat memori dan trafik network.
Delphi menyediakan cara mengatasi hal ini dengan menambahkan DataSetProvider dan ClientDataset di antara kedua komponen database di atas. Dataset provider berfungsi mengontrol data dari SQLTable, dan menyimpannya sementara secara lokal, dan kemudian direpresentasikan kembali dalam bentuk dataset oleh ClientDataset.

·OK. Kini kita tambahkan sebuah DBGrid [palette Data Controls] dan beberapa buah Button hingga tampilan form menjadi seperti ini:

·Sekarang kodenya. Klik ganda Button1, yang memiliki caption “Pertama”. Ketikkan kode untuk navigasi ke data pertama

1 2 3 4

procedure TForm1.Button1Click(Sender: TObject); begin <span>   </span>ClientDataset1.First; end;

Untuk Button Sebelumnya

1 2 3 4 5

procedure TForm1.Button2Click(Sender: TObject); begin if not ClientDataset1.Bof then ClientDataset1.Prior end;

Untuk Button Setelahnya

1 2 3 4 5

procedure TForm1.Button3Click(Sender: TObject); begin if not ClientDataset1.Eof do then ClientDataset1.Next; end;

Untuk Button Terakhir

1 2 3 4

procedure TForm1.Button4Click(Sender: TObject); begin ClientDataSet1.Last; end;

Untuk Button Refresh

1 2 3 4 5

procedure TForm1.Button5Click(Sender: TObject); begin if ClientDataset1.ChangeCount>0 then ClientDataset1.ApplyUpdates(-1); end;

Untuk Button-Button lainnya dapat Anda lihat kodenya langsung pada demo program yang tersedia untuk Anda download di akhir tulisan ini.

·OK. Sekarang menampilkan data dari ClientDataset ke DBGrid. Seperti biasa, Anda cukup mengatur properti DataSource dari DBGrid1 menjadi DataSource1. Kini atur properti Active pada ClientDataset1 dan SQLTable1 menjadi True. Ubah juga properti Connection dari SQLConnection1 menjadi True.

·Jalankan program Anda.

KODE SELENGKAPNYA

Berikut kode lengkap aplikasi yang baru kita buat di atas.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89

unit umain; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, DBXpress, FMTBcd, StdCtrls, Grids, DBGrids, DB, Provider,   DBClient, SqlExpr; type   TForm1 = class(TForm)     SQLConnection1: TSQLConnection;     SQLTable1: TSQLTable;     ClientDataSet1: TClientDataSet;     DataSetProvider1: TDataSetProvider;     DataSource1: TDataSource;     DBGrid1: TDBGrid;     Button1: TButton;     Button2: TButton;     Button3: TButton;     Button4: TButton;     Button5: TButton;     Button6: TButton;     Button7: TButton;     Button8: TButton;     Button9: TButton;     Button10: TButton;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);     procedure Button4Click(Sender: TObject);     procedure Button5Click(Sender: TObject);     procedure Button6Click(Sender: TObject);     procedure Button7Click(Sender: TObject);     procedure Button8Click(Sender: TObject);     procedure Button9Click(Sender: TObject);     procedure Button10Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin   ClientDataset1.First; end; procedure TForm1.Button2Click(Sender: TObject); begin   if not ClientDataset1.Bof then     ClientDataset1.Prior end; procedure TForm1.Button3Click(Sender: TObject); begin   if not ClientDataset1.Eof then     ClientDataset1.Next; end; procedure TForm1.Button4Click(Sender: TObject); begin   ClientDataSet1.Last; end; procedure TForm1.Button5Click(Sender: TObject); begin   if ClientDataset1.ChangeCount>0 then     ClientDataset1.ApplyUpdates(-1);   ClientDataset1.Refresh; end; procedure TForm1.Button6Click(Sender: TObject); begin   ClientDataset1.Delete; end; procedure TForm1.Button7Click(Sender: TObject); begin   ClientDataset1.Append; end; procedure TForm1.Button8Click(Sender: TObject); begin   ClientDataset1.Edit; end; procedure TForm1.Button9Click(Sender: TObject); begin   ClientDataset1.Cancel; end; procedure TForm1.Button10Click(Sender: TObject); begin   if ClientDataset1.ChangeCount>0 then     ClientDataset1.ApplyUpdates(-1); end; end.

DOWNLOADDan Berikut, Anda bias mendownload MySQL Server, library LIBMYSQL.DLL yang saya gunakan dalam tulisan ini, dan demo program yang kita buat di atas.

MySQL Server – 3.79MB – sudah dimodifikasi biar rampingLibrary LibMySQL.dll letakkan ke directory System32
Contoh Aplikasi

Catatan, file-file download harus diubah ekstensinya ke .zip , sebaiknya scan dengan antivirus dulu sebelum diekstrak.