Membuat Input data dengan Visual Basic 6.0 dan Database Mysql
Wednesday, December 4, 2013
Edit
Langkah pertama, buatlah terlebih dahulu database sederhana melalui localhost/phpmyadmin. Misalnya databasebelajar_vb dengan nama tabel biodata, field nama, alamat, jenis_kelamin, dan agama.
Buat datasource dengan nama dsn_belajarvb dan koneksikan melalui ODBC. Input Data Visual Basic ini, menggunakan database mysql. Aplikasi yang dibutuhkan dan cara mengkoneksikan bisa anda pelajari di sini.
Setelah kita membuat database, kita buat design input dari visual basic. caranya sebagai berikut :
1. Run Program Visual Basic. Pilih Start > All Program > Microsoft Visual Basic 6.0
 |
| Gambar 1. Membuka Aplikasi Visual Basic dari Start |
 |
| Gambar 2. Memilih Aplikasi Visual Basic |
2. Setelah muncul kotak dialog New Project, pilih jenis aplikasi Standard EXE.
 |
| Gambar 3. Halaman Awal Visual Basic |
3. Klik tombol open untuk memulai, maka akan segera muncul lingkungan kerja Visual Basic.
 |
| Gambar 4. Lingkungan Kerja Visual Basic 6.0 |
4. Tambahkan komponen Adodc dan DataGrid. Anda bisa menambahkannya dari Menu Bar. Pilih Project >Components, lalu beri tanda centang pada komponen Microsoft ADO Data Control 6.0 (OLEDB) danMicrosoft DataGrid Control 6.0 (OLEDB).
 |
| Gambar 5. Menambahkan Komponen |
 |
| Gambar 6. Menambahkan Adodc dan DataGrid |
5. Buatlah design di Form. Silahkan anda pilih Label (Ubah Caption-nya), Text (Kosongkan Text-nya),CommandButton (Ubah Text-nya), OptionButton (Ubah Captionnya), dan ComboBox dari Toolbox, kemudian desain seperti gambar di bawah ini.
 |
| Gambar 7. Mendesign Form |
- · Untuk CommandButton SIMPAN dan RESET pada properties-nya ubah visible-nya menjadi false, hal ini menyebabkan kedua tombol ini tidak terlihat pada saat di Run.
6. Drag Adodc ke dalam form kemudian anda lihat pada jendela properties-nya. Setting sebagai berikut :
a. Klik ConnectionString, akan muncul (...) klik kemudian pilih Use ODBC Data Source Name dan pilihdatasource name yang sudah anda buat dan anda koneksikan melalui ODBC yaitu dsn_belajarvb.
 |
| Gambar 8. Memilih Data Source Name |
b. Klik Recordsource (...) pilih 2-adCmdTable dan pilih tablename dari database yang sudah anda buat tadi yaitu tabel biodata.
 |
| Gambar 9. Menyetting ConnectionString dan Recordsource dari properties |
 |
| Gambar 10. Memilih Tabel pada RecordSource |
7. Drag DataGrid ke dalam form, kemudian anda lihat pada jendela properties-nya.
a. Pada bagian DataSource anda pilih Adodc1.
 |
| Gambar 11. Setting Datasource pada DataGrid |
b. Pada AllowUpdate, pilih False agar DataGrid tidak bisa diedit ssecara langsung. Hal tersebut untuk menghindari adanya data terhapus atau berubah karena ketidak sengajaan.
 |
| Gambar 12. Mengunci DataGrid |
Sekarang anda buat koding untuk tombolnya. Klik 2 X pada CommandButtton ketik koding ini :
1. Tombol Tambah sebagai berikut :
Private Sub CommandTAMBAH_Click()
CommandTambah.Visible = False
CommandEdit.Visible = False
CommandHapus.Visible = False
CommandSimpan.Visible = True
CommandReset.Visible = True
CommandKeluar.Caption = "BA&TAL SIMPAN"
End Sub
· Koding di atas adalah untuk menampilkan tombol SIMPAN dan RESET dan menyembunyikan tombol yang lain serta mengubah tombol KELUAR menjadi tombol BATAL SIMPAN.
2. Tombol SIMPAN sebagai berikut :
Private Sub CommandSIMPAN_Click()
If TextNama.Text = "" Then
MsgBox ("ANDA BELUM MEMASUKKAN NAMA")
TextNama.SetFocus
Else
If TextAlamat.Text = "" Then
MsgBox ("ANDA BELUM MEMASUKKAN ALAMAT")
TextAlamat.SetFocus
Else
If ComboAgama.Text = "PILIH AGAMA" Then
MsgBox ("ANDA BELUM MEMILIH AGAMA")
ComboAgama.SetFocus
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("nama") = TextNama.Text
Adodc1.Recordset.Fields("alamat") = TextAlamat.Text
Adodc1.Recordset.Fields("agama") = ComboAgama.Text
If Option1.Value = True Then
Adodc1.Recordset.Fields("jenis_kelamin") = Left(Option1.Caption, 1)
Else
Adodc1.Recordset.Fields("jenis_kelamin") = Left(Option2.Caption, 1)
End If
MsgBox ("DATA SUDAH DISIMPAN")
Call bersih
Adodc1.Recordset.Update
Adodc1.Refresh
CommandTambah.Visible = True
CommandEdit.Visible = True
CommandHapus.Visible = True
CommandSimpan.Visible = False
CommandReset.Visible = False
CommandKeluar.Caption = "KEL&UAR"
End If
End If
End If
End Sub
· Koding yang saya beri warna merah di atas berfungsi untuk memberi informasi jika ada salah satu field yang belum diisi.
· Koding yang saya beri warna hitam adalah koding untuk menyimpan data yang sudah ditambahkan.
· Koding yang saya beri warna biru adalah koding untuk memunculkan kembali tombol-tombol yang tadinya disembunyikan.
3. Tombol KELUAR sebagai berikut :
Private Sub CommandKeluar_Click()
If CommandTambah.Visible = True Then
Unload Me
Else
CommandTambah.Visible = True
CommandEdit.Visible = True
CommandHapus.Visible = True
CommandSimpan.Visible = False
CommandReset.Visible = False
CommandKeluar.Caption = "KEL&UAR"
Call bersih
End If
End Sub
· Koding yang saya berwarna merah maksudnya adalah jika tombol TAMBAH ditampilkan maka tombol KELUARberfungsi untuk menghentikan Program, dan jika tombol TAMBAH sedang disembunyikan yang berarti pula sedang dalam proses akan menyimpan data, maka tombol KELUAR berfungsi untuk menghentikan proses menyimpan saja tapi tidak menghentikan program.
4. Tombol RESET sebagai berikut :
Private Sub CommandReset_Click()
Call bersih
TextNama.SetFocus
End Sub
· Tombol Reset ini fungsinya untuk mengosongkan semua textbox dengan memanggil Private sub bersih.
5. Untuk membuat item-item pilihan pada ComboBox, klik form lalu isikan koding berikut ini di bawah Private Sub Form_Load()
ComboAgama.AddItem "ISLAM"
ComboAgama.AddItem "KRISTEN"
ComboAgama.AddItem "KATOLIK"
ComboAgama.AddItem "HINDU"
ComboAgama.AddItem "BUDHA"
ComboAgama.AddItem "KONGHUCHU"
6. Kita membutuhkan private sub bersih untuk mengosongkan form. Masukan koding di bawah ini :
Private Sub bersih()
TextNama.Text = ""
TextAlamat.Text = ""
ComboAgama.Text = "PILIH AGAMA"
End Sub
Sekarang coba anda jalankan program yang sudah anda buat. Jika berhasil, akan tampil seperti di bawah ini :
 |
| Gambar Hasil Program setelah di Run |