Cara/belajar/tehnik providerDSN koneksi database accessvb6

-->

Tehnik buat provider database access dengan system DSN vb6

Ada beberapa cara untuk mengkoneksikan database ke program/project yang kita buat, baik menggunakan MYSQL ODBC konektor atau langsung mengkoneksikan database accsess seperti yang sudah saya ulas sebelumnya dengan Microsoft access driver.

Pertama anda bisa copy paste dari goggleling atau anda mau belajar bagaimana cara mengetahui jenis provider/jembatan penghubung antara database dengan project yang anda buat.

Adapun provider yang sering digunakan adalah sebagai berikut :

1. Microsoft jet OLE DB 4.0 provider

“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\DeliveryNote\DN.mdb;Persist Security Info=False”

Note : :\DeliveryNote\DN.mdb adalah lokasi database disimpan. Gunakan “ App-path” apabila server berada pada computer lain.

Contoh : 
“Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path &”\DN.mdb;Persist Security Info=False”

2. Microsoft OLE DB provider for ODBC driver

“Provider=MSDASQL.1;Persist Security Info=False;Data Source=kon”

Note : “kon” adalah nama DSN anda.

Belum tau cara buat system DSN ODBC…!!!

Berikut seketsa alurnya :

Urutan klik : Control panel → Data source (ODBC) → System DSN → ADD [pilih Microsoft access driver → finish] → [ isi [data source name]] → Select [cari database anda] → OK         Jadi dech…system maklarnya…

Nah…yang jadi pertanyaannya adalah bagaiana membuat jembatan tersebut supaya bisa menghubungkan antara database dengan project yang anda buat.

Untuk point no 1, silahkan anda buka halaman “cara mengkoneksikan database access” sementara untuk point ke 2 (dua) adalah sebagai berikut :

Public Function koneksi() As Boolean

‘On Error GoTo pesan

   ' db.Mode = adModeReadWrite

'    db.CursorLocation = adUseClient

'If db.State = adStateOpen Then

 '   db.Close

'End If

'db.Open ("Provider=MSDASQL.1;Persist Security Info=False;Data Source=kon ")

'koneksi = True

'Exit Function

'pesan:

'koneksi = False

'MsgBox "Koneksi ke database gagal...!!!!", 16, "Error"

'End

End Function

Note : kalo mau copy paste [copas] hilangkan tanda petik [‘] yang paling depan disetiap barisnya.

Dengan menggunakan koneksi ODBC driver anda tidak perlu buat App-path

Silahkan anda masukkan pada module supaya bisa dipanggil disetiap form anda. Jangan lupa buat variable public sbb :

• Option Explicit
• Public db As New ADODB.Connection
• Public rs As New ADODB.Recordset
• Public Sql As String

Selesai…buat modulenya…

Hubungkan form dengan module dengan memasukkan kata kunci sbb :

Private sub form1_load (Index As Integer )

Call koneksi

End sub

Selesai sudah cara buat provider koneksi dengan database access.

Bagi anda yang suka menggunakan MYSQL ODBC silahkan masuk ke Cara mudah mengkoneksikan vb6 keMYSQL

Tweet

Artikel terkait :