Membuat database dari mysql di relasikan ke visual basic 2008

Imports MySql.Data.MySqlClient
Public Class Form1
    Dim db As New MySql.Data.MySqlClient.MySqlConnection
    Dim sql As String
    Dim cmd As MySqlCommand
    Dim rs As MySqlDataReader
    Sub opendb()
        sql = " server=localhost; uid=roo;database=dbpenjualan"
        Try
            db.ConnectionString = sql
            db.Open()
            MsgBox("Yes connect cayank!!!")
        Catch ex As Exception
            MsgBox("Ah gagal connectnya cayank!!!")

        End Try
    End Sub
    Sub buattabel()
        lv.Columns.Add("kode", 80, HorizontalAlignment.Center)
        lv.Columns.Add("Nama", 120, HorizontalAlignment.Left)
        lv.Columns.Add("Jenis", 100, HorizontalAlignment.Left)
        lv.Columns.Add("stok", 80, HorizontalAlignment.Left)
        lv.Columns.Add("harga", 100, HorizontalAlignment.Left)
        lv.GridLines = True
        lv.FullRowSelect = True
        lv.View = View.Details
    End Sub
    Sub isitabel()
        lv.Items.Clear()
        sql = "select*from Barang"
        cmd = New MySqlCommand(sql, db)
        rs = cmd.ExecuteReader
        While rs.Read()
            Dim lst As New ListViewItem
            With lst
                .Text = rs("kode_B")
                .SubItems.Add(rs("Nama_B"))
                .SubItems.Add(rs("Jenis"))
                .SubItems.Add(rs("stok"))
                .SubItems.Add(rs("Harga_B"))

            End With
            lv.Items.Add(lst)
        End While
        rs.Close()

    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call opendb()
        Call buattabel()
        Call isitabel()
    End Sub

    Private Sub kodebarang_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodebarang.KeyPress
        If Asc(e.KeyChar) = 13 Then
            If kodebarang.Text = "" Then
                MsgBox("kode tidak boleh kosong")
            Else
                sql = "select*from barang where kode_B='" & kodebarang.Text & "'"
                cmd = New MySqlCommand(sql, db)
                rs = cmd.ExecuteReader
                Try
                    rs.Read()
                    namabarang.Text = rs("Nama_B")
                    jeniasbarang.Text = rs("Jenis")
                    stok.Text = rs("stok")
                    hargabarang.Text = rs("Harga_B")


                Catch ex As Exception
                    MsgBox(ex.Message)

                End Try
            End If
            rs.Close()
            kodebarang.Enabled = False
            namabarang.Focus()

        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        If kodebarang.Text = "" Or namabarang.Text = "" Or jeniasbarang.Text = "" Or stok.Text = "" Or hargabarang.Text = "" Then
            MsgBox(" data tidak kosong")
            bersih()
            kodebarang.Enabled = True
            kodebarang.Focus()

        Else
            sql = ""

            sql = "insert into barang(kode_B, Nama_B,Jenis,stok,Harga_B)" & _
            " values('" & kodebarang.Text & _
            " ','" & namabarang.Text & _
            "','" & jeniasbarang.Text & _
            "','" & stok.Text & _
            "','" & hargabarang.Text & "')"

            cmd = New MySqlCommand(sql, db)
            cmd.ExecuteNonQuery()
            isitabel()
            bersih()
            MsgBox("data telah tersimpan")
        End If


    End Sub
    Sub bersih()
        kodebarang.Text = ""
        namabarang.Text = ""
        jeniasbarang.Text = ""
        stok.Text = ""
        hargabarang.Text = ""
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        sql = " update barang set Nama_B='" & namabarang.Text & _
        "', Jenis = '" & jeniasbarang.Text & _
        "', stok = '" & stok.Text & _
        "', Harga_B ='" & hargabarang.Text & _
        "' where kode_B= '" & kodebarang.Text & "'"
        cmd = New MySqlCommand(sql, db)
        cmd.ExecuteNonQuery()
        isitabel()
        bersih()
        MsgBox("data telah teredit")

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        sql = " delete from barang where kode_B ='" & kodebarang.Text & "'"
        cmd = New MySqlCommand(sql, db)
        cmd.ExecuteNonQuery()
        isitabel()
        bersih()
        MsgBox("data telah terhapus")

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Me.Close()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        bersih()
        kodebarang.Enabled = True
        kodebarang.Focus()

    End Sub
End Class untuk menambah ilmu anda klik lah link dibawah ini!! mesran punya blog