Cara mudah koneksi ODBC MySQL dengan VB 6

Setelah kita membuat database yang dikoneksikan dengan ODBC. Sekarang kita koneksikan dengan software pemrograman Vb6 agar kita bisa memanipulasi data tersebut sesuai keinginan.

1. Buatlah sebuah project

2. Tambahkan fungsi ADODB

==>Project ==> Reference ==> Microsoft ActiveX Data Object 2.1 Library

( agar fungsi ADODB bisa digunakan )

3. Buatlah sebuah Module

‘script pada module

‘Adodb connection ( digunakan untuk koneksi ke database )

‘Adodb Recordset ( digunakan untuk koneksi ke table / record )

Public Conn As New ADODB.Connection 
Public rs As New ADODB.Recordset
Public SQL As String

Sub main()

‘koneksi ke lease ( nama odbc yg kita buat )
Conn.Open "dsn=lease"   
End Sub

 

4. Cek koneksi

- buatlah sebuah form

‘ketikkan script pada form Load

Private Sub Form_Load()
On Error Resume Next
Call main

If Err.Number = -2147467259 Then
MsgBox "Tidak dapat terhubung ke Database.", , "Informasi"
End
Else
MsgBox "Koneksi Berhasil", , "Informasi"
End If
End Sub

5. Running Project ( F5 )

Jika Berhasil akan tampil pesan

 

Jika Gagal akan tampil

>>> SELAMAT MENCOBA <<<