Cara Koneksi Visual Basic 6.0 dengan Database Acces

Cara Koneksi Visual Basic 6.0 dengan Database Acces

Cara Koneksi Visual Basic 6.0 dengan Database Acces
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
kalau kamu merasa terbantu dengan artikel ini, yuk traktir penulis, agar lebih semangat sharing berbagai hal di blog ini ^_^
via link berikut ya :
Trakteer Saya
Kamu juga bisa request custom aplikasi dan otomasi data dengan memberikan rinci fitur apa yang kamu inginkan dengan mulai harga Rp. 50.000,- segera klik link ini ya :
Cara Koneksi Visual Basic 6.0 dengan Database Acces
4/ 5
Oleh

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