MENGKONEKSIKAN VB 6 DAN MYSQL PART - 2

LANGKAH-LANGKAH MENGKONEKSIKAN VB 6 DAN MYSQL

PART - 2

Sebelumnya kita sudah membuat persiapannya di Mengkoneksikan VB 6 dan MYSQL PART-1

 dan sekarang kita lanjut ke bagian 2.. cekidoooottt..

1.        Mengkoneksikan Visual Basic 6  Dengan Mysql

1.)    Masuk ke visual basic 6

2.)    Pilih menu projects -> references -> lalu centang ‘microsoft ActiveX Data Objects 6.0 library’ – klik OK

 

3.)    Pilih menu projects -> components -> centang sesuai contoh dibawah dan klik OK :

4.)     Buat Tampilan seperti dibawah ini :

5.)    Klik Adodc1, lihat di properties : Pilih ConnectionString,  maka akan muncul Property Pages, Pilih Use Connection String -> lalu pilih build maka akan muncul Data Link Properties

6.)    Pilih ‘microsot OLE DB Provider for ODBC Drivers’ , Klik Next.

7.)    Isi seperti gambar di bawah, lalu pada ‘Enter The Initial Catalog To Use, pilih database yang kita buat sebelumnya (disini saya memakai database test). Klik Test Connection, apabila sukses maka akan muncul ‘Test connection succeeded’ -> klik OK -> dan Klik OK.

8.)    Setelah di klik OK, maka akan kembali ke Property Pages, Lalu Klik OK

9.)    Klik datagrid di form yg di buat, lalu lihat di properties, pilih Data Source -> dan pilih Adodc1

10.)    Buat sebuah Module dengan memilih, Projects -> Add module, dan masukkan Coding dibawah :

Option Explicit

Public dbkoneksi As New ADODB.Connection

Public rs_bidang As ADODB.Recordset

Public db_name As String

Public db_server As String

Public db_port As String

Public db_user As String

Public db_pass As String

Public StrKonekDb As String

Public strSQL, SQL As String

Public SQLubah, SQLsimpan, SQLhapus As String

Public Tanya As String

Public Status As String

Public AKSIDATA As String

Public UserId, NamaId As String

Public Sub BukaDatabase()

 On Error GoTo ok

    Set dbkoneksi = New ADODB.Connection

    db_name = "test"

    db_server = "localhost" 'ganti jika server anda ada di komputer lain

    db_port = "3306"    'default port is 3306

    db_user = "root"    'sebaiknya pakai username lain.

    db_pass = ""

 

StrKonekDb = "DRIVER={MySQL ODBC 3.51 Driver};" _

        & " SERVER=" & db_server & ";" _

        & "DATABASE=" & db_name & ";" _

        & "UID=" & db_user & ";" _

        & "PWD=" & db_pass & ";" _

       & "PORT=" & db_port & ";" _

       & "OPTION=3"

dbkoneksi.CursorLocation = adUseClient

    If dbkoneksi.State = adStateOpen Then

         dbkoneksi.Close

        Set dbkoneksi = New ADODB.Connection

        dbkoneksi.Open StrKonekDb

    Else

                dbkoneksi.Open StrKonekDb    

    End If

    Exit Sub

ok:

        MsgBox "Koneksi ke server tidak berhasil !!!", 16, "ERROR"

   End

    End Sub

11.)    Double Klik pada form yang  kita buat, lalu masukkan coding dibawah ini :

 

Private Sub Form_Load()

Call BukaDatabase

Dim rs_golongan As New ADODB.Recordset

rs_golongan.Open "SELECT * FROM tbluser", dbkoneksi, adOpenDynamic, adLockBatchOptimistic

Set DataGrid1.DataSource = rs_golongan

End Sub

12.)    Setelah semuanya selesai, maka akan data dari database kita akan muncul seperti ini :

 

 

Selesai.... Selamat Mencoba :)