منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
ارجو المساعدة في كود البحث - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : ارجو المساعدة في كود البحث (/showthread.php?tid=9623)

ارجو المساعدة في كود البحث - علوش - 16-07-13

اخواني عند البحث بأول حرف يكون البحث بطي جدا بحيث عند كتابة حرف مثلا في التكست (ب) يأخذ وقت لكي يتم تنفيذ البحث
لا ادري ها المشكلة من الكود ارجو المساعدة
هذا هو الكود المستخدم
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
ارجو الافادة

ارجو المساعدة في كود البحث - علوش - 16-07-13

ارجو المساعدة ولكم جزيل الشكر

ارجو المساعدة في كود البحث - عبدالله الصافي - 16-07-13

ارجوك اخي ارفاق مثال للتعديل عليه فأظن ذلك افضل بكثير.

ارجو المساعدة في كود البحث - VB_Coder - 17-07-13

السلام عليكم

- جرب تستخدم هذه الطريقة ، أفضل وأسرع ، حيث أن التأخير في إظهار النتيجة هو اللوب 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

- تحياتي .

ارجو المساعدة في كود البحث - علوش - 17-07-13

اخي جريت الكود ولاكن يعطيني رسالة في المرفقات ارجو الاطلاع
[ATTACH=CONFIG]3388[/ATTACH]

ارجو المساعدة في كود البحث - VB_Coder - 18-07-13

السلام عليكم

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

- تحياتي .