تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قاعدة بيانات 180 الف سجل
#1
السلام عليكم

لدي قاعدة بيانات ب 180 الف سجل و عند البحث عن كلمة معينة يعلق يتجمد البرنامج البرنامج فهل من حل لذلك
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- ماهو كود البحث الذي تستخدمه ؟
- ماهي الأداة التي تضع فيها نتائج البحث ، وكيف طريقة وضع النتائج في الأداة ؟
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم...

+1 : كما توقع أخي VB_Coder، غالباً ستكون المشكلة في طريقة البحث. فاكتب لنا كود البحث أو أرفقه.

سلام.
بِسْمِ اللهِ الرَّحْمَنِ الرَّحِيمِ ( وَ مَا تُقَدِّمُوا لِأَنفُسِكُم مِّنْ خَيْرٍ تَجِدُوهُ عِندَ اللهِ هُوَ خَيْراً وَ أَعْظَمَ أَجْراً ) صَدَقَ اللهُ الْعَظِيمُ
الرد }}}}
تم الشكر بواسطة:
#4
[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 مثلا
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم

- هذا هو أعتقد الكود المناسب للبحث , أنا لا أتعامل مع أداة الـDataControl كثيراً :

كود :
Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"

If Not Data1.Recordset.NoMatch Then
   Text2.Text = Data1.Recordset.Fields!mean
Else
   MsgBox "لم يتم العثور على نتيجة"
End If

- تحياتي .
الرد }}}}
تم الشكر بواسطة:
#6

السلام عليكم ورحمة الله وبركاته




لا يوجد لدي VB6، لذا أرجو من الأخوة الأعضاء مراجعة الكود


PHP كود :
Dim sql As String
    sql 
=  _
        
" SELECT * " _
        
" FROM table1 " _
        
" WHERE [word] = '" Text1.Text "' "
    
    ''
Set rs db.OpenRecordset(sql)
    
    
Data1.Recordset.OpenRecordset.Open sql
    
    
If rs.RecordCount 0 Then
        Text15
.Text Data1.Recordset.Fields!word
        Text16
.Text Data1.Recordset.Fields!mean
        Text17
.Text Data1.Recordset.Fields!no
        Text2
.Visible True
        Text2
.Text Text16.Text
        Label2
.Caption Text16.Text
        Command5
.Visible True
        Command6
.Visible True
    End 
If 





السلام عليكم ورحمة الله وبركاته
 
 
@@@ سامحوني، منقطع نهائياً @@@

 
الرد }}}}
تم الشكر بواسطة:
#7
VB_Coder كتب :السلام عليكم

- هذا هو أعتقد الكود المناسب للبحث , أنا لا أتعامل مع أداة الـDataControl كثيراً :

كود :
Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"

If Not Data1.Recordset.NoMatch Then
   Text2.Text = Data1.Recordset.Fields!mean
Else
   MsgBox "لم يتم العثور على نتيجة"
End If

- تحياتي .

مشكور جدا

طيب كيف البحث بتحقق شرطين معا يعني نضيف تكست 3

و اذا ما تم ايجاد ما هو مكتوب في تكست 1 و كان تكست 3 يساوي مثلا 6 ننفذ ما ضمن if
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 195 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 9 145 23-11-16, 09:41 AM
آخر رد: amer2000
  [سؤال] ادراج 0 بشكل افتراضي فق قاعدة البيانات أسامة حسين 2 132 18-08-16, 12:13 AM
آخر رد: استايل
  طلب المساعدة في إختيار قاعدة البيانات من الـ Combobox ثم الإتصال بها blida02 1 169 20-05-16, 09:22 PM
آخر رد: Ahmed_Mansoor
  كيف يتم انشاء استعلام كشف حساب مثل الذي في الصوره المرفقة من خلال فجوال البيسك الى قاعدة البيانات ؟؟ softmail8 1 598 16-02-15, 10:32 AM
آخر رد: Ashraf Elafify
  [كود] كود إدارج بيانات text عند الضغط على زر Enter Hell Cell 1 380 28-01-15, 02:42 PM
آخر رد: Amir_alzubidy
  أرجو الرد سريعا في نسخ بيانات من جدول الي اخر superwoofer 3 658 16-11-14, 07:52 PM
آخر رد: superwoofer
  ممكن حل مشكلة : البحث في قاعدة بيانات mysql في vb6 مكيد0 3 905 16-11-14, 02:04 PM
آخر رد: administrator
  قاعدة بيانات2010 ahmed3d 2 434 22-08-13, 04:38 PM
آخر رد: ahmed3d
  == ماذا نعني ب ضغط وإصلاح قاعدة البيانات == sniperjawadino 4 792 04-08-13, 04:39 PM
آخر رد: sniperjawadino

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


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