Oleh: admin | 02/01/2014

Koneksi database MySQL pada visual basic 6

Sebenarnya hal ini sudah banyak dimuat di blog-blog yang lain. Supaya menambah keragaman, maka saya publish source code hasil modifikasi saya untuk anda.
Untuk menggunakan source code ini dikomputer anda harus diinstal aplikasi mysql-connector-odbc-3.51.28-win32. Kemudian buat 1 modul baru untuk menempatkan sourcecode koneksi database mysql dibawah ini

Public koneksi As Connection
Public Konek As String
Public Buka As Boolean
Dim Rssiswa As New ADODB.Recordset
Sub BukaDatabase()
On Error GoTo PesanError
   ' svr, db, us, pass adalah variabel
   ' buat 1 form tuk login dan gunakan variabel tersebut
   ' sebagai media inputan
    svr = "localhost"
    db = "privat"
    us = "root"
    pass = ""

   '---------------------------------------------------
    Konek = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & svr & _
            ";PORT=3306;" & _
            "DATABASE=" & db & _
            ";USER=" & us & _
            ";PASSWORD=" & pass & _
            ";OPTION=3;"
    Set koneksi = New Connection
    koneksi.CursorLocation = adUseClient
    koneksi.Open Konek
   '---------------------------------------------------
    Rssiswa.Open "select * from tblsiswa;", koneksi, adOpenDynamic, adLockOptimistic
    '--------------------------------------------------------------------------------
    Buka = False
PesanError:
Select Case Err.Number
Case 0
Exit Sub
Case -2147467259
MsgBox "Koneksi Gagal ! Periksa settingan ODBCnya!", , "Peringatan"
End
Exit Sub
Case Else
MsgBox "Nomor Error : " & Err.Number & Chr(13) & _
"Deskripsi Error : " & Err.Description
Resume Next
Exit Sub
End Select
End Sub

Lebih lengkap silahkan download source codenya disini.


Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Kategori

%d blogger menyukai ini: