تقييم الموضوع :
  • 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 .

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] رجاء المساعدة في اخفاء القيم الصفرية في هذا المشروع nourmandour 13 221 14-05-17, 06:03 PM
آخر رد: nourmandour
  اريد المساعدة في عمل برنامج مواقيت الصلاة نوراني 1 56 03-05-17, 09:34 AM
آخر رد: Ahmed_Mansoor
  [سؤال] برجاء المساعدة - كيفية عمل صفحة التعريف بالبرنامج عبد الرحمن على 11 190 30-04-17, 01:20 AM
آخر رد: عبد العزيز البسكري
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 9 201 15-04-17, 04:13 AM
آخر رد: sendbad100
  كيف يمكن التحكم بالترقيم في حال البحث gonm64 2 94 10-04-17, 11:27 PM
آخر رد: Ahmed_Mansoor
  [سؤال] ارجو المساعدة في تقسيم الارقام VB.NET 4 145 14-02-17, 05:32 AM
آخر رد: Ahmed_Mansoor
  [ تم الحل ] : البحث بأوّل حرف داخل الفليكس جريد عبد العزيز البسكري 5 313 30-11-16, 01:54 AM
آخر رد: عبد العزيز البسكري
  [سؤال] المساعدة في تقريب الارقام عمور2016 3 264 19-11-16, 12:08 PM
آخر رد: عمور2016
  ارجو المساعدة في تحويل اكواد bidaya 7 402 19-11-16, 04:27 AM
آخر رد: ابو ليلى
  [vb6.0] ارجو التعديل amer2000 2 267 08-08-16, 03:02 PM
آخر رد: amer2000

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


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