Coding Visual Basic .NET

Kumpulan Source Code Cara Cepat Belajar Aplikasi VB.net

Perintah Update Data di Database Mysql pada VB.Net

Halo sobat Coding, Kali ini kita akan mencoba Update data di Database MYSQL dengan menggunakan VB.net (Visual Studio 2012), Jadi nanti data yang ada di form akan kita Edit atau Ubah data yang ada di Database ketika di klik tombol Edit atau Ubah, berikut design Form nya :

perintah update edit data di database mysql pada vb.net  500x342 Query Update Database Mysql di VB.Net Perintah Update untuk Tombol Edit / Ubah pada VB.Net Cara Mengubah Data dari Textbox ke Mysql di VB.Net

Perintah Update Data di Database Mysql pada VB.Net

Berikut Listing Code nya:

Private Sub btnUbah_Click(sender As Object, e As EventArgs) Handles btnUbah.Click
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 = “UPDATE motor SET no_polisi=’” & txtNopol.Text & “‘, type=’” & txtType.Text & “‘, tahun=’” & txtTahun.Text & “‘, tgl_pajak=’” & Tgl & “‘, atas_nama=’” & txtAtasNama.Text & “‘, pemakai=’” & txtPemakai.Text & “‘, unit=’” & txtUnit.Text & “‘, resort=’” & txtResort.Text & “‘, keterangan=’” & txtKet.Text & “‘ WHERE kd_motor=’” & txtKode.Text & “‘”
Try
cekkoneksi()
With sqlCommand
.CommandText = SqlSimpan
.Connection = sConnection
.ExecuteNonQuery()
End With
MsgBox(“Data Sepeda Motor dengan No.Polisi ” & txtNopol.Text & ” Berhasil Diubah”, MsgBoxStyle.Information)

LoadCari()

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

Catch ex As Exception
MsgBox(ex.ToString)
End Try
End If
sqlCommand.Dispose()
TutupKoneksi()
‘btnTambah.Enabled = True
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