Pembuatan Aplikasi sederhana MY SQL menggunakan Visual Basic 6.0
Disini saya akan menjelaskan tentang aplikasi yang telah saya buat.
Pertama-tama Saat program dijalankan maka krusor akan berada pada text1 seperti gambar yang ada dibawah ini.
Saat kita mengklik tombol Keluar, maka setelah itu akan muncul box yang menanyakan apakah anda akan keluar..?? jika anda mengklik Yes maka anda akan keluar dari program tersebut.
Coding yang saya gunakan untuk membuat program ini sangatlah simple. untuk membuat program ini pastinya kalian harus telah memiliki visual basic 6.0 , wamp server , dan connector ODBC. disini saya menggunakan connector ODBC 3.51
untuk codingnya, lengkap dibawah ini:
Deklarasi Awal :
Dim koneksi As New ADODB.Connection
Untuk memfungsikan apabila semua telah terkoneksi :
Function konek() As Boolean
On Error GoTo out
if koneksi.State = 1 Then koneksi.Close
Set koneksi = New ADODB.Connection
koneksi.Open "Driver={MySQL ODBC 3.51 Driver};server=localhost;user=root;database=mysql"
koneksi.CursorLocation = adUseClient
konek = True
out:
End Function
Tombol Jalankan :
Private Sub Command1_Click()
On Error GoTo out
Set DataGrid1.DataSource = koneksi.Execute(Text1.Text)
out:
If Err.Number <> 0 Then
MsgBox Err.Number & " Error desc: " & Err.Description, vbCritical
End If
Text1.Text = ""
Text1.SetFocus
End Sub
Tombol Keluar :
Private Sub Command2_Click()
a = MsgBox("anda yakin akan keluar..??", vbYesNo, "konfirmasi")
If a = vbYes Then
End
End If
End Sub
Form Load :
Private Sub Form_Load()
If Not konek() Then
MsgBox "gagal konek!", vbCritical
End
End If
End Sub
Sekian sedikit informasi yang dapat saya sampaikan. walaupun banyak kekurangannya, semoga ini dapat bermanfaat bagi yang membutuhkannya....