Script koneksi VB ke Microsoft Acess secara fleksibel

Ada beberapa cara mengkoneksikan VB dengan Microsoft Acces, antara lain menggunakan ADODB. tentu kamu tahu apa itu ADODB.
sekarang bagaimana mengkoneksikan database Microsoft Acess ke VB ini sciptnya :
pertama-tama kamu harus mengaktifkan liberary ADO di menu Project-preferences dengan jalan ceklist pada "Microsoft Active Data Object 2.6 Liberary"  kemudian mendeklarasikan variabel koneksi dan record yang mau dibaca di form(General).
pada form(load) ketik scrip berikut :


Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Form_Load()
Set cn = New ADODB.Connection
kon = App.Path & "\ "
With cn
        .CursorLocation = adUseClient
            .ConnectionString = "Provider=Microsoft.jet.oledb.4.0;" & _
            "data source=" & kon & ";" & _
            "Jet oleDB:Database Password="
            .Open
End With

End Sub




0 Response to "Script koneksi VB ke Microsoft Acess secara fleksibel"

Posting Komentar