منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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

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

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

السلام عليكم

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

- تحياتي .

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

السلام عليكم

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

- تحياتي .

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

علوش

علوش

عبدالله الصافي

VB_Coder

علوش

VB_Coder