Info Tutorial: Program VB Net 2008 untuk Menambah Record pada Tabel Database MySQL

Thursday, December 1, 2016

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 :

ImportsMySql.Data.MySqlClient

Public Class Form1

Dim db As NewMySql.Data.MySqlClient.MySqlConnection

Dim sql As String

Dim cmd As MySqlCommand

Dim rs As MySqlDataReader

Subopendb()

sql = "server=localhost;uid=root;pwd;database=db_belajar"

Try

db.ConnectionString = sql

db.Open()

Catchex As Exception

MsgBox(ex.Message)

End Try

End Sub

Subbersih()

npm.Text = ""

nama.Text = ""

kelas.Text = ""

jenjang.Text = ""

jurusan.Text = ""

End Sub

Subnonaktif()

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(ByValsender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Load

opendb()

nonaktif()

End Sub

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

sql = "insert into mahasiswa values(" & _

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

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

cmd = NewMySqlCommand(sql, db)

cmd.ExecuteNonQuery()

MsgBox("Data berhasil disimpan..")

bersih()

nonaktif()

End Sub

Private Sub baru_Click(ByValsender As System.Object, ByVal e AsSystem.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

Go to link Download