Selasa, 16 April 2013

Cara Koneksi Visual Basic 6.0 dengan Database Acces

Dalam sebuah bahasa pemograman, khususnya bahasa pemograman visual basic 6.0 biasanya sudah memiliki tools khusus untuk mengkoneksikan antara aplikasi hasil buatan dengan database. Namun kali ini penulis akan membahasa bagaimana cara membuat koneksi visual basic 6.0 dengan database microsoft acces melalui listing program.

Cara Koneksi Visual Basic 6.0 dengan Database Acces
Langsung saja berikut penulis akan berikan tutorial koneksi visual basic 6.0 dengan database. Listing berikut bisa dideklarasikan disebuah module atau bisa juga langsung di form.

Private koneksi As ADODB.Connection
Dim rstabel As New ADODB.Recordset

Private Function konek() As Boolean
    On Error GoTo out
        Set koneksi = New ADODB.Connection
        koneksi.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\NamaDatabas.mdb;Persist Security Info=False"
        koneksi.CursorLocation = adUseClient
        konek = True
out:
End Function


maka fungsi tersebut bisa langsung dipanggil dalam Form load dengan listing

If Not konek() Then
        MsgBox "Gak bisa terhubung ke database!", vbCritical
        End
    End If
    Adodc1.ConnectionString = koneksi.ConnectionString
    Adodc1.RecordSource = "nama tabel"
    Set DataGrid1.DataSource = Adodc1


Asumsi :
  • cara diatas bisa disesuaikan, baik nama database, tabel adodc maupun gridnya

sumber : aplikasi code library by rahman

0 komentar:

Poskan Komentar

yuu.. kita budayakan berkomentar.. bersilaturahmi itu memperpanjang umur... ^_^