Program VB.Net 2008 untuk Menambah Record pada Tabel Database MySQL

Pada postingan sebelumnya, telah kita bahas bagaimana cara Mengoneksikan VB.Net 2008 dengan database MySQL.
Nah, pada postingan artikel kali ini akan membahas bagaimana menambah record pada tabel database MySQL dengan program VB.Net 2008 .
Langsung aja kita bahas program VB Net 2008 berikut sesuai judul tersebut di atas.
Desain Form seperti berikut :

Coding Program :

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=root;pwd;database=db_belajar"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

    Sub bersih()

        npm.Text = ""

        nama.Text = ""

        kelas.Text = ""

        jenjang.Text = ""

        jurusan.Text = ""

    End Sub

    Sub nonaktif()

        npm.Enabled = False

        nama.Enabled = False

        kelas.Enabled = False

        jenjang.Enabled = False

        jurusan.Enabled = False

        simpan.Enabled = False

    End Sub

    Sub aktif()

        npm.Enabled = True

        nama.Enabled = True

        kelas.Enabled = True

        jenjang.Enabled = True

        jurusan.Enabled = True

        simpan.Enabled = True

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        opendb()

        nonaktif()

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        sql = "insert into mahasiswa values('" & _

                npm.Text & "','" & nama.Text & "','" & _

                kelas.Text & "','" & jenjang.Text & "','" & jurusan.Text & "')"

        cmd = New MySqlCommand(sql, db)

        cmd.ExecuteNonQuery()

        MsgBox("Data berhasil disimpan..")

        bersih()

        nonaktif()

    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click

        aktif()

    End Sub

End Class

Sekian untuk artikel kali ini tentang Visual Basic 2008 atau VB Net 2008 dengan Judul Program VB.Net 2008 untuk menambah Record pada Tabel database MySQL.
Baca juga artikel lain tentang Visual Basic Net 2008

Semoga bermanfaat..!! :-)

sumber:http://suwandanas.blogspot.com/2013/03/program-vbnet-2008-untuk-menambah.html#more

Tweet