ما هى طريقة تكرار كود البحث

مصطفى_ظيمة كتب:

الأخوة الأعزاء

الكود التالى هو كود خاص بالبحث فى قاعدة sql

حاولت ان اجعل هذا الكود للبحث العام فى القاعدة عن طريق تكراره ولكنى فشلت

ارجو مراجعة الكود برمجيا من حيث صحته وان كان صحيحا كيف يتم تكراره حتى يتم البحث فى الحقول kind , source ,tex , notes

الكود

If Not IsDate(Trim(Text8.Text)) Then
If rs.State = adStateOpen Then rs.Close
          SQL = "SELECT * FROM [gen] WHERE [num]LIKE '%" & Trim(Text8) & "%'"
          rs.Open SQL, db, adOpenStatic, adLockPessimistic
End If

  SQL = "SELECT * FROM [gen] WHERE [num]LIKE '%" & Trim(Text8) & "%' or [kind] LIKE '%" & trim(text8.text) & "%' OR  [source] LIKE '%" & trim(text8.text) & "%' "

تحياتي

أخى الغالى شكرا وبارك الله فيك وجزاك الله خيرا

عندى سؤال اخر فهل يتسع صدرك لى ؟

اخى الغالى ان اتسع صدرك لى فالسؤال كالتالى

كود إظهار عدد السجلات التالى لايعمل على قاعدة البيانات sql فهل يمكن تعديله ؟ حيث انه يعطى خطأ فى السطر الاخير منه

Text7 = "القرار : 0 من 0 "
If rs.State = adStateClosed Then Exit Sub
Text7 = "القرار : " & rs.AbsolutePosition & " من" & rs.RecordCount

مصطفى_ظيمة كتب:

اخى الغالى ان اتسع صدرك لى فالسؤال كالتالى

كود إظهار عدد السجلات التالى لايعمل على قاعدة البيانات sql فهل يمكن تعديله ؟ حيث انه يعطى خطأ فى السطر الاخير منه

Text7 = "القرار : 0 من 0 "
If rs.State = adStateClosed Then Exit Sub
Text7 = "القرار : " & rs.AbsolutePosition & " من" & rs.RecordCount

هذا يعتمد على طريقة فتح الريكوردست .

لكي يعمل معك بطريقة صحيحه .. افتح الريكوردست بوضعية Static

أما في طريقتك الحالية .. يجب ان تقوم بعمل

Rs.movefirst
rs.movelast

Total=Rs.RecordCount

وبعد ذلك تستخدم المتغير total بدلا من RecordCount

تحياتي

اخى الغالى اعذرنى

يعنى هيكون شكل الكود ازاى