Secara default delphi 7 setidaknya menyediakan 3 cara untuk menghubungkan aplikasi kita dengan database
- Menggunakan ADO engine
- Menggunakan db Express
- Menggunakan BDE (Borland Database Engine)
Standar DBMS
Misalkan kita belum memiliki DSN untuk aplikasi kita, maka kita bisa membuatnya, dengan cara:
- Masuk ke control panel | Administrsion tool | ODBC driver
- Klik tab system DSN
- klik tombol add
- dalam driver list, pilih SQL server ( bukan MSSQL) klik finish
- kemudian masukkan nama dari DSN yang akan kita buat, pilih servernya kemudian klik next
- pilih with SQL server autenticationàartinya verifikasi password akan dilakukan melalui SQL server. Kemudian tuliskan user dan password kita yang ada dalam SQL server, Klik next
- klik next,next,next dan test koneksi dengan klik tombol test connection
Koneksi sukses dilakukan
setelah membuat DSN kita akan membuat aplikasi untuk mengakses database dengan menggunakan DSN yang telah kita buat tadi
Membuat aplikasi
untuk mengakses datatabse kita memiliki 2 cara yaitu dengan menggunakan table dan query. Untuk bahasan yang pertama kita akan menggunakan table
- Buat project baru
- taruh komponen dari palet BDE yaitu : database dan table
- klik dua kali komponen database, maka akan ditemui window parameter dari database
- isikan box nama=koneksi
combobox driver name=SQL server (bukan MSSQL server) - isikan parameternya sbb (pada box parameter override)
Database Name : nama_database_kita (dalam hal ini ktp)
user name : user name kita di SQL server (dalam hal ini sa)
DSN ODBC : nama DSN yang baru saja kita buat (dalam hal ini myDSN)
password :
- aktifkan database pada properti connected=true
- Taruh komponen Table1 dan Query1 ke dalam form dari palete BDE
- hubungkan komponen Table1 dengan komponen database dengan cara:
Set property databasename dari komponen table pada window property.
Pilih table dari databse yang akan ditampilkan, dengan cara set property tablename dari komponen table (dalam hal ini nama tabelnya wilayah) - Kemudian untuk menampilkan data,kita membutuhkan komponen data source dari palete DataAccess, taruh di form. Set properti datasource dataset=table1
- Taruh DB grid dari palete DataControl, set properti datasource=datasource1, maka data dari table (dalam hal ini nm table adalah wilayah) akan tampil pada DBGrid
Aktifkan properti Table1 menjadi true - Tampilan dari DBgrid
Alternatif menampilkan data dengan komponen Query, caranya sbb:
- Masih dalam form yang sama, taruh komponen query dan sebuah datasource dan sebuah Dbgrid lagi
- Set properti Query databasename=databasenya(dalam hal ini adalah koneksi)
set properti Query SQL=’select kd_wilayah,nama_wilayah from wilayah’
set properti active=true - Pada Datasource2, set properti dataset=Query1, maka data tersebut akan
tampil di DBGrid yang kedua, Data yang di Dbgrid 1 dan DBGrid2 sama persis, hanya saja cara mengaksesnya yang berbeda
Catatan: penggunaan komponen tabel dan komponen Query bisa memiliki hasil yang sama, tetapi penggunaan query akan menjadi lebih fleksibel, karena semua perintah untuk berinteraksi dengan database akan di lakukan dengan SQL command line Jika kita banyak menggunakan komponen untuk mengakses database, sebaikkya penggunaan datasourcenya berbanding lurus, jik 2 query, sebaikknya kita menggunakan 2 datasource |
Contoh aplikasi yang menggunakan Query untuk berinteraksi dengan database
- taruh 2 edit dan 1 button untuk menambahkan data ke dalam databse
- klik double button1, kemudian isikan kode berikut
//perintah untuk menyisipkan data
Qery1.SQL.Clear;
Query1.SQL.text:=’insert into wilayah (kd_wilayah,nama_wilayah) values (:parKd_wilayah,:parNama_wilayah)’;
Query1.Prepare;
Query1.ParamByName(‘parKd_Wilayah).asString:=edit1.text;
Query1.ParamByName(‘parNama_wilayah).asString:=edit2.text;
Query1.ExecSQL;
//perintah untuk merefersh lagi
Query1.SQL.Clear;
Query1.SQL.Text:='select *from wilayah';
Query1.Open;
- Sekarang, Anda bisa pasang iklan disini!
- Mau Tukeran Link Dengan Blog Ini? (Pengunjung Blog Ini Lebih dari 100/hari)
- Cek Jumlah Pengunjung
|