[princeofislam]

الاخوة الاعزاء اولا جزاكم الله عنا كل خير لما تقدموه لنا من علم وعمل في هذا المنتدى

ويا ريت المساعدة ممكن يملكون الوقت والعلم في برنامجي حيث انني عملت شركة صغيرة والحمد لله واريد ان اسحل البيانات ..ينقض يرنامجي كودين و هما العمود الفقري للبرنامج

adodc with datagrid

database name : KASS
recoredset name: KASS
Fileds are :
1-number
2-name
3-kind
4-date
5-total





1: كود البحث عن مجموعة من الفواتير بين الارقام الاخرى ..مثال الفواتير المدخلة من رقم 1 الى رقم 50 ما هو كود البحث للفواتير من رقم 8 الى رقم 46 مثلا ..

2: كود سحب الزبون من كل بضاعة ..مثال ... سحب احمد مادة الاسمنت من تاريخ 2/1//2014 لغاية تاريخ 14/3/2014 هو عشرة اطنان
يعني بحث باسم المادة واسم الزبون بين تاريحين ....مع مراعام انني استخدم ADODC AND DATAGRID

3- كود البحث بين تاريخن ياسم الزبون والمادة المسحوبة [/b]

اعرف ان الموضوع صعب نوعا ما لاكن الجئ اليكم بعد الله عز وجل ..عسى ان يكون من يملك الوقت والعلم ..وفقكم الله احبابي

[superwoofer]

الفاتورة

If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM الجدول WHERE اسم حقل الفاتورة BETWEEN " & Text1.Text & " AND " & Text2.Text & " ORDER BY اسم حقل الفاتورة ", db, 1, 3
Set DataGrid1.DataSource = rs
If rs.EOF Then
MsgBox "no found", vbInformation
End If

التاريخ

If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient

rs.Open "SELECT * FROM الجدول WHERE اسم حقل التاريخ between #" & DTPicker1 & " # and #" & DTPicker2 & "#" & " order by اسم حقل التاريخ", db, 1, 3

Set DataGrid1.DataSource = rs
If rs.EOF Then
MsgBox "no found", vbInformation
End If

[princeofislam]

اخي سوبر ...الكود اعطاني خطا ...هل من حل اخي ...رجاءا

[superwoofer]

ارفق البرنامج

[princeofislam]

تفضل ايها المبدع

http://vb4arb.com/vb/showthread.php?tid=1772

---

هذا هو البرنامج يا سيدي

ارجو من الله العون والمساعدة ومنكم بعد الله ......

[تركي الحلواني]

تم الرد في الموضوع السابق


البحث بين تاريخين