ถ้าหากจะลบผมก็ต้องไปลบข้อมูลที่ตาราง Order แถวที่ตาราง Consumer มีความสัมพันธ์อยู่ออกก่อน
แต่ผมมีความจำเป็นที่จะต้องเก็บข้อมูล Order ไว้ทั้งหมด (ห้ามลบ)
Dim sqlConstraint As string
Dim sqlDel As String
Dim comm As sqlcommand
Dim conn As new sqlConnection
sqlConstraint = "ALTER TABLE Consumer Table NOCHECK CONSTRAINT ALL" 'สั่งให้ไม่ต้อง Check
comm = new sqlcommand(sqlconstraint,conn)
comm = . Executenonquery
sqlDel = "Delete Consumer where Con_id = '" & txtSearch.Text & "' "
comm = new sqlcommand(sqlDel,conn)
comm = . Executenonquery
sqlConstraint = "ALTER TABLE Consumer Table CHECK CONSTRAINT ALL" 'สั่งให้ต้อง Check เหมือนเดิม