Membuat Input data dengan Visual Basic 6.0 dan Database Mysql

Langkah pertama, buatlah terlebih dahulu database sederhana melalui localhost/phpmyadmin. Misalnya database belajar_vb dengan nama tabel biodata, field nama, alamat, jenis_kelamin, dan agama. Cara membuat database bisa anda pelajari di sini.

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) dan Microsoft 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 pilih datasource 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 KELUAR berfungsi 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

Jangan lupa untuk menyimpan form dan project yang sudah anda simpan.

***********************************Selamat Belajar****************************************

Menghubungkan Visual Basic 6.0 dengan MySql

Visual Basic 6.0 adalah salah satu software untuk pembuatan program yang banyak diminati karena kemudahannya dihubungkan dengan berbagai database. Salah satunya dihubungkan dengan database Mysql.

Langkah-langkah untuk menghubungkan Visual Basic 6.0 dengan Mysql sebagai berikut :

1.Persiapkan Bahan-bahan yang diperlukan, yaitu :

• Aplikasi Visual Basic 6.0
• xampp, jika bisa pilih versi yang terbaru.
• Connector ODBC MySql (Sesuaikan dengan windows anda. Jika anda menggunakan windows7-64bit maka driver yang digunakan harus compatibel dengan 64bit).
• Internet Browser, seperi : IE, Firefox, Opera, Google Chrome atau yang lainnya.

Kalau sudah dapat semua bahan yang dibutuhkan, langkah pertama adalah memasukkan bahan-bahan tersebut. Caranya anda tinggal cari file SETUP-nya saja atau klik langsung di softwarenya atau bisa juga anda pelajari di sini

2.Test Phpmyadmin dan buat database. Caranya bisa anda pelajari di sini

3.Buat Data Source  ODBC. Caranya adalah

• Buka control panel, masuk ke administrative tools dan pilih Data Source (ODBC)
• Tekan tombol Add..
• Pada kolom name pilih MySQL ODBC Driver, lalu tekan tombol finish
• Isikan pada textbox seperti di bawah ini :

          -Data Source Name    : (beri nama data source, misalnya : dsnbelajarprogram)

          -Description                 :

          -Server                          : localhost

          -User                             : root

          -Password                    :

          -Database                    :(isi dengan nama database anda)

• Tekan tombol Tes  kemudian tekan tombol Ok
• Jika berhasil maka nama dsnbelajarprogram akan mucul pada kolom name

4.Buka Visual Basic 6.0,dan mulailah membuat project. Dalam pembuatan project ini, tambahkan komponen-komponen :

• Microsoft ADO Data control 6.0 (OLEDB)
• Microsoft DataGrid control 6.0 (OLEDB)

5.Drag komponen-komponen di atas ke dalam form.

6.Klik ADO Data control (ADODC), dan seting propertiesnya sebagai berikut :

• pada property connectionString klik tombol titik-titik […]
• Pilih Use ODBC Data Source Name Kemudian pilih dsnbelajarprogram
• Tekan Apply
• Klik RecordSource, Pada Tabel or Stored Procedure name pilih tabel dari database yang ingin dihubungkan dengan form.
• Pada Command Type : 8-adCmdUnknown diganti dengan 2–adCmdTable

7.Untuk menampilkan data yang telah dibuat melalui PhpMyadmin, klik DataGrid, pada property, bagian DataSource pilih ADODC1

8.Sekarang coba anda jalankan program yang sudah anda buat, jika koneksi berhasil DataGrid akan menampilkan database dari PhpMyadmin sesuai tabel yang anda inginkan.

****************Selamat Belajar****************