Kali ini kita akan membahas cara koneksi aplikasi delphi yang kita buat dengan database menggunakan file Universal Data ling yang bereksetensi .udl
File ini disediakan oleh Microsoft berfungsi sebagai jembatan untuk menghubungkan aplikasi yang kita buat dengan engine database. Secara default file ini mendukung bebrapa engine yang dibuat oleh Microsot seperti Microsoft Office, SQL Server dll. Namun Demikian kita juga dapat menggunakan Engine database lain seperti Mysql, SQL Lite melalui driver ODBC.
File ini berguna saat kita akan mendistribusikan aplikasi yang telah kita buat. Sehingga setting koneksi database tidak perlu dilakukan di aplikasi namun cukup dilakukan di file ini.
Secara default file ini terdapat di folder C:Program FilesCommon FilesSystemOle DBData Links. Copy salah satu file tersebut ke folder aplikasi yang kita buat. Ubah nama file tersebut misalnya menjadi koneksi.udl
Selanjutnya kita akan melakukan setting koneksi database pada file .udl. Pada Tutorial kali ini kita akan mencoba koneksi dengan menggunakan database pada tutorial Koneksi Delphi ke database MySql. Pada tutorial ini kita menggunakan database MySQL, nama connection belajar dan nama database latihan.
Buka file koneksi.udl. Selanjutnya pilih Microsoft OLE DB Provider for ODBC Drivers lalu klik OK.
Lalu pada kolom Use datasourcename pilih belajar, pada kolom enter the initial catalog to use pilih latihan. Lalu klik Test Connection.
Jika Koneksi berhasil maka akan tampil pesan berikut
Selanjutnya kita akan mengatur koneksi tersebut di aplikasi Delphi. Pada Tutorial ini kita menggunakan komponen ADOConnection yang diletakkan pada sebuah DataModule. Buka Properti DataModule, lalu pada event OnCreate masukkan kode berikut:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
var conString, conString1 : string; begin pathProg:=ExtractFilePath(ExtractFileDir(ParamStr(1))); if dm.ADOConnection1.Connected then begin dm.ADOConnection1.Connected:=false end; if not dm.ADOConnection1.Connected then try conString:='FILE NAME='+pathProg+'koneksi.udl'; dm.ADOConnection1.ConnectionString:=conString; dm.ADOConnection1.Connected:=true; except MessageDlg('Aplikasi tidak dapat dijalankan'+#10#13+'Koneksi Gagal karena setingan database anda masih ada yang salah ! hubungi admin.',mtInformation,[mbOK],0); dm.ADOConnection1.Connected:=false; Application.Terminate; end; end; |