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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل يمكن استعمال اكتف ريبورت لعرض بيانات فبيها حقل صورة gonm64 7 1,205 11-09-22, 02:04 PM
آخر رد: مصمم هاوي
  عرض الصور من قاعدة بيانات اكسس داخل الداتا ريبورت mohammed_atallah 0 522 04-09-22, 09:17 AM
آخر رد: mohammed_atallah
Rainbow [سؤال] كيف اربط قاعدة بيانات باكسس 2010 بفجوال بيسك 6 العولقي١١ 5 2,911 07-03-22, 04:18 AM
آخر رد: مصمم هاوي
Question سؤال عن نوع قاعدة بيانات AmR EiSa 0 902 04-01-22, 11:10 PM
آخر رد: AmR EiSa
Rainbow مساعدة في قاعدة بيانات VB6+ACESS tareqhabib15 2 1,508 01-12-20, 08:54 PM
آخر رد: tareqhabib15
Rainbow [سؤال] مساعدة لعمل برنامج حضور وانصراف+وقاعدة بيانات+ربط بالوورد لسهولة طباعة بعض الفورمز فاطمة غ 10 11,623 31-10-20, 01:00 AM
آخر رد: ryadd
  استفسار عن طريقة الربط بين قاعدة بيانات اكسيس 2003 عن طريق الانترنت jordaniancopy 1 1,851 29-08-20, 11:46 PM
آخر رد: diggitalk2017@gmail.com
Photo كيف أضيف صورة الموظف في قاعدة البيانات وفي تقرير الكريستال amazonette 0 1,908 30-12-19, 01:25 PM
آخر رد: amazonette
  كيفية حماية قاعدة البيانات على الشبكة المحلية من النسخ والحذف abu jana 8 6,912 07-08-19, 11:04 PM
آخر رد: sendbad100
  تقريب الارقام وتخزينها في قاعدة البيانات amal_ly 2 2,210 29-03-19, 06:01 PM
آخر رد: sendbad100

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


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