[صدق]

  exmpl.rar (الحجم : 94.5 ك ب / التحميلات : 149) الاخوة الافاضل 
نامل منكم مساعدتي في جلب البيانات بين تاريخين من قاعدة بيانات Sql sever2005  باستخدام vb6
مثلا جلب البيانات من 1/6/2015 الى 15/8/2015 مرفق مثال نامل من الاساتذه الافاضل تعديله كي اعرف مكمن الخطاء
 ولكم جزيل الشكر والعرفان وجعله الله في ميزان حسناتكم

[نقاء الروح]

(24-08-15, 01:04 AM)صدق كتب : الاخوة الافاضل 
نامل منكم مساعدتي في جلب البيانات بين تاريخين من قاعدة بيانات Sql sever2005  باستخدام vb6
مثلا جلب البيانات من 1/6/2015 الى 15/8/2015 مرفق مثال نامل من الاساتذه الافاضل تعديله كي اعرف مكمن الخطاء
 ولكم جزيل الشكر والعرفان وجعله الله في ميزان حسناتكم

---

وانا ايضا بحاجة لذلك \ يا ليت لو يرد ع السؤال احد الاخوة

[abulayth]

السلام عليكم
اخي الكريم الرجاء ارفاق مثال لكي يتم التعديل عليه من قبل الاعضاء
يعطيك العافية

[محمد العبيدي]

اخي عليك ان تستخدم كود البحث بالشكل التالي:

select * from Table where Convert(Datetime,date) between Convert(Datetime,'2015-01-21') AND Convert(Datetime,'2015-03-29')
حيث شكل التاريخ يجب ان يكون يوم-شهر-سنة
بس ياريت لو اتغير اسم العمود الي انت مسمي date لانو في الSQL2008 اتكون كلمة محجوزة واتسببلك مشاكل
واسم التيبل هم كلمة محجوزة تكدر اتضيف رقم و حرف حته تفرقه كن الكلمات المحجوزة

[نقاء الرووح^^]

(29-10-15, 10:18 PM)نقاء الروح كتب :

(24-08-15, 01:04 AM)صدق كتب : الاخوة الافاضل 
نامل منكم مساعدتي في جلب البيانات بين تاريخين من قاعدة بيانات Sql sever2005  باستخدام vb6
مثلا جلب البيانات من 1/6/2015 الى 15/8/2015 مرفق مثال نامل من الاساتذه الافاضل تعديله كي اعرف مكمن الخطاء
 ولكم جزيل الشكر والعرفان وجعله الله في ميزان حسناتكم

---

وانا ايضا بحاجة لذلك \ يا ليت لو يرد ع السؤال احد الاخوة

ردوووووووووا فضلا

[Ahmed_Mansoor]

أهلا أخي الكريم , هذا هو الكود الصحيح للبحث بين تاريخين في المثال المرفق , حيث يجب تغيير إسم الجدول من Table إلى Table1 ويجب تغيير إسم حقل التاريخ من Date إلى مثلا zDate لأن كلمة Table و Date محجوزة للـ SQL Server :

كود :

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=finddate;Data Source=SQLEXPRESS"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "Select * From Table1 Where zDate>=CONVERT(datetime,'" & DT1.Value & "',103) AND zDate<=CONVERT(datetime,'" & DT2.Value & "',103) Order By zDate ASC"
Adodc1.Refresh

[awidan76]

جزاك الله خير يالغالي اخي احمد