Beberapa bulan yang lalu ada teman yang bertanya, bagaimana koneksi
database memakai DELPHI. Sekarang saya baru berkesempatan menjawab
(sorry kelamaan jawabnya). Disini saya coba memberi contoh pada koneksi
pada MS ACCESS, MySQL dan SQL Server. Pada setiap koneksi saya memakai
TAdoConnection. Seluruh eksekusi program bisa diletakkan di
DataModuleCreate atau FormCreate, sehingga pada saat Data Module atau
Form dibuat, koneksi database langsung dijalankan.
Koneksi Pada MS ACCESS
Nama file access: Dataku.mdb
Tempat file saya anggap satu folder dengan file exe, jadi saya mengambil nama folder dari file exe dengan perintah:
ExtractFilePath(Application.ExeName)
Agar kotak pengisian default user+password tidak muncul, kita cegah dengan:
LoginPrompt:= False;
Pada ConnectionString tuliskan baris berikut:
with AdoConnection1 do
begin
ConnectionString :=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
ExtractFilePath(Application.ExeName) + 'Dataku.mdb;Persist Security Info=False;' +
'Jet OLEDB:Database Password=123';
Name := 'Koneksi';
LoginPrompt := False;
Open;
end;
Koneksi Pada MySQL
Koneksi
dibawah ini memakai mysql connector odbc 5.1. Connector ini harus
diinstall dahulu sebelum aplikasi dijalankan. Sebagai contoh jika ingin
terhubung pada server dengan data dibawah ini:
User Name Server: AkuUser
Passwor server: Passwordku
Nama Server: Serverku
Nama Database: Databaseku
Port: 3306
Maka penulisan pada connection string-nya:
with AdoConnection1 do
begin
close;
ConnectionString :=
'Provider=MSDASQL.1;Extended Properties="DRIVER={MySQL ODBC 5.1 Driver};' +
'UID= AkuUser';' +
'PWD= Passwordku;' +
'SERVER=Serverku ;' +
'DATABASE=Databaseku;' +
'PORT=3306';
LoginPrompt := False;
end;
Koneksi Pada MS SQL Server
Pada MS SQL Server ada dua sekuriti yang biasanya digunakan:
1. SQL Server Authentication
2. Windows Authentication
Kedua
setting diatas tergantung konfigurasi pada server. Jika akan membuat
aplikasi, lebih baik user diberi kedua pilihan tersebut agar fleksibel
Pada SQL Server Authentication, ConnectionString-nya:
with AdoConnection1 do
begin
close;
ConnectionString :=
'Provider=SQLOLEDB.1;' + 'Password=' + PasswordServer + ';' +
'Persist Security Info=True;' + 'User ID=' + UserNameServer + ';' +
'Initial Catalog=' + NamaDatabaseServer + ';' +
'Data Source=' + NamaServer;
end;
Pada Windows Authentication, ConnectionString-nya:
with AdoConnection1 do
begin
Close;
ConnectionString :=
'Provider=SQLOLEDB.1;Integrated Security=SSPI;' +
'Persist Security Info=False;' + 'Initial Catalog=' + NamaDatabaseServer +
';Data Source=' + NamaServer;
end;
Koneksi Database (MS ACCESS, MySQL, MS SQL Server)
Langganan:
Posting Komentar (Atom)
Diberdayakan oleh Blogger.
0 comments:
Posting Komentar