المشاركات : 491
المواضيع 63
الإنتساب : Sep 2013
السمعة :
2
الشكر: 33
تم شكره 272 مرات في 75 مشاركات
31-05-13, 01:04 AM
(آخر تعديل لهذه المشاركة : 31-05-13, 01:30 AM {2} بواسطة magh77.)
السلام عليكم
لدي قاعدة بيانات ب 180 الف سجل و عند البحث عن كلمة معينة يعلق يتجمد البرنامج البرنامج فهل من حل لذلك
المشاركات : 513
المواضيع 2
الإنتساب : Sep 2013
السمعة :
16
الشكر: 245
تم شكره 445 مرات في 172 مشاركات
السلام عليكم
- ماهو كود البحث الذي تستخدمه ؟
- ماهي الأداة التي تضع فيها نتائج البحث ، وكيف طريقة وضع النتائج في الأداة ؟
المشاركات : 372
المواضيع 15
الإنتساب : Sep 2013
السمعة :
28
الشكر: 487
تم شكره 1677 مرات في 187 مشاركات
السلام عليكم...
+1 : كما توقع أخي VB_Coder، غالباً ستكون المشكلة في طريقة البحث. فاكتب لنا كود البحث أو أرفقه.
سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
المشاركات : 491
المواضيع 63
الإنتساب : Sep 2013
السمعة :
2
الشكر: 33
تم شكره 272 مرات في 75 مشاركات
[HTML]On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveLast
Text7.Text = Data1.Recordset.RecordCount
zzr = Text7.Text - 1
zzra = zzr
For v = 0 To zzra
vv = v + 1
On Error Resume Next
Data1.Recordset.OpenRecordset
Data1.Recordset.MoveFirst
Data1.Recordset.Move (v)
Text15.Text = Data1.Recordset.Fields!word
Text16.Text = Data1.Recordset.Fields!mean
Text17.Text = Data1.Recordset.Fields!no
If Text1.Text = Text15.Text Then
Text2.Visible = True
Text2.Text = Text16.Text
Label2.Caption = Text16.Text
Command5.Visible = True
Command6.Visible = True
End If[/HTML]
يعني التكست 1 ادخل فيه كلمة البحث و يقوم البرنامج بقارنة كل سجل مع ما كتبته في التكست 1
فاذا وجده تظهر النتيجة في تكست 2 مثلا