Dim cmdBuilder As System.Text.StringBuilder = New System.Text.StringBuilder()
cmdBuilder.AppendLine("DECLARE @mainID AS INT ;") ' ถ้าเป็น NVARCHAR ก็เปลี่ยน Type ค่ะ
cmdBuilder.AppendLine()
cmdBuilder.AppendFormat("SET @mainID ={0};{1}" ,IDVALUE ,VBCR)
' IDVALUE คือตัวแปรที่เก็บค่าของ ID ของตารางหลักที่จะลบ
cmdBuilder.AppendLine()
'เริ่มลบตารางจาก ตารางลูกที่อยู่ริมนอกสุดของความสัมพันธ์
'คั่นแต่ละ SQL STATEMENT ด้วย comma >> ;
cmdBuilder.AppendLine("DELETE FROM [ChildTable01] WHERE [ChildTable01_ForeignKey]=@mainID ;")
cmdBuilder.AppendLine("DELETE FROM [ChildTable02] WHERE [ChildTable02_ForeignKey]=@mainID ;")
cmdBuilder.AppendLine("DELETE FROM [ChildTable03] WHERE [ChildTable03_ForeignKey]=@mainID ;")
cmdBuilder.AppendLine("DELETE FROM [ParentTable] WHERE [ParentTable_ID]=@mainID ;")
Dim cmdStr As String = cmdBuilder.ToString()