Cara Input Database MySQL VB 2010

Tutorial VB 2010 MySQL | Cara Input Database MySQL VB 2010 | Tutorial VB 2010 MySQL
Tutorial VB 2010 kali akan membahas tentang Cara Input Database MySQL pada VB 2010. Tutorial ini sangat penting digunakan dalam Step by step membuat Aplikasi Perpustakaan VB 2010 database MySQL.

Berikut langkah-langkahnya :
Pastikan anda sudah menginstall :
  1. Xampp, sebagai aplikasi untuk database
  2. Visual Basic 2010 (Baik versi Express maupun Ultimate)
  3. Conector odbc versi 3.51 (sebagai koneksi VB 2010 ke MySQL)
Langkah 1 :
Buatlah database pada Xampp, dengan nama : dbbelajarvb
Buatlah Tabel dengan nama : barang
Agar lebih terlihat dengan bagus nantinya masukan data di tabel barang tersebut. sebagai contoh seperti dibawah ini :
Jika sudah membuat database dan Tabel diatas, mari kita lanjutkan ke Langkah 2.

Langkah 2 :
Buatlah Project dengan VB 2010, buatlah design form seperti gambar dibawah ini :
Form diatas terdapat : TexBox1, TexBox2, TexBox3, TexBox4, Button1, DatagridView1

Kemudian masukan Koding dibawah ini pada Form1 diatas :
Imports System.Data.Odbc
Public Class Form1
    Dim Conn As OdbcConnection
    Dim da As OdbcDataAdapter
    Dim ds As DataSet
    Dim str As String
    Dim CMD As OdbcCommand

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KondisiAwal()
    End Sub
    Sub Koneksi()
        str = "Driver={MySQL ODBC 3.51 Driver};database=dbbelajarvb;server=localhost;uid=root"
        Conn = New OdbcConnection(str)
        If Conn.State = ConnectionState.Closed Then
            Conn.Open()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Then
            MsgBox("Data belum lengkap, Pastikan Kode Barang 6 Digit dan Semua form terisi")
            Exit Sub
        Else
            Call Koneksi()
            Dim simpan As String = "insert into Barang values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
            CMD = New OdbcCommand(simpan, Conn)
            CMD.ExecuteNonQuery()
            MsgBox("Data berhasil di Input", MsgBoxStyle.Information, "Information")
            Call KondisiAwal()
        End If
    End Sub
    Sub KondisiAwal()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        Me.Text = "www.belajarvb.com"
        Koneksi()
        da = New OdbcDataAdapter("Select * from Barang", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "Barang")
        DataGridView1.DataSource = (ds.Tables("Barang"))
    End Sub
End Class

Silahkan jalankan Project VB 2010 anda, Masukan Kode Barang, Nama, Harga dan Jumlah.
Kemudian Klik Tombol Simpan

Salam
BelajarVB.com


Subscribe to receive free email updates:

11 Responses to "Cara Input Database MySQL VB 2010"

  1. tolong dibantu.. erorr ExecuteNonQuery: Connection property has not been initialized.

    ReplyDelete
  2. tolong dibantu.. eror ExecuteNonQuery: Connection property has not been initialized.

    ReplyDelete
    Replies
    1. bagaimana cara mengatasinya?
      tolong saya juga mengalami hal yang sama

      Delete
    2. xampp nya sudah diinstall blm? kalo sudah install pastikan mysql dan apache nya sudah running di xampp..thanks

      Delete
    3. coba di cek xampp nya sudah running blm mysql dan apachenya..

      Delete
  3. Replies
    1. Oh.. udah bisa ya, selamat belajar yaaaa :)

      Delete
  4. ass.. saya mau minta bantuanya

    saya mendapatkan error di tanda kurung terakhir : DataGridView1.DataSource = (ds.Tables("Barang"))

    terimakasih atas modulnya

    ReplyDelete
    Replies
    1. Hi Iqbal,
      1. Sebelum mengarah ke koding diatas, sebelumnya pasti ada pesan error, bisa di tuliskan dulu?
      2. Apakah kamu sudah install konektor MySQL ke VB?
      3. Sebelum bisa Input, pastikan kamu sudah bisa memunculkan Tabel ke Form ya

      Mohon di feedback terlebih dahulu

      Delete
  5. Mohon bantuannya CMD.ExecuteNonQuery() eror.
    XAMPP, Connector ODBC, Module, Dll sudah diikuti dan sempat mengulang project beberapa kali.
    Untuk read data dari database sudah sukses, namun stak waktu insert data.
    Mohon pencerahaannya.

    ReplyDelete
    Replies
    1. Hi Shen,
      Untuk lebih lengkapnya mungkin bisa lihat video tutorial yang di Youtube GURU KODING.
      Link : https://www.youtube.com/watch?v=TlvQL8OGSxg
      Jika masih belum bisa, silahkan berkomentar kembali

      Delete