Untuk dapat mengakses suatu database dari visual basic, Anda harus membuat koneksi ke database tersebut. Visual basic dapat menangani berbagai database, teks bakan worksheet excel. Terdapat beberapa cara yang tersedia untuk itu sesuai dengan database yang digunakan.
Cara 1. Menggunakan Object ADO
Anda dapat menggunakan icon Adodc (Microsoft ActiveX Data Objects Data Control) pada toolbox. Jika pada toolbox tidak terdapat icon Adodc, Anda dapat menambahkannya dengan memilih menu Project, Components (Ctrl+T) lalu beri tanda pilih pada Microsoft ADO Data Control (OLEDB) dan klik Apply. Sekarang kita akan mencoba mengaitkan database Ms. Acess anda. Untuk itu, lakukan langkah-langkah sebagai berikut:
Pilih menu File lalu New.
Pilih VB Enterprise (Professional) Edition Controls.
Klik OK.
Klik ganda pada folder Forms pada jendela proyek lalu klik ganda pada Form 1 sampai muncul tampilan form.
Klik icon Adodc pada toolbox.
Klik dan seret pada jendela form.
Tentukan properti data sebagai berikut:
Name db Database_Anda
Caption Nama Database Anda
EOFAction 2
Tentukan properti ConnectionString dengan cara mengklik tombol … pada kolom ConnectionString.
Pilih OptionButton pada Use Connection String lalu klik Build.
Pilih Microsoft Jet 4.0 OLEDB Provider lalu klik Next.
Pilih (dengan mengklik tombol …) atau ketik nama database yang dipakai pada kolom Select or enter a database name.
Klik Test Connection jika perlu, lalu kllk OK dua kali sampai tampilan kembali ke jendela Form.
Tentukan properti RecordSource dengan cara mengklik tombol pada kolom RecordSource.
Pada kolom Command Type pilih 2-adCmdTable. Setelah kolom ini diisi, maka Anda akan dapat mengisi kolom Table or Stored Procedure Name. lsilah dengan memilih tabelnya.
Klik OK.
Simpan form dan proyek dengan nama terserah anda.
Cara 2: Mendeklarasikan Objek Ado
Object ado dapat dideklarasi melalui coding. Tiga object bawaan ADO dalam pengembangan aplikasi adalah
1. Object Connection
untuk menangani koneksi antara program dengan sumber data atau server. Deklarasi dapat bersifat lokal maupun global serta dapat diletakan pada level form, modul atau class modul. ADO paling umum membuka suatu koneksi dengan menggunakan obyek Connection Open metoda. Sintaks untuk Metoda Open ditunjukkan sebagai berikut:
Dim connection as New ADODB.Connection
connection.Open ConnectionString, UserID, Password,OpenOptions
Dim recordset as ADODB.Recordset Set
recordset = New ADODB.Recordset
recordset.Open Source, ActiveConnection, CursorType, LockType,Options
Contoh :
Deklarasi object Connection:
Dim cn As New ADODB.Connection
atau
Public cn As New ADODB.connection
Selanjutnya mengalokasikan memori untuk onject connection sbb:
Set cn = New ADODB.Connection
Kemudian isi property object connection tersebut sebagai berikut:
(Contoh berikut adalah property untuk MSSQL Server)
cn.connectionString = “Provider=SQLOLEDB;” & _
”Server=NamaServer; ” & _
“Initial catalog= NamaDatabaseAnda” & _
“user Id = terserah” _
“Password=terserah”
cn.Open
atau
koneksi = “Perovider=SQLOLEDB;” & _
”Server=NamaServer; ” & _
“Initial catalog= NamaDatabaseAnda” & _
“user Id = terserah” _
“Password=terserah”
cn.Open koneksi
Jika tidak ingin menggunakan authentik pada proses koneksi gunakan cara berikut:
koneksi = “Provider=SQLOLEDB.1;” & _
“Integrated Security Info=False;” & _
“Data Source = NamaServer” cn.Open koneksi
”Set cn = Nothing”
2. Object Command
Digunakan untuk perintah SQL ke sumber data atau server. Deklarasi object command sebagai berikut:
Dim CmdAnda As New ADODB.Command
atau
Public Cmd as New ADODB.Command
selanjutnya alokasikan memori untuk object Command sbb:
Set CmdAnda = New ADODB.Command
Kemudian Isi property object command
CmdAnda.ActiveConection = cn
CmdAnda.CommandText = “select * from tabel_anda”
CmdAnda.CommandType = adCmdText
3. Object Recordset
Digunakan sebagai penampung hasil eksekusi dalam bentuk tabel. Deklarasi object record sebagai berikut:
Dim rsAnda As New ADODB.Recordset
atau
Public rsAnda As New ADODB.Recordset
selanjutnya alokasikan memori untuk object recordset sebagai berikut:
Set rsAnda = New ADODB.recordset
lalu isikan property object record set
rsTabelAnda.CursorType = adOpenDynamic
rsTabelAnda.LockType = adLockOptimistic
rsTabelAnda.Open cmdTableAnda
Data Control
Visual Basic terus berkembang dalam pengembangan general purpose Windows, tetapi kemampuan database tidaklah bagian murni dari desainnya. Data Control, Visual Basic menambahkan, membuat Visual Basic suatu alat yang jauh lebih tangguh untuk pembuatan pemrograman database.
Data Control memberikan kemudahkan untuk mendapat data ke dalam program anda. Anda dapat dengan mudah mengaitkan suatu file database, lalu mengaitkan data lainnya untuk memindahkan data dari database ke aplikasi anda dan sebaliknya. Data Control pada suatu database dan menetapkan tabel mana yang akan diambil, lalu mengaitkan ke pengendali Data Control, menetapkan field yang akan ditampilkan. Pada waktu itu aplikasi anda dapat mengambil, menampilkan, memperbaharui dan membuat database merekam.
0 komentar
Posting Komentar