السلام عليكم اخواني الاعزاء وجزاكم الله خير على مساعدتنا الدائمة
كنت ابحث عن كود الوارد والمنصرف وبعد عناء طويل وجدت هذا الكود الرائع جزاه الله الاخ VB_Coder والذي كان بتقنية DAO وقمت بتحويلة الى ADO والذي كان
قمت بعمل المثل المرفق بواسطته بهذا الكود :
ولكن واجهتني بعض المشاكل في الكود
وهي كالتالي :
المطلوب : عند كتابة رقم السيارة في Text1.text يطلع في الداتا جيرد البيانات الخاصة لهذه السيارة فقط
ارجوا المساعدة بحيث انني محتاج جداً لهذا
وجزاكم الله خير كثير ويرزقكم من حيث لاتحتسبوا
كنت ابحث عن كود الوارد والمنصرف وبعد عناء طويل وجدت هذا الكود الرائع جزاه الله الاخ VB_Coder والذي كان بتقنية DAO وقمت بتحويلة الى ADO والذي كان
PHP كود :
ActiveReport1.DAODataControl1.DatabaseName = App.Path & "\db1.mdb"
'ActiveReport1.DAODataControl1.RecordSource = " Select * From sam2"
ActiveReport1.DAODataControl1.RecordSource = "Select Operation" & _
",Date" & _
",Account_Number" & _
",Deposit" & _
",Clouds" & _
",(Select SUM(Deposit)-SUM(Clouds) From sam2 as Tbl Where Tbl.Account_Number=Tbn.Account_Number AND Tbl.Operation<=Tbn.Operation) as Balance" & _
" From sam2 as Tbn" & _
" Order By Date,Operation ASC"
DoEvents
ActiveReport1.Refresh
ActiveReport1.Show
قمت بعمل المثل المرفق بواسطته بهذا الكود :
PHP كود :
Set RS = New ADODB.Recordset
If RS.State = adStateOpen Then RS.Close
RS.CursorLocation = adUseClient
RS.Open "select OilID,CarID,OilDate,OilByan,carKMOld,carKMNew,CarKMCom,Oilward,Oilmosthlak,(Select SUM(Oilward)-SUM(Oilmosthlak) From TrafficTB as Tbl where Tbl.CarID LIKE '%" & UCase(Text1.Text) & "%' and Tb2.CarID LIKE '%" & UCase(Text1.Text) & "%' and Tbl.OilID<=Tb2.OilID) as Balance from TrafficTB as Tb2 Order By OilID ASC ", Db, adOpenStatic, adLockOptimistic
RS.MoveLast
Set DataGrid1.DataSource = RS
DoEvents
End Sub
ولكن واجهتني بعض المشاكل في الكود
وهي كالتالي :
المطلوب : عند كتابة رقم السيارة في Text1.text يطلع في الداتا جيرد البيانات الخاصة لهذه السيارة فقط
ارجوا المساعدة بحيث انني محتاج جداً لهذا
وجزاكم الله خير كثير ويرزقكم من حيث لاتحتسبوا
اعز معلمين :
1) Ahmed _Mansoor
2) sniper.ps
3) myalsailamy
4) ahmedabdelaliem
5) sendbad100
6)Amir_alzubidy
1) Ahmed _Mansoor
2) sniper.ps
3) myalsailamy
4) ahmedabdelaliem
5) sendbad100
6)Amir_alzubidy