عندى جدولين tree1,tree2
ابغى ادخل البيانات مرة واحدة فى الجدولين مع العلم ان الجدول الاول رءيسى مرتب تلقائى و الثانى غير مرتب وهذا هو الكود المستخدم المشكلة التى تواجهنى يتم تنفيذ الادخال فى الجدول الاول والثانى لا فما الخطاء فى الكود
SqlConnection1.Open()
Dim strInsert As String
Dim cmdInsert As SqlClient.SqlCommand
strInsert = "BEGIN TRAN INSERT INTO tree1(tree1.type,tree1.nameaco) Values ('" & (typecountbox.Text.Trim) & "','" & (nameaccountbox.Text.Trim) & "') IF @@error <> 0 begin insert INTO tree2(tree2.type,tree2.nameaco,tree2.id_tree) Values ('" & (typecountbox.Text.Trim) & "','" & (nameaccountbox.Text.Trim) & "','" & (numberbox.Text.Trim) & "')END COMMIT"
cmdInsert = New SqlClient.SqlCommand(strInsert, SqlConnection1)
cmdInsert.ExecuteScalar()
SqlConnection1.Close()
