Dim conn As New OracleConnection(oradb)
Try
conn.Open()
Dim sql As String = "update inventory SET amount = '" & Trim(txtamout.Text) & "'"
Dim cmd As New OracleCommand
'ใช้ oledbcommand ในการเพิ่มข้อมูล
If MessageBox.Show("คุณต้องการแก้ไขข้อมูลนี้ใหม่ใช่หรือไม่?", "ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
With cmd
.CommandType = CommandType.Text
.CommandText = sql
.Connection = conn
.ExecuteNonQuery()
End With
MessageBox.Show("แก้ไขข้อมูลเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Catch ex As Exception 'Catches any error
MessageBox.Show(ex.Message.ToString())
Finally 'ทำส่วนนี้เสมอ ไม่ว่าจะมีข้อผิดพลาดหรือไม่
conn.Dispose()Code (VB.NET)