الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود بحث !

مغلق
بدأه HnHn في 18 يونيو 2004 · 7 رد · 771 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هذا كود للبحث بس موراضي يتنفذ معاي ولا تظهر البيانات في الحقول 

   db.Provider = "Microsoft.JET.OLEDB.4.0;"
   db.Open App.Path & "\dbstor.mdb"
   rs.Open "[Table1]", db, adOpenStatic, adLockPessimistic

If Combo1.Text = "نوع الجهاز" Then On Error GoTo errr
Dim s1 As String
s1 = "select * from Table1 where typ =" & Trim(txtSearch)
Set rs = db.OpenRecordset(s1, 2)
Set MY = ListView1.ListItems.Add
    MY.SubItems(1) = rs!id
    MY.SubItems(2) = rs!Code
    MY.SubItems(3) = rs!typ
    MY.SubItems(4) = rs!IDNO
Exit Sub
errr:
MsgBox Chr(10) + Str(err.Number) + Chr(13) + err.Description + Chr(13) + "ليس موجود في القاعده"

End If

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#2 
If Combo1.Text = "نوع الجهاز" Then On Error GoTo errr
Dim s1 As String
s1 = "select * from Table1 where typ = '" & Trim(txtSearch) & "'"
Set rs = db.OpenRecordset(s1, 2)
Set MY = ListView1.ListItems.Add
MY.SubItems(1) = rs!id
MY.SubItems(2) = rs!Code
MY.SubItems(3) = rs!typ
MY.SubItems(4) = rs!IDNO
Exit Sub
errr:
MsgBox Chr(10) + Str(err.Number) + Chr(13) + err.Description + Chr(13) + "ليس موجود في القاعده"
End If

دورة تعليمية في تصميم دليل هاتف بلغة دلفي جديد

دورة شاملة في VB.NETجديد

برنامج مثبت نظام المستخدمين - الاصدار الثاني جديد

اعمل أزرار جميلة بتأثيرات رائعة بسهولة

تعلم الأداة MsFlexGrid : سلسلة دروس تعليمية

أداة التدرج اللوني مع الكود للراغبين بالاطلاع على برمجة ActiveX

هدية : أداة OCX من أجل ضبط النص في أداة textBox

arabmoheet.gif

#3

لا زال الخطأ موجود أنظر للصورة

post-1-1087525812_thumb.jpg

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#4

السلام عليكم 

If Combo1.Text = "نوع الجهاز" Then '1200
On Error GoTo errr
Dim s1 As String
s1 = "select * from Table1 where typ =" & Trim(txtSearch)
Set rs = db.OpenRecordset(s1, 2)
with rs
       if .eof then '500

MsgBox Chr(10) + Str(err.Number) + Chr(13) + err.Description + Chr(13) + "ليس موجود في القاعده"
else
do until  .eof 

Set MY = ListView1.ListItems.Add
MY.SubItems(1) = rs!id
MY.SubItems(2) = rs!Code
MY.SubItems(3) = rs!typ
MY.SubItems(4) = rs!IDNO

.movenext
doevents
                 end if '/500
end with


end if '/1200

الإنسان الذي يقول بأنه لا يمكن عمل شيء يجب ألا يعيق مطلقاً الإنسان الذي يقوم بعمل ذلك الشيء.

إن تخطئ فأنت إنسان ... أما أن تلوم جهازك الكمبيوتر على خطأك فهذا أكثر إنسانية.

#5

أشكرك أخي الكريم على ردك ولكن

عندي سؤال في البداية

لماذا 1200 و 500 وضعتهما كتعليق إلى ماذا تلمح أو ترمز

والكود لم يعمل وتظهر رسالة خطأ في

end if ' 500

لذا قمت بنزيل المثال لرءية الأكواد هل هي صحيح أم

ماذا وأرجو اأفادة

find.zip

تم تعديل هذه المشاركة بواسطة HnHn في 18 يونيو 2004 في 18:31

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#6

مامن مجيب

أرجو الاطلاع على أكواد البرنامج وأخباري أين الخطأ

بلييييييييييييييزا

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#7

If Combo1.Text = "نوع الجهاز" Then

Dim s1 As String

s1 = "select * from Table1 where typ ='" & Trim(txtSearch.Text) & "'"

Set rs = db.OpenRecordset(s1)

If rs.RecordCount > 0 Then

rs.MoveFirst

Do While Not rs.EOF

Set MY = ListView1.ListItems.Add

MY.SubItems(1) = rs!id

MY.SubItems(2) = rs!Code

MY.SubItems(3) = rs!typ

MY.SubItems(4) = rs!IDNO

rs.MoveNext

Loop

End If

End If

#8 
If Combo1.Text = "نوع الجهاز" Then
Dim s1 As String
s1 = "select * from Table1 where typ ='" & Trim(txtSearch.Text) & "'"
Set rs = db.OpenRecordset(s1)
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While Not rs.EOF
Set MY = ListView1.ListItems.Add
MY.SubItems(1) = rs!id
MY.SubItems(2) = rs!Code
MY.SubItems(3) = rs!typ
MY.SubItems(4) = rs!IDNO
rs.MoveNext
Loop
End If
End If

هذا الموضوع مغلق.

مواضيع مشابهة