[الطالب]

سلام

كود :

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

الكود مجرب

موفقين