03-08-15, 05:24 PM
سلام عليكم
لي اشكالية كيف يمكن ان اضيف بيان الى ثلاثة جدول في وقت واحد يربطها حقل معين
حاولت ولكن لم افلح.. مع اني اربط بين الجدولين وهذا الكود لربط الجدوين
لي اشكالية كيف يمكن ان اضيف بيان الى ثلاثة جدول في وقت واحد يربطها حقل معين
حاولت ولكن لم افلح.. مع اني اربط بين الجدولين وهذا الكود لربط الجدوين
كود :
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()