… Koneksi VB …

Sebelumnya jika salah mohon dikoreksi. Mengkoneksikan VB ke Database dapat menggunakan beberapa teknik (yg saya tau). Teknik-nya yakni :

1. Diatur oleh sistem operasi, melalui DSN (Data Source Name) / ODBC pada Control Panel.
2. Diatur oleh VB dengan metode :

• DAO (Data Access Object)
• RDO (Remote Data Object)
• ADO (ActiveX Data Object)

Nah kemudian, ada pula yang seneng menggunakan Kontrol seperti (DATA, RDODC atau ADODC) untuk mengkoneksikannya tinggal klik-kluk-klik connect deh. Namun bagi yang seneng nulis script, maka lebih baik menuliskan aja yach. Saya sendiri lebih cenderung menggunakan script dengan metode ADO. Jangan lupa melakukan hal2 berikut sebelum codding :

• Berdoa
• Aktifkan referensi ADO (Menu Project > References > Microsoft ActiveX Data Object 2.1) misalnya
• Aktifkan komponen penunjang seperti Data Grid, FlexGrid, SSTab, DTPicker, ListView, dll melalui (Project > Component) or [CTRL]+T
• Nah terakhir codding deh…

Misal :

view plaincopy to clipboardprint?

1. Dim CN As New ADODB.Connection
2. Dim RS As New ADODB.Recordset
4. 'Koneksi ke database Access 2000
5. Private Sub KoneksiDB()
6. Set CN = New ADODB.Connection
7. CN.CursorLocation = AdUseClient
8. CN.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source = "& App.Path &"\Latihan.Mdb"
9. End Sub
11. 'Koneksi ke database MySQL
12. Private Sub KoneksiDB()
13. Set CN = New ADODB.Connection
14. Set RS = New ADODB.Recordset
16. CN.CursorLocation = adUseClient
17. CN.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; UID=root; PWD=; DATABASE=Latihan; OPTION = " & 1 + 2 + 8 + 32 + 2048 + 163841 & ""
18. CN.Open
19. End Sub
21. 'Koneksi ke tabel buku
22. Private Sub KoneksiTabel()
23. Set RS = New ADODB.Recordset
24. RS.CursorLocation = AdUseClient
25. RS.Open "select * fro buku order by kode", CN, AdOpenDynamic, AdLockOptimistic
26. End Sub

 Dim CN As New ADODB.Connection  Dim RS As New ADODB.Recordset   'Koneksi ke database Access 2000  Private Sub KoneksiDB()   Set CN = New ADODB.Connection   CN.CursorLocation = AdUseClient   CN.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source = "& App.Path &"\Latihan.Mdb"  End Sub   'Koneksi ke database MySQL  Private Sub KoneksiDB()   Set CN = New ADODB.Connection   Set RS = New ADODB.Recordset    CN.CursorLocation = adUseClient   CN.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; UID=root; PWD=; DATABASE=Latihan; OPTION = " & 1 + 2 + 8 + 32 + 2048 + 163841 & ""   CN.Open  End Sub   'Koneksi ke tabel buku  Private Sub KoneksiTabel()   Set RS = New ADODB.Recordset   RS.CursorLocation = AdUseClient   RS.Open "select * fro buku order by kode", CN, AdOpenDynamic, AdLockOptimistic  End Sub 

Database yang saya pernah koneksikan ke VB seperti : Access, Oracle, PostgreSQL, MySQL. Semuanya terkoneksi dengan baik. Sekian dulu, nanti sambung lagi yach… (mohon kritik & koreksinya)