Cara Koneksi Visual Basic 6.0 dengan Database Acces
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.
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 :
- menggunakan Adodc
- menggunakan Datagrid
- cara diatas bisa disesuaikan, baik nama database, tabel adodc maupun gridnya
sumber : aplikasi code library by rahman
