تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عمل قاموس باستخدام فيجوال بيسك 6 وربطه بقاعدة بيانات أكسيس Emad Nashaat 5 318 08-06-17, 05:23 AM
آخر رد: Amir_alzubidy
  [vb6.0] التنبيه عند استخدام قاعدة البيانات من مستخدم اخر amer2000 10 626 20-03-17, 10:50 PM
آخر رد: awidan76
  [vb6.0] استفسار عن كيفية اغلاق فورم في حال لم يوجد فيه بيانات فيجوال 0.6 عمر سالم 4 475 26-01-17, 03:37 PM
آخر رد: عمر سالم
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 8 1,583 01-12-16, 06:37 PM
آخر رد: Amir_alzubidy
  [سؤال] ادراج 0 بشكل افتراضي فق قاعدة البيانات أسامة حسين 2 313 18-08-16, 12:13 AM
آخر رد: استايل
  طلب المساعدة في إختيار قاعدة البيانات من الـ Combobox ثم الإتصال بها blida02 1 405 20-05-16, 09:22 PM
آخر رد: Ahmed_Mansoor
  كيف يتم انشاء استعلام كشف حساب مثل الذي في الصوره المرفقة من خلال فجوال البيسك الى قاعدة البيانات ؟؟ softmail8 1 808 16-02-15, 10:32 AM
آخر رد: Ashraf Elafify
  [كود] كود إدارج بيانات text عند الضغط على زر Enter Hell Cell 1 586 28-01-15, 02:42 PM
آخر رد: Amir_alzubidy
  أرجو الرد سريعا في نسخ بيانات من جدول الي اخر superwoofer 3 906 16-11-14, 07:52 PM
آخر رد: superwoofer
  ممكن حل مشكلة : البحث في قاعدة بيانات mysql في vb6 مكيد0 3 1,207 16-11-14, 02:04 PM
آخر رد: administrator

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


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