Tugas 3

Pembuatan Program Visual Basic 6.0 dan MYSQL.

Tahap-tahap yang harus dilakukan :

Pastikan komputer anda sudah ter install program dibawah ini:

1. Program vb 6.0

2. Program Mysql

3. Driver mysql odbc 5.1

Buatlah sebuah form dengan tampilan seperti diatas, kemudian masukkan kode programnya sebagai berikut, tapi jangan lupa menginstal Driver ODBC 5.1:

Dim koneksi As New ADODB.Connection

Function konek() As Boolean

On Error GoTo keluar

Koneksi.Open "driver=mysql odbc 5.1

driver;server=localhost;user=root;datasource=mysql;"

koneksi.CursorLocation = adUseClient

konek = True

keluar:

End Function

Private Sub Combo1_Click()

Call pilihss

Call isitabel

End Sub

Private Sub Command1_Click()

On Error GoTo keluar

Set DataGrid1.DataSource = koneksi.Execute(Text1.Text)

Call isidatabase

keluar:

If Err.Number <> 0 Then MsgBox Err.Description

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

If Not konek Then

MsgBox "yach...ga'mau konek"

Else

Call isidatabase

End If

End Sub

Sub isidatabase()

Dim ss As ADODB.Recordset

Set ss = koneksi.Execute("show databases")

Combo1.Clear

Do While Not ss.EOF

Combo1.AddItem ss(0)

ss.MoveNext

Loop

End Sub

Sub isitabel()

Dim ww As ADODB.Recordset

Set ww = koneksi.Execute("show tables")

List1.Clear

Do While Not ww.EOF

List1.AddItem ww(0)

ww.MoveNext

Loop

End Sub

Sub pilihss()

Call koneksi.Execute("use " & Combo1.Text)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1.SetFocus

End If

End Sub