[مجروحه]

(04-08-15, 12:49 PM)الطالب كتب : سلام

كود :

Using con As New OleDbConnection(connectionString)
   con.Open()

Dim tran As OleDbTransaction
   tran = con.BeginTransaction

   Using cmd As New OleDbCommand(Nothing, con)

       cmd.Transaction = tran


       cmd.CommandText = "INSERT INTO [a] ([emp_name]) VALUES (?) "
       cmd.Parameters.Clear()
       cmd.Parameters.AddWithValue("@emp_name", txt_emp_name.Text.Trim)
       Dim insertA As Integer = cmd.ExecuteNonQuery()

       cmd.CommandText = "SELECT @@IDENTITY"
       Dim Id_user As Integer = cmd.ExecuteScalar


       cmd.CommandText = "INSERT INTO [b] ([Id_user], [phone], [email], [note]) VALUES (?, ?, ?, ?)"
       cmd.Parameters.Clear()
       cmd.Parameters.AddWithValue("@Id_user", Id_user)
       cmd.Parameters.AddWithValue("@phone", txt_phone.Text.Trim)
       cmd.Parameters.AddWithValue("@email", txt_email.Text.Trim)
       cmd.Parameters.AddWithValue("@note", txt_note.Text.Trim)
       Dim insertB As Integer = cmd.ExecuteNonQuery()


       cmd.CommandText = "INSERT INTO [c] ([Id_user], [field1]) VALUES (?, ?)"
       cmd.Parameters.Clear()
       cmd.Parameters.AddWithValue("@Id_user", Id_user)
       cmd.Parameters.AddWithValue("@field1", txt_field1.Text.Trim)
       Dim insertC As Integer = cmd.ExecuteNonQuery()


       If (insertA > 0) And (insertB > 0) And (insertC > 0) Then
           tran.Commit()
           MsgBox("تمت الاضافة")
       End If

   End Using

   con.Close()
End Using

الكود مجرب

موفقين

عفوا اخوي انا جربت الكود لكن يظهر لي خطأ في  OleDbConnection(connectionString) ف غيرت الى SqlConnection فظهر لي خطأ في (connectionString) فحاولت إلغائها ولكن ظهر لي خطأ في con.open مع العلم اني كونت قاعدة بيانات في SQL SERVER 2008
ارجو منك أن تشرح لي ما هو الخطأ وهدا الخطأ الذي يظهرلي Additional information: لم تتم تهيئة الخاصية ConnectionString.