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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في تعديل بعد تشابه حقل البحث محمد حمد محمد سليمان 1 1,205 24-01-22, 04:45 AM
آخر رد: Taha Okla
  [vb6.0] أريد المساعدة بشأن كود أو برنامج يرسل لـ whatsapp صعب الوصول 10 5,797 21-11-21, 05:43 PM
آخر رد: mona82
  [vb6.0] هاام الى جميع الاخوة في المنتدى ارجو المساعدة husam.aj87 2 1,405 03-03-21, 08:20 PM
آخر رد: Amir_Alzubidy
  [سؤال] مشكلة في عرض رقم الصنف بعد البحث عنه الى الجريد-مرفق صورة توضيحية awidan76 47 11,087 30-10-19, 08:57 AM
آخر رد: Ahmed_Mansoor
  افضل طرق البحث بـ ado derbaliammar 6 5,974 12-08-19, 02:52 AM
آخر رد: ahmed.m
  [سؤال] المساعدة في تقريب الارقام عمور2016 5 3,311 30-01-19, 07:44 PM
آخر رد: sendbad100
  كيفية البحث وعمل فلتر للبيانات داخل Mysql ؟ gedo 2 2,170 07-11-18, 05:53 PM
آخر رد: gedo
  [vb6.0] أرجو المساعدة بتتمة المشروع سمير الجبالي 6 2,854 14-07-18, 11:28 PM
آخر رد: سمير الجبالي
Photo [سؤال] ارجو المساعدة تحويل الارقام في الاكتيف ريبورت حامد محمد 8 3,824 10-05-18, 04:44 AM
آخر رد: حامد محمد
  المساعدة بخصوص استدعاء كود من ملف نصي VB.NET 3 2,688 10-03-18, 03:50 PM
آخر رد: عبد العزيز البسكري

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


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