[قناص المدينة]

هذا الكود اتمنى ان يفيدك

كود :

dim tran As OleDbTransaction





cmd.CommandText = "insert into   A(Id_user,emp_name)values(?,?) "

        cmd.Connection = con

        cmd.Parameters.Clear()

        cmd.Parameters.Add(New OleDbParameter("@Id_user", OleDbType.VarChar)).Value = Val(txt_Id_user.Text)
       cmd.Parameters.Add(New OleDbParameter("@emp_name", OleDbType.VarChar)).Value = Val(txt_emp_name.Text)
      
        con.Open()
        tran = con.BeginTransaction
        cmd.Transaction = tran
        cmd.ExecuteNonQuery()


        cmd1.CommandText = "insert into b (Id_user,phone,email,note)values(?,?,?)"

        cmd1.Connection = con

        cmd1.Parameters.Clear()


        cmd1.Parameters.Add("@Id_user", OleDbType.VarChar).Value = Val(txt_Id_user.Text)
        cmd1.Parameters.Add("@phone", OleDbType.VarChar).Value = Trim(Val(txt_phone.Text))
        cmd1.Parameters.Add("@email", OleDbType.VarChar).Value = Trim(txt_email.Text)
      
        cmd1.Transaction = tran
        cmd1.ExecuteNonQuery()
        tran.Commit()


      

      
        con.Close()