بسم الله الرحمن الرحيم
اخواني اريد ان اضيف سجل جديد في جدولين ( كثير بكثير ) انا كتبت هذا الكود في عملية ال Load :
SQL = " SELECT Tour.TourID, Tour.From, Tour.To, Tour.Date, Tour.Day, Tour.Time Tour.[Arrival-Time], Tour.[Arrival-Date], Tour.Cost, Tour.[Ticket-Number], Link.BusID FROM Tour INNER JOIN (Bus INNER JOIN Link ON Bus.BusID = Link.BusID) ON Tour.TourID = Link.tourID"
With Me
.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\data.mdb"
.Adodc1.CommandType = adCmdUnknown
.Adodc1.RecordSource = SQL
Set .DataGrid1.DataSource = Adodc1
كود إضافة سجل جديد :
Adodc1.Recordset.AddNew Adodc1.Recordset![TourID] = Label2.Caption Adodc1.Recordset![From] = Trim(Text1.Text) Adodc1.Recordset![To] = Trim(Text2.Text) Adodc1.Recordset![Date] = Combo4.Text & Combo5.Text & Combo6.Text Adodc1.Recordset![Day] = Combo1.Text Adodc1.Recordset![Time] = List4.Text & List1.Text Adodc1.Recordset![Arrival-Time] = List3.ListIndex & List2.ListIndex Adodc1.Recordset![Arrival-Date] = Combo7.Text & Combo3.Text & Combo2.Text Adodc1.Recordset![Cost] = Label2.Caption Adodc1.Recordset![Ticket-Number] = Trim(Text3.Text) Adodc1.Recordset![BusID] = Combo8.Text Adodc1.Recordset.Update
العلاقة :
المشكلة الان عندما أقوم بعملية الحفظ يظهر ر سالة خطأ
