تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة في كود البحث
#1
اخواني عند البحث بأول حرف يكون البحث بطي جدا بحيث عند كتابة حرف مثلا في التكست (ب) يأخذ وقت لكي يتم تنفيذ البحث
لا ادري ها المشكلة من الكود ارجو المساعدة
هذا هو الكود المستخدم
If RS.State = 1 Then RS.Close
Dim str3 As String
str3 = Text2.Text
RS.Open "select * from Items where ItmDesA like '" & str3 & "%'", rb, adOpenStatic, adLockOptimistic
Do While Not RS.EOF
I = I + 1
grid.Rows = I + 1
grid.TextMatrix(I, 1) = RS("BarCod1")
grid.TextMatrix(I, 2) = RS("ItmDesA")
grid.TextMatrix(I, 3) = RS("UntPri1")


RS.MoveNext
Loop
ارجو الافادة
الرد }}}}
تم الشكر بواسطة:
#2
ارجو المساعدة ولكم جزيل الشكر
الرد }}}}
تم الشكر بواسطة:
#3
ارجوك اخي ارفاق مثال للتعديل عليه فأظن ذلك افضل بكثير.
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

- جرب تستخدم هذه الطريقة ، أفضل وأسرع ، حيث أن التأخير في إظهار النتيجة هو اللوب Do الذي إستخدمته في كودك :

كود :
If RS.State = 1 Then RS.Close
Dim str3 As String
str3 = Text2.Text
RS.Open "select BarCod1 as BarCode,ItmDesA As Description,UntPri1 As UnitPrice from Items where ItmDesA like '" & str3 & "%'", rb, adOpenStatic, adLockOptimistic
IF RS.RecordCount > 0 Then
        Set grid.DataSource = RS
Else
grid.Rows = 2
grid.Clear
grid.TextMatrix(1, 0) = "BarCode"
grid.TextMatrix(2, 0) = "Description"
grid.TextMatrix(3, 0) = "UnitPrice"
End IF

- تحياتي .
الرد }}}}
تم الشكر بواسطة:
#5
اخي جريت الكود ولاكن يعطيني رسالة في المرفقات ارجو الاطلاع
[ATTACH=CONFIG]3388[/ATTACH]


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم

- يبدو أنك لم تقم بتعريف الكائن RS أو أن تعريفه موجود في كود فورم آخر أو في الموديل .
- ملاحظة : الأداة التي تقبل الإسناد المباشر لنتيجة البحث الموجودة في الكائن RS هي ال MSHFlexGrid وليست MSFlexGrid .

- تحياتي .
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 83 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 104 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 110 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [vb6.0] ارجو التعديل amer2000 2 135 08-08-16, 03:02 PM
آخر رد: amer2000
Smile ارجو المساعده العاجله منكم استايل 8 188 23-07-16, 04:53 AM
آخر رد: استايل
  ارجو المساعدة والتعديل وتصليح المشروع عمور2016 5 145 10-07-16, 12:26 PM
آخر رد: عمور2016
  [سؤال] البحث في مربع النص المعتصم بالله جمال الدين 6 200 21-06-16, 05:59 AM
آخر رد: المعتصم بالله جمال الدين
  اخواني ارجو تعديل الكود للبحث بين تاريخين علوش 7 796 20-06-16, 08:13 PM
آخر رد: Amir_alzubidy
  طلب المساعدة في إختيار قاعدة البيانات من الـ Combobox ثم الإتصال بها blida02 1 168 20-05-16, 09:22 PM
آخر رد: Ahmed_Mansoor
  [vb6.0] أرجو المساعدة ... الليست بوكس واكثر من اختيار List1.selected k_medhat 6 414 04-02-16, 04:07 AM
آخر رد: gadr

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم