Source Code Input Data ke Database MySQL Menggunakan VB 6.0

Artikel Terkait Tutorial VB6
Pada pembelajaran VB 6.0 Database MySQL kali ini akan dibahas mengani Cara Input Ke Database. Database disini menggunakan MySQL. untuk bisa mengikuti Tutorial kali ini pastikan di komputer anda sudah install :
1. Visual Basic 6.0
2. Database MySQL (kami menggunakan Xampp)
3. Konektor ODBC 3.51
Source Code Input Data ke Database MySQL Menggunakan VB 6.0
Jika sudah memenuhi syarat diatas silahkan ikuti tutorial dibawah ini :

#1. Membuat Database dan Tabel di MySQL
Buatlah database dengan nama : dbaplikasi
Buatlah tabel dengan nama : barang
Design Tabel barang adalah sebagai berikut :
Membuat Database dan Tabel di MySQL

#2. Membuat DSN Konektor DBAplikasi
Buka Control Panel pada komputer anda
Klik ODBC
Membuat DSN Konektor DBAplikasi
Klik System DSN - Add
Pilih MySQL ODBC 3.51 Driver
Jika tidak ada, berarti anda belum install Konektor ODBC 3.51 (silahkan install dulu yaaa)
Jika muncul Klik Finish
Masukan KonekDBAplikasi, root, dbaplikasi sesuai gambar diatas
Jika sudah klik OK


#3. Membuat Form Pada Visual Basic 6.0
Buka VB 6.0 anda
Buatlah Design Form1 seperti gambar dibawah ini :
Membuat Form Pada Visual Basic 6.0
Kemudian masukan koding dibawah ini :
Dim Koneksi As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Konekdbaplikasi"
End Sub

Private Sub Command1_Click()
Call BukaDB
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "Data Belum Lengkap"
Else
Dim TambahBarang As String
    TambahBarang = "Insert Into Barang values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"
    Koneksi.Execute TambahBarang
    MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"
    Call KondisiAwal
    Form_Activate
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Activate()
Call BukaDB
Adodc1.ConnectionString = Koneksi
Adodc1.RecordSource = "Barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Form_Load()
Text1.MaxLength = 6
Call KondisiAwal
End Sub
Sub KondisiAwal()
Text1 = ""
Text2 = ""
Text3 = ""
End Sub
Silahkan Run atau jalankan Project anda, hasilnya adalah seperti gambar dibawah ini :
Masukan data pada text1, text2 dan text3, kemudian Klik Simpan, maka hasilnya akan bertambah pada Datagrid. Cukup mudah bukan ???


Selain Sebagai Penyedia Panduan Belajar Database dan Tutorial Pemrograman, Kami Juga Membagikan Kumpulan Source Code Program Aplikasi dan Ebook Pemrograman Terlengkap yang Bisa Anda Dapatkan Secara Gratis di Halaman :


Rekomendasi Web Hosting
  1. 20rb perbulan. Diskon hingga 40% kode kupon: MCP Daftar disini (apache).
  2. 10rb perbulan. Diskon hingga 75% kode kupon: MCP Daftar disini (litespeed).
  3. 10rb perbulan. Diskon hingga 70% kode kupon: aff-MCP Daftar disini (apache).