VB Code :: โค้ดลบ

tr = Conn.BeginTransaction()
sb = New StringBuilder()
sb.Append("DELETE FROM Goods")
sb.Append(" WHERE (Goods_ID=@Goods_ID)")


Dim sqlEdit As String
sqlEdit = sb.ToString

With com
.CommandText = sqlEdit
.CommandType = CommandType.Text
.Connection = Conn
.Transaction = tr
.Parameters.Clear()
.Parameters.Add("@Goods_ID", SqlDbType.NVarChar).Value = txtGoodsID.Text.Trim()
.ExecuteNonQuery()
End With
Else
Exit Sub
End If
tr.Commit()
ClearAllData()
showData()
FormatDgvGoods()

Catch ex As Exception
MessageBox.Show("เกิดการผิดพลาดในการป้อนข้อมูลลูกค้า กรุณาตรวจสอบความถูกต้องของข้อมูล !!!", "แจ้งข้อมูล", MessageBoxButtons.OK, MessageBoxIcon.Information)
tr.Rollback()
End Try
txtGoodsDes.Focus()