+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : قاعدة بيانات 180 الف سجل (/showthread.php?tid=9097)
قاعدة بيانات 180 الف سجل - asto - 31-05-13
السلام عليكم
لدي قاعدة بيانات ب 180 الف سجل و عند البحث عن كلمة معينة يعلق يتجمد البرنامج البرنامج فهل من حل لذلك
قاعدة بيانات 180 الف سجل - VB_Coder - 31-05-13
السلام عليكم
- ماهو كود البحث الذي تستخدمه ؟
- ماهي الأداة التي تضع فيها نتائج البحث ، وكيف طريقة وضع النتائج في الأداة ؟
قاعدة بيانات 180 الف سجل - ناجي إبراهيم - 31-05-13
السلام عليكم...
+1 : كما توقع أخي VB_Coder، غالباً ستكون المشكلة في طريقة البحث. فاكتب لنا كود البحث أو أرفقه.
سلام.
قاعدة بيانات 180 الف سجل - asto - 31-05-13
[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 مثلا
قاعدة بيانات 180 الف سجل - VB_Coder - 31-05-13
السلام عليكم
- هذا هو أعتقد الكود المناسب للبحث , أنا لا أتعامل مع أداة الـDataControl كثيراً :
كود :
Data1.Recordset.FindFirst "[word]='" & Trim$(Text1.Text) & "'"
If Not Data1.Recordset.NoMatch Then
Text2.Text = Data1.Recordset.Fields!mean
Else
MsgBox "لم يتم العثور على نتيجة"
End If- تحياتي .
قاعدة بيانات 180 الف سجل - @@أبورائد@@ - 31-05-13
السلام عليكم ورحمة الله وبركاته
لا يوجد لدي 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
السلام عليكم ورحمة الله وبركاته
قاعدة بيانات 180 الف سجل - asto - 31-05-13
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