Program Database Sederhana Menggunakan VB dan MYSQL

Pertama, Qt harus punya bahan softwarenya... Disini aQ pake Visual Basic versi 6.0 dan mysql 5.5. Oke, klo dah punya nih yaa dan udah dinstal tentunya... mari Qt buka mysql dan Qt akan membuat sebuah database, yang sederhana saja dulu. Disini aQ akan membuat entri data mahasiswa. Yang mana terdiri dari 2 tabel saja yaitu mahasiswa dan nilai. dari tabel mahasiswa, atributnya nim, nama, alamat.
(nim varchar(5) not null primary key,
nama varchar (25),
alamat varchar(30));
Dan dari tabel nilai, atributnya nim, nama, nilai, matkul.
(nim varchar(5) not null primary key,
nama varchar (25),
nilai varchar(3),
matkul varchar(20));

Kedua, kalo mysql Qt udah selesei, lanjut dengan membuka VB. Sebelum Qt membuat program, Qt koneksikan dulu mysql dengan VB untuk dibuat interfacenya dengan menggunakan ODBC. Caranya seperti ini :
1. Buka control panel, buka administrative tools, lalu klik pada Data Sources (ODBC).
2. Pilih system DSN, klik add.
3. Pilih Driver Mysql ODBC.
4. Lalu klik finish, selanjutnya akan muncul settingan DSN, isi seperti ini :
Name : bebas
Server : localhost
User : root
Password : -
Database : sesuai dengan nama database yang Qt buat pada mysql.
5. Klik pada tombol test. Jika koneksi berhasil maka akan ada message box "connection successful.
6. Selanjutnya Qt akses database mysql melalui VB dengan cara membuat form pada VB.
7. Qt sertakan library ADO pada program dengan cara dari menu pilih project kemudian references, lalu beri tanda centang pada Microsoft AktivX Data Object 2.8 library kemudian OK.
8. Selanjutnya klik dua kali pada command button di form dan ketikkan koding ini :
Private Sub Command2_Click()
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim fld As ADODB.Field
Dim sql As String
End Sub
Nah pada form pertama, disini aQ kasih login password sebelum membuka programnya sebagai admin. Jadi Qt buat dulu dengan koding sebagai berikut :

Private Sub Command1_Click()
If Text1.Text = "nova" And Text2.Text = "wow" Then
MsgBox ("Password Anda Benar, Terima Kasih Telah Login")
Form2.Show
Form1.Hide
Else
MsgBox ("Password Anda Salah, Silahkan Tanya Sama NOVA dulu")
End If
Text1.Text = ""
Text2.Text = ""
End Sub
Pada form kedua Qt menampilkan menu. Qt buat sesuai dengan tabel yang Qt buat di mysql tadi. Misal data mahasiswa, nilai mahasiswa, exit :

Private Sub Command2_Click()
Form3.Show
Form2.Visible = False
End Sub
Private Sub Command3_Click()
Form4.Show
Form2.Visible = False
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
End Sub
Kalou sudah, pada button menu data mahasiswa Qt buat form ketiga seperti ini. Pastikan Adodc dan Datagrid ada di toolbox, jika belum ada gunakan pada menu, project lalu component. Centang Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft Datagrid Control 6.0 (OLEDB). Nah, agar data dapat tampil pada Adodc dan Datagrid, maka klik kanan pada Adodc yang sudah ada pada form lalu klik properties. Lalu pada tab General, pilih tombol build kemudian pilih Microsoft OLE DB Provider for ODBC Driver, klik next kemudian pilih koneksi yang telah Qt buat, klik test connection untuk memastikan bahwa koneksi telah berhasil. Jangan lupa pada tab RecordSource, pada command text (SQL) untuk menuliskan pilihan tabel mana pada mysql yang mau Qt pakai. Contoh : "select * from mahasiswa" lalu OK.

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub cmdtambah_Click()
Adodc1.Recordset!nim = Text1.Text
Adodc1.Recordset!nama = Text2.Text
Adodc1.Recordset!alamat = Text3.Text
Adodc1.Recordset.Update
DataGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Load()
End Sub
Dan untuk button data nilai mahasiswa Qt buat form keempat seperti ini :

Adodc1.Recordset!nim = Text1.Text
Adodc1.Recordset!nama = Text2.Text
Adodc1.Recordset!alamat = Text3.Text
Adodc1.Recordset!nilai = Combo1.Text
Adodc1.Recordset.Update
DataGrid1.Refresh
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
Text1.SetFocus
End Sub
Private Sub Form_Load()
Adodc1.Visible = False
Combo1.AddItem "A"
Combo1.AddItem "B"
Combo1.AddItem "C"
Combo1.AddItem "D"
Combo1.AddItem "E"
End Sub
Oke....jadi deh untuk program yang sangat dasar alias sederhana ini. Mudah kaann... Bisa dikembangkan sendiri sama temen2 yaa....:) Trus bagi yang ingin menggunakan java netbeans silahkan baca tutorialnya di Aplikasi Database Sederhana Menggunakan Java NetBeans dan Mysql
Silahkan komentar atau follow blog aQ ya temaann….akan lebih baik kalau Qt bisa saling sharing ilmu disini.
Makasih udah mampir di blog aQ yaaa… :D :D :D
Semoga bermanfaat bagi nusa bangsa dan agama. Amiiinnn