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