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

0 Response to " Program VB.Net 2008 untuk Menambah Record pada Tabel Database MySQL"

Posting Komentar