SKIP TO MAIN CONTENT
vb6-blog.blogspot.com blog uses cookies to help google service, personalise ads, and more. By visiting us you agree with our privacy policy. For more information: Cookies Policy | Privacy Policy

Koneksi Database (ConnectionString)

Koneksi Database (ConnectionString)

Pada bahasan yang telah lalu, kita telah membahas bagaimana caranya koneksi cepat dengan ADODC. Kali ini kembali membahas koneksi database khusus menggunakan ConnectionString. Koneksi dengan metode ini lebih mengarah pada source code alias, menuliskan kode untuk koneksi database.

ConnectionString dengan ADODC1


Hal pertama yang harus dilakukan adalah, ambil control OCX ADODC1 ke form, kemudian tuliskan kode seperti berikut ini:

Sub KONEKSI_DATABASE()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\nama-databaseku.mdb"
Adodc1.RecordSource = "tabelku"
Set lblData.DataSource = Adodc1
With Adodc1.Recordset
    If .EOF Then Exit Sub
End With
End Sub

Penjelasan:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\nama-databaseku.mdb" adalah ConnectionString dimana didalamnya ada driver alias jembatan koneksi yaitu Microsoft.Jet.OLEDB versi 4.0., Sedangkan Data Source adalah yang menjadi Data utama; yaitu, database.
App.path memiliki arti bahwa database itu terletak sama dalam folder yang sama dengan file eksekusi (.exe).

Adodc1.RecordSource diisi dengan nama tabel apa yang mesti diakses atau dihubungkan. Jadi, dengan menggunakan metode ConnectionString ini, anda harus menuliskan tabelnya.
Selain itu, dapat pula menggunakan Query SQL seperti berikut ini:

Adodc1.RecordSource = "SELECT * FROM tabelku ORDER BY ID"

jadi, tidak selalu langsung menyebutkan namanya.

Selanjutnya adalah memanggil Adodc1 dan menyimpannya sementara di label Data yang dalam hal ini penulis namakan: lblData. Pemanggilan ini harus diawali oleh: SET, sehingga menjadi:

Set lblData.DataSource = Adodc1
Berikutnya adalah memeriksa apakah ada data dalam tabel tersebut atau database tersebut?

With Adodc1.Recordset
    If .EOF Then Exit Sub
End With

Kode diatas memiliki makna sbb:
"Dengan menggunakan Adodc1, cek apakah ada data dalam database,
Jika tidak ada maka hentikan pemanggilan data,
selesai."

Bagaimana Cara Menggunakan blok kode koneksi diatas dalam Visual Basic 6.0 ???, Simaklah Tutorial Lengkap berikut ini!

Misalnya dalam database yang bernama: dataku.mdb terdapat 1 buah tabel dengan rincian sbb:


ID
No_Bukti
Jenis_Barang
Harga
1
401 Monitor LCD
2.000
2
402 Keyboard
400

A. Menambah & Menyimpan Data ke Database.

Private Sub cmdTambahSimpan_Click()
KONEKSI_DATABASE 'Lihat blok kode koneksi_database diatas. Disini kita harus memanggilnya.
With Adodc1.Recordset
       .Find "No_Bukti='" + txtNoBukti.Text + "'",,AdSearchForward,1
       If .EOF Then 'Jika No Bukti tersebut tidak ditemukan maka tambah No Bukti yang baru.
              .AddNew
                        !No_Bukti = txtNoBukti.Text
                        !Jenis_Barang = txtJenBarang.Text
                        !Harga = txtHarga.Text                       
              .Update
              MsgBox "Data Transaksi Baru Berhasil Disimpan!",vbInformation, "Simpan"
              KONEKSI_DATABASE
              Kosongkan_Form 'bila ada
              Exit Sub
       Else
               strTanya = MsgBox ("Nomor Bukti tersebut sudah ada! Apakah anda ingin merevisinya?",vbQuestion + vbYesNo," Konfirmasi")
               If strTanya = vbYes Then
                        REVISI_DATABASE 'Blok kode khusus untuk Merevisi.
                        Exit sub
               Elseif strTanya = vbNo Then Exit Sub
               End if
       End If
End With
End Sub

Catatan:
Untuk merevisi data, aturan mainnya sebagai berikut:
Bila data No_Bukti ditemukan didatabase, maka pada saat klik vbYES, data harus ditampilkan pada Form. Untuk menampilkan data tersebut, contoh scriptnya sebagai berikut:


       If NOT .EOF Then 'Jika No Bukti tersebut ditemukan di database atau pernah terjadi.
                   txtNoBukti.Text = !No_Bukti
                   txtJenBarang.Text = !Jenis_Barang
                   txtHarga.Text = !Harga                  
                   txtNoBukti.SetFocus
                   Exit Sub
        End If


B. Meng-Update Data.



Untuk meng-Update data hasil revisi, cukup menghilangkan syntax AddNew pada kode diatas, sehingga menjadi:-

Private Sub cmdUpdate_Click()
KONEKSI_DATABASE 'Lihat blok kode koneksi_database diatas. Disini kita harus memanggilnya.
With Adodc1.Recordset
       .Find "No_Bukti='" + txtNoBukti.Text + "'",,AdSearchForward,1
       If .EOF Then 'Jika No Bukti tersebut tidak ditemukan maka tambah No Bukti yang baru.
                        !No_Bukti = txtNoBukti.Text
                        !Jenis_Barang = txtJenBarang.Text
                        !Harga = txtHarga.Text                       
              .Update
              MsgBox "Data Transaksi Baru Berhasil Di-Update!",vbInformation, "Update"
              KONEKSI_DATABASE
              Kosongkan_Form 'bila ada
              Exit Sub
       End If
End With
End Sub

C. Menghapus Data berdasarkan No_Bukti.

Selanjutnya cara menghapus 1 baris data di tabel dengan menggunakan syntax DELETE.
Contoh:

Private Sub cmdHapus_Click()
KONEKSI_DATABASE 'Lihat blok kode koneksi_database diatas. Disini kita harus memanggilnya.
With Adodc1.Recordset
       .Find "No_Bukti='" + txtNoBukti.Text + "'",,AdSearchForward,1
       If .EOF Then 'Jika No Bukti tersebut tidak ditemukan.
              MsgBox "Data Transaksi " & txtNoBukti.Text & " Tidak Ditemukan!",vbInformation, "Not Found"
              Kosongkan_Form 'bila ada
              Exit Sub
       Else 'Jika ditemukan, maka hapus!
              .Delete
              MsgBox "Data berhasil dihapus!",vbInformation,"Hapus"
              KONEKSI_DATABASE
              Kosongkan_Form 'bila ada
              Exit Sub
       End If
End With
End Sub



Newer Post Lihat Artikel vb6 Sebelumnya *) +vb6.vbp
Back to vb6 Homepage