Cara Input Database MySQL VB 2010

12:07:00 AM
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


Artikel Terkait

Next Article
« Prev Post
Previous Article
Next Post »
Penulisan markup di komentar
  • Untuk menulis huruf bold silahkan gunakan <strong></strong> atau <b></b>.
  • Untuk menulis huruf italic silahkan gunakan <em></em> atau <i></i>.
  • Untuk menulis huruf underline silahkan gunakan <u></u>.
  • Untuk menulis huruf strikethrought silahkan gunakan <strike></strike>.
  • Untuk menulis kode HTML silahkan gunakan <code></code> atau <pre></pre> atau <pre><code></code></pre>, dan silahkan parse dulu kodenya pada kotak parser di bawah ini.
Konversi Code
Disqus
Silahkan Berkomentar Dengan

11 komentar

Write komentar
yulius wira
AUTHOR
February 4, 2015 at 2:32 PM delete

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

Reply
avatar
yulius wira
AUTHOR
February 4, 2015 at 2:33 PM delete

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

Reply
avatar
Tutarni Aliya
AUTHOR
February 4, 2015 at 9:25 PM delete

Oh.. udah bisa ya, selamat belajar yaaaa :)

Reply
avatar
April 14, 2015 at 11:29 AM delete

ass.. saya mau minta bantuanya

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

terimakasih atas modulnya

Reply
avatar
Tutarni Aliya
AUTHOR
April 15, 2015 at 6:38 AM delete

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

Reply
avatar
yudihindarko
AUTHOR
June 22, 2015 at 12:50 AM delete

bagaimana cara mengatasinya?
tolong saya juga mengalami hal yang sama

Reply
avatar
azis
AUTHOR
October 9, 2016 at 9:31 PM delete

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

Reply
avatar
azis
AUTHOR
October 9, 2016 at 9:31 PM delete

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

Reply
avatar
Shen Rx
AUTHOR
November 29, 2016 at 8:20 PM delete

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.

Reply
avatar
Tutarni Aliya
AUTHOR
November 29, 2016 at 10:17 PM delete

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

Reply
avatar