Membuat Client-Server Menggunakan VB dan MySQL

1. Instal Driver MySQL ( ODBC ) ,

2. Buat applikasi VB, dengan konenksi database MySQL ( Contoh programnya sudah ada di artikel sebelum ini ),

3. Buat koneksi database ke server :

Dim koneksi As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub CmdConect_Click()
srv = Me.TxtServer.Text
dtbase = Me.TxtDB.Text
usr = Me.TxtUser.Text
pass = Me.TxtPass.Text
tbl = Me.TxtTable.Text

MsgBox konekdb(srv, dtbase, usr, pass), 0 + vbExclamation, “Connection”
konektb (tbl)
MsgBox “Jumlah Record ” & tbl & ” adalah ” & rs.RecordCount, 0 + vbInformation, “Connection”
End Sub

Function konekdb(srv, dtbase, usr, pass) As Boolean
On Error GoTo Errhndl
koneksi.CursorLocation = adUseClient
If koneksi.State = adStateOpen Then koneksi.Close
koneksi.Open “DRIVER={MySQL ODBC 3.51 Driver};SERVER=” & srv & “;PORT=3306;DATABASE=” & dtbase & “; USER=” & usr & “;PASSWORD=” & pass & “;OPTION=3;”
konekdb = True
Exit Function
Errhndl:
konek = False
MsgBox “ERROR: ” & Err.Description, vbCritical + 0, “ERROR”
End
End Function

Function konektb(tb As String)
On Error GoTo Errhndl

If konekdb(srv, dtbase, usr, pass) = True Then
rs.Open “Select * from ” & tb, koneksi, , adLockOptimistic
Else
MsgBox “ERROR: Server tidak terkoneksi”, vbCritical + 0, “ERROR”
End
End If
Exit Function
Errhndl:
MsgBox “ERROR: ” & Err.Description, vbCritical + 0, “ERROR”
End
End Function

Satu Balasan ke Membuat Client-Server Menggunakan VB dan MySQL

  1. Nuru. H mengatakan:

    Ass. Mas. mau nanya.. gmana caranya komputer client dapat mengambil database yang ada diserver mgnggnakan VB, databasenya menggunakan sql server 2000. mohon bantuannya mas. terma kasih

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

%d blogger menyukai ini: