تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
البحث اكثر من مرة
#1
If rs.State = 1 Then rs.Close
rs.CursorLocation = adUseClient

ساعات بعمل كذا بحث في نفس الوقت عن طريق combo اول مرة بتعمل بحث ثاني مرة تظهر رسالة خطا عند rs.close
فعايز كود لو
If rs.State = 1 Then rs.open
بس الكود ده في غلط اعمل ايه
الرد }}}}
تم الشكر بواسطة:
#2
تم عن طريق
Set rs = Nothing

شكرا جزيلا
الرد }}}}
تم الشكر بواسطة:
#3
باستعمال اداة داتا يمكنك عمل findfirst و findnext

ان كنت مهتما فسوف اضعها لك

كود :
Data1.Recordset.OpenRecordset
Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
في حال الايجاد نفذ
else
في حالة عدم الايجاد نفذ
endif

Data1.Recordset.OpenRecordset
Data1.Recordset.FindNext "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
في حال الايجاد نفذ
else
في حالة عدم الايجاد نفذ
endif
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عدد سجلات البحث Abdellah 7 154 15-09-17, 06:09 PM
آخر رد: عبد العزيز البسكري
  البحث عن ملف في اداة file list hannileo 2 83 31-08-17, 12:07 PM
آخر رد: hannileo
  [vb6.0] نتائج البحث ali.anwer87 7 218 22-07-17, 07:24 PM
آخر رد: ali.anwer87
  [vb6.0] عندي مشكلة في البحث ali.anwer87 4 156 05-07-17, 08:18 PM
آخر رد: ali.anwer87
  البحث بين تاريخين مصمم هاوي 5 225 06-06-17, 03:21 AM
آخر رد: Amir_alzubidy
  [vb6.0] البحث بشرطين Abdellah 14 743 13-05-17, 12:29 PM
آخر رد: Abdellah
  [vb6.0] طريقة استخلاص البحث من البحث larbihamri 13 523 06-05-17, 12:59 AM
آخر رد: Ahmed_Mansoor
  البحث بين تاريخين SQL 2008 +vb6 أبو عقيل 4 221 05-05-17, 08:57 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] ارجو المساعدة باجراء البحث بين MSHFlexGrid1 و MSHFlexGrid2 بحقل واحد و إجراء عملية ح عبدالقادرعواد 6 274 27-04-17, 11:56 AM
آخر رد: عبدالقادرعواد
  الاحتفاظ بنتائج البحث Abdellah 16 609 14-03-17, 03:05 AM
آخر رد: Abdellah

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


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