Tugas Basis Data

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.

Kita dapat menuliskan printah SQL pada text1 tersebut sesuai apa yang ingin kita kerjakan.

Ketika tombol Jalankan diklik, maka printah yang telah kita ketikkan akan muncul pada data grid1 dan disaat yang bersamaan, perintah yang kita ketikkan sebelumnya pada text1 akan terhapus sehingga kita dapat menuliskan perintah SQL yang selanjutnya.

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....