Cara Mengkoneksikan database mysql 5.0 ke Visual Basic 6.0

Hello sob…. Untuk kali ini saya akan membahas cara mengkoneksikan database yang ada pada mysql 5.0  ke Visual Basic 6.0 atau juga sering di sebut dengan VB. Oke langsung saja gak usah banyak basa-basi.

Langkah yang pertama, kita buat database di mysql  dengan nama “Lat1”. Dengan table dan field sebagai berikut :

           Tabel siswa dengan field :
           - nis varchar (25) primary key
           - nama varchar (50)
           - email varchar (25)

Kalau sudah membuat database beserta field-nya, sesuai dengan petunjuk diatas, barulah kita buka VB-nya atau Visual Basic-nya.

 

Setelah itu, kita pasang komponen ADODC dan DATA GRID-nya dengan mengklik Project di menubar lalu pilih Components atau bisa juga dengan menekan tombol CTRL-T . Dan centang Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB) dan OK. Kalau komponen ADODC dan DATA GRID-nya sudah di pasang. Barulah kita atur posisinya seperti berikut :

 

--Pengaturan Properties :

Object	Properties	Nilai
Form1	StartUpPosition	2-CenterScreen
Label1	Caption	NIS
Label2	Caption	NAMA
Label3	Caption	EMAIL
Text1, Text2, & Text3	Text	(Kosong)
Adodc1	Visible	False
Data Grid	DataSource	Adodc1

Kalau propertiesnya sudah diubah semua, barulah kita buka mysql-front, kalau belum punya softwarenya klik disini untuk mendownloadnya. Jangan lupa keygen-nya di di install juga. klik disini untuk mendownload keygen-nya.

Kalau softwarenya sudah di install semua, barulah kita buka aplikasinya.

 

Di Open Session, kita klik new, lalu di Add Session -- General,  isilah Name dengan nama “Latihan”(nama juga bisa diubah sesuai dengan keinginan anda).

Dan di Add Session -- Connection, isilah Server dengan nama “localhost”(nama Server tidak boleh diubah, karna peraturan penulisannya memang begitu, kalau di ubah akan terjadi error).

 

Kalau di mysql anda di beri password, tulislah password tersebut di Add Session -- Login -- Password.

Kalau sudah klik OK dan Open. Setelah di Open, semua data yang ada pada mysql anda akan muncul. Lalu carilah database “Lat1” yang sudah kita buat tadi, dan isilah (minimal 3) data di table siswa tadi. Setelah di isi, barulah kita tutup mysql-front-nya dan kembali ke VB(Visual Basic)nya. Lalu arahkan pointer ke Adodc1 dan klik kanan. Lalu klik ADODC Properties dan ikuti langkahnya sebagai berikut :

Kalau di VB anda tidak ada MySQL ODBC 3.51 Driver, klik disini untuk mendownload filenya. Kalau sudah di install filenya, di Close dulu Create New Data Source-nya dan ulangi langkah-langkahnya seperti yang tadi. Kalau sudah muncul MySQL ODBC 3.51 Driver-nya seperti pada di atas, barulah di Next > dan Finish, sampai keluar tampilan seperti berikut :

Dan isilah tabelnya seperti pada di atas. Di Data Source Name, itu adalah nama yang telah anda buat tadi di MySQL-front. Di table Database kita pilih database yang sudah kita buat tadi. Dan kalau di MySQL anda di beri password, tulislah password itu di table Password. Kalau sudah di isi semua barulah kita klik Test, sampai muncul pesan sebagai berikut :

OK dan Ok. Lalu ikuti langkah selanjutnya sebagai berikut :

Isilah tabelnya seperti pada di atas. Di Use data source name pilihlah “Latiahan” yang sudah kita buat tadi di MySQL-front. Jangan lupa kalau memang di MySQL anda di beri password, tulislah password tersebut di tabel Password. Setelah itu kllik Test Connection, sampai muncul pesan seperti berikut :

OK dan Ok.

 

 

Di RecordSource -- Command Text (SQL) isilah tabelnya seperti pada di atas. Dan OK.

Setelah itu coba jalankan programnya dengan mengeklik Run -- Start atau bisa juga dengan menekan tombol F5. Dan inilah hasilnya :

Untuk melengkapinya, kita tambahkan tombol Tambah, Ubah, dan Hapus. Oke langsung saja atur posisinya seperti berikut :

 

--Pengaturan Properties :

Object	Properties	Nilai
Command1	Text	Tambah
Command2	Text	Ubah
Command3	Text	Hapus

--Tambahkan Coding pada Tambah, sebagai berikut :

If (Text1.Text <> "") And (Text2.Text <> "") And (Text3.Text <> "") Then

    With Adodc1.Recordset

        .AddNew

        !nis = Text1.Text

        !nama = Text2.Text

        !email = Text3.Text

        .Update

    End With

Else

    MsgBox "Harap Lengkapi Isian", vbCritical, "Lengkapi"

End If

--Tambahkan Coding pada Ubah, sebagai berikut :

If (Text1.Text <> "") And (Text2.Text <> "") And (Text3.Text <> "") Then

    With Adodc1.Recordset

        !nis = Text1.Text

        !nama = Text2.Text

        !email = Text3.Text

        .Update

    End With

Else

    MsgBox "Harap Lengkapi Isian", vbCritical, "Lengkapi"

End If

--Dan tambahkan juga pada Coding Hapus, sebagai berikut :

Beep

If MsgBox("Anda Yakin Ingin Menghapus Data ini...?", vbQuestion + vbYesNoCancel, "Hapus Data") = vbYes Then

    With Adodc1.Recordset

        .Delete

    End With

Else

    Exit Sub

End If

 --Dan inilah Coding untuk keseluruhan :

Private Sub Command1_Click()

If (Text1.Text <> "") And (Text2.Text <> "") And (Text3.Text <> "") Then

    With Adodc1.Recordset

        .AddNew

        !nis = Text1.Text

        !nama = Text2.Text

        !email = Text3.Text

        .Update

    End With

Else

    MsgBox "Harap Lengkapi Isian", vbCritical, "Lengkapi"

End If

End Sub

Private Sub Command2_Click()

If (Text1.Text <> "") And (Text2.Text <> "") And (Text3.Text <> "") Then

    With Adodc1.Recordset

        !nis = Text1.Text

        !nama = Text2.Text

        !email = Text3.Text

        .Update

    End With

Else

    MsgBox "Harap Lengkapi Isian", vbCritical, "Lengkapi"

End If

End Sub

Private Sub Command3_Click()

Beep

If MsgBox("Anda Yakin Ingin Menghapus Data ini...?", vbQuestion + vbYesNoCancel, "Hapus Data") = vbYes Then

    With Adodc1.Recordset

        .Delete

    End With

Else

    Exit Sub

End If

End Sub

Kalau sudah di kasih Coding semua, barulah kita jalankan programnya  (F5).

Kalau sudah berhasil, kita simpan project-nya dengan nama “Tabel Siswa”. Dan selesai.

Gimana sob…. Bagus gak tuh. Kalau mau yang sudah jadi, download aja programnya di bawah :

-        

  --- Tabel Siswa