Koding Edit di VB .NET Access
Private Sub btnedit_Click(sender As Object, e As EventArgs) Handles btnedit.Click
Dim update As String
update = "update Ukuran set " & _
"ID_ukuran='" & txtidukuran.Text & "'," & _
"ukuran ='" & txtukuran.Text & "' where ID_ukuran ='" & txtidukuran.Text & "'"
cmd = New OleDbCommand(update, conn)
cmd.ExecuteNonQuery()
MsgBox("Data Sudah dIUBAH", MsgBoxStyle.Information, "INFORMASI")
txtidukuran.Enabled = True
Call kosong()
Call tampil()
End Sub
No comments:
Post a Comment