Coding Visual Basic .NET

Kumpulan Source Code Cara Cepat Belajar Aplikasi VB.net

Perintah Insert Data ke Database Mysql pada VB.Net

Halo sobat Coding, Kali ini kita akan mencoba insert data ke Database MYSQL dengan menggunakan VB.net (Visual Studio 2012), jadi nanti data yang ada di form akan masuk ke Database ketika di klik tombol simpan, berikut design Form nya :

perintah insert data ke database mysql pada vb.net  500x344 Query Insert Database Mysql di VB.Net Perintah Insert untuk Tombol Simpan pada VB.Net Cara Menyimpan Data dari Textbox ke Mysql di VB.Net

Perintah Insert Data ke Database Mysql pada VB.Net

Berikut Listing Code nya:

Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click

Dim KodeMotor As String = “B.” & txtKode.Text.PadLeft(3, “0″)

If txtKode.Text = “” Then
MsgBox(“Kode Motor Masih Kosong”, vbCritical, “Salah”)
txtKode.Focus()
ElseIf txtNopol.Text = “” Then
MsgBox(“Nomor Polisi Masih Kosong”, vbCritical, “Salah”)
txtNopol.Focus()
ElseIf txtType.Text = “” Then
MsgBox(“Type Motor Masih Kosong”, vbCritical, “Salah”)
txtType.Focus()
ElseIf txtTahun.Text = “” Then
MsgBox(“Tahun Motor Masih Kosong”, vbCritical, “Salah”)
txtTahun.Focus()
ElseIf txtTglPajak.Text = “” Then
MsgBox(“Tanggal Pajak Masih Kosong”, vbCritical, “Salah”)
txtTglPajak.Focus()
ElseIf txtAtasNama.Text = “” Then
MsgBox(“Atas Nama Motor Masih Kosong”, vbCritical, “Salah”)
txtAtasNama.Focus()
ElseIf txtPemakai.Text = “” Then
MsgBox(“Pemakai Motor Masih Kosong”, vbCritical, “Salah”)
txtPemakai.Focus()
ElseIf txtUnit.Text = “” Then
MsgBox(“Nama Unit Masih Kosong”, vbCritical, “Salah”)
txtUnit.Focus()
ElseIf txtResort.Text = “” Then
MsgBox(“Resort Masih Kosong”, vbCritical, “Salah”)
txtResort.Focus()

Else
Dim Tgl As String = txtTglPajak.Value.ToString(“yyyy/MM/dd”)
Dim SqlSimpan As String = “INSERT INTO motor(kd_motor, no_polisi, type, tahun, tgl_pajak, atas_nama, pemakai, unit, resort, keterangan) VALUES (‘” & txtKode.Text & “‘,’” & txtNopol.Text & “‘,’” & txtType.Text & “‘,’” & txtTahun.Text & “‘,’” & Tgl & “‘,’” & txtAtasNama.Text & “‘,’” & txtPemakai.Text & “‘,’” & txtUnit.Text & “‘,’” & txtResort.Text & “‘,’” & txtKet.Text & “‘)”
Try
cekkoneksi()
With sqlCommand
.CommandText = SqlSimpan
.Connection = sConnection
.ExecuteNonQuery()
End With
MsgBox(“Nomor Polisi ” & txtNopol.Text & ” Berhasil Ditambahkan”, MsgBoxStyle.Information)

Motor_Load(Me, New System.EventArgs)
formKosong()

‘ListAnggota.LoadAnggota()

Catch ex As Exception
MsgBox(ex.ToString)
End Try
End If
sqlCommand.Dispose()
TutupKoneksi()
btnTambah.Enabled = True
btnSimpan.Enabled = False
btnUbah.Enabled = False
btnHapus.Enabled = False
Call formKosong()
btnTambah.Focus()

End Sub

Tulisan Lainnya :

JUAL DVD KUMPULAN PROGRAM APLIKASI DAN SOURCE CODE VB.NET

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Coding Visual Basic .NET © 2014 Frontier Theme