KONEKSI VB DENGAN MYSQL (Wajib, S.Pd.)
Membuat Database dengan nama Siswa NAMA FIELD NIS NAMA ALAMAT JURUSAN
TYPE CHAR(5) VARCHAR(30) VARCHAR(40) VARCHAR(20)
Membuat Desain Form pada Visual Basic
Menentukan Component COMPONENT Label1 Label2 Label3 Label4 Label5 DataDrid1 ADODC1
Text1 Text1
PROPERTIES Caption Caption Caption Caption Caption Data Source Caption Connecting String Record Source Name Text Name
Koneksi VB dengan MySQL – Wajib, S.Pd.
VALUE NIS NAMA SISWA ALAMAT JURUSAN Jumlah Siswa AdoSiswa Data Siswa Siswa_sql Select * from siswa Txt_Nis Txt_Nama 1
Text1 Text1 Combo1 Command1 Command2 Command3 Command4 Command5 Command6 Command7
Command8
Command9
Command10
Frame1 Form1
Text Name Text Name Text Name Text Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption Style Picture Name Caption Style Picture Name Caption Style Picture Name Caption Style Picture Caption Caption
Txt_Alamat Txt_Jumlah Cmb_jurusan CmdTambah Tambah CmdSimpan Simpan CmdEdit Edit CmdBatal Batal CmdHapus Hapus CmdKeluar Keluar CmdPertama 1-Graphical bitmap CmdSebelum 1-Graphical bitmap CmdBerikut 1-Graphical bitmap CmdTerakhir 1-Graphical bitmap Input Data Siswa …::: FORM ENTRY SISWA :::…
Membuat ODBC Melalui Control Panel
Koneksi VB dengan MySQL – Wajib, S.Pd.
2
Jendela Control panel
Memilih Data Source (ODBC)
Koneksi VB dengan MySQL – Wajib, S.Pd.
3
Memilih System DSN
Memilih MySQL ODBC 5.1 Driver
Koneksi VB dengan MySQL – Wajib, S.Pd.
4
Membuat koneksi
Koneksi berhasil
Hasil membuat ODBC
Koneksi VB dengan MySQL – Wajib, S.Pd.
5
Form yang Sudah Jadi
Source Codenya Sebagai Berikut : Public Baru As Boolean Private Sub Form_Activate() Txt_Nis.SetFocus Call bersih Call jumlah DataGrid1.AllowUpdate = False AdoSiswa.RecordSource = " select * from siswa order by NIS" AdoSiswa.Refresh End Sub Private Sub Txt_Nis_Change() If Len(Txt_Nis.Text) < 5 Then Exit Sub End If AdoSiswa.RecordSource = "select * from siswa where NIS='" & Txt_Nis.Text & "'" AdoSiswa.Refresh If AdoSiswa.Recordset.RecordCount > 0 Then ps = MsgBox("Data sudah ada" & Chr(13) & "Apakah anda ingin edit data", vbYesNo, "Peringatan") If ps = vbYes Then On Error Resume Next Txt_Nis = AdoSiswa.Recordset!nis Txt_Nama = AdoSiswa.Recordset!nama Txt_Alamat = AdoSiswa.Recordset!alamat Cmb_Jurusan = AdoSiswa.Recordset!jurusan Txt_Nis.Enabled = False
Koneksi VB dengan MySQL – Wajib, S.Pd.
6
Txt_Nama.SetFocus Else Txt_Nis.SetFocus Txt_Nis.Text = "" Call bersih AdoSiswa.Refresh End If Else AdoSiswa.Refresh AdoSiswa.Recordset.AddNew Txt_Nama.SetFocus End If End Sub Private Sub Cmb_Jurusan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdSimpan.SetFocus End If End Sub
Private Sub CmdBatal_Click() AdoSiswa.Recordset.Cancel bersih End Sub Private Sub CmdBerikut_Click() 'menuju ke record berikutnya AdoSiswa.Recordset.MoveNext 'jika berada di record terakhir menuju record terakhir If AdoSiswa.Recordset.EOF Then AdoSiswa.Recordset.MoveLast End If End Sub Private Sub CmdEdit_Click() With AdoSiswa.Recordset Txt_Nis.Text = !nis Txt_Nama.Text = !nama Txt_Alamat.Text = !alamat Cmb_Jurusan.Text = !jurusan End With Txt_Nis.SetFocus Baru = False End Sub Private Sub CmdHapus_Click() Dim hapus
Koneksi VB dengan MySQL – Wajib, S.Pd.
7
hapus = MsgBox("Anda yakin data ini akan dihapus?", vbQuestion + vbYesNo, "Hapus Data") If hapus = vbYes Then AdoSiswa.Recordset.Delete Else MsgBox "Data tidak jadi dihapus !", vbOKOnly + vbInformation, "Batal Menghapus" End If
End Sub Private Sub CmdKeluar_Click() Unload Me End Sub Private Sub CmdPertama_Click() 'menuju ke record pertama AdoSiswa.Recordset.MoveFirst End Sub
Private Sub CmdSebelum_Click() 'menuju ke record sebelumnya AdoSiswa.Recordset.MovePrevious 'jika berada di record petama menuju ke record pertama If AdoSiswa.Recordset.BOF Then AdoSiswa.Recordset.MoveFirst End If End Sub
Private Sub CmdSimpan_Click() With AdoSiswa.Recordset If Baru Then .AddNew !nis = Txt_Nis.Text !nama = Txt_Nama.Text !alamat = Txt_Alamat.Text !jurusan = Cmb_Jurusan.Text .update End With AdoSiswa.RecordSource = " select * from siswa order by NIS" AdoSiswa.Refresh Call jumlah End Sub Private Sub CmdTambah_Click() AdoSiswa.Recordset.AddNew Txt_Nis.SetFocus Call bersih End Sub
Koneksi VB dengan MySQL – Wajib, S.Pd.
8
Private Sub bersih() Txt_Nis.Text = "" Txt_Nama.Text = "" Txt_Alamat.Text = "" Cmb_Jurusan.Text = "" End Sub Private Sub CmdTerakhir_Click() 'menuju ke record terakhir AdoSiswa.Recordset.MoveLast End Sub Private Sub jumlah() Txt_jumlah = AdoSiswa.Recordset.RecordCount End Sub
Private Sub Txt_Alamat_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Cmb_Jurusan.SetFocus End If End Sub
Private Sub Txt_Nama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txt_Alamat.SetFocus End If End Sub Private Sub Txt_Nis_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Txt_Nama.SetFocus End If End Sub
Koneksi VB dengan MySQL – Wajib, S.Pd.
9