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

أرجو مساعدتى فى كتابة كود البحث

مغلق
بدأه waterfall في 31 أغسطس 2004 · 4 رد · 590 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

المشكله أننى أعمل على مشروع وأننى مبتدئ فى تعلم الفيجوال بيزك، وهذا المشروع شبيه بالمرفق،ولكنى لا أعلم كيفية كتابة كود البحث بهذه الطريقه والتى فيها أدخل إسم شخص فى مربع تكست ثم أضغط على زر "بحث" فيظهر لى النتيجه مقسمه فى المربعات الموجودة..أى يظهر الإسم الأول والإسم الأخير والعنوان كل فى مربعه وذلك من خلال قاعدة البيانات المرتبطه..فأرجو التكرم بمساعدتى ،مع العلم بأننى قرأت أكثر المساهمات فى منتداكم الجميل وإستفدت كثيرآ من دروسكم...ولكنى لم أجد هذه الطريقه التى أريد البحث بها فى مشروعى ووجدت طرق أخرى لتسوية البحث ولكنها لاتناسب المشروع.. والله لقد حاولت كثيرآ تعلم البحث فى الفيجوال بيزك ولكن الدروس بطريقه أخرى غير التى أريدها... وشاكر لكم المساعده...

New Folder.zip

#2

هذا الأمر ممكن أن ينفع:

Private Sub Command1_Click()
 Data1.Refresh
 If Text1 = "" Then MsgBox "ÃÏÎá ÇÓã", vbOKOnly + vbInformation, "ÇáÈÍË": Exit Sub
 rec = Data1.Recordset.RecordCount
 If rec = 0 Then Exit Sub
 tas = Text1
 aq = "[ÇáÇÓã]='" + Trim((tas)) + "'"
 Data1.Recordset.FindFirst aq
 If Data1.Recordset.NoMatch Then tmp1 = MsgBox("ÇáÇÓã ÛíÑ ãæÌæÏ", vbOKOnly + vbInformation, "Ïáíá ÇáåÇÊÝ"): Exit Sub
 a0 = Data1.Recordset.Fields(0): If IsNull(a0) Then a0 = ""
 a0 = Data1.Recordset.Fields(0): If IsNull(a0) Then a0 = ""
 a1 = Data1.Recordset.Fields(1): If IsNull(a1) Then a1 = ""
 a2 = Data1.Recordset.Fields(2): If IsNull(a2) Then a2 = ""
 Text1 = a0
 Text2 = a1
 Text3 = a2
End Sub

lxcs.png

syria-flag_small.jpg

#3

هذا الكود ممكن يساعدك:

Private Sub Command1_Click()
 Data1.Refresh
 If Text1 = "" Then MsgBox "ÃÏÎá ÇÓã", vbOKOnly + vbInformation, "ÇáÈÍË": Exit Sub
 rec = Data1.Recordset.RecordCount
 If rec = 0 Then Exit Sub
 tas = Text1
 aq = "[ÇáÇÓã]='" + Trim((tas)) + "'"
 Data1.Recordset.FindFirst aq
 If Data1.Recordset.NoMatch Then tmp1 = MsgBox("ÇáÇÓã ÛíÑ ãæÌæÏ", vbOKOnly + vbInformation, "Ïáíá ÇáåÇÊÝ"): Exit Sub
 a0 = Data1.Recordset.Fields(0): If IsNull(a0) Then a0 = ""
 a0 = Data1.Recordset.Fields(0): If IsNull(a0) Then a0 = ""
 a1 = Data1.Recordset.Fields(1): If IsNull(a1) Then a1 = ""
 a2 = Data1.Recordset.Fields(2): If IsNull(a2) Then a2 = ""
 Text1 = a0
 Text2 = a1
 Text3 = a2
End Sub

و لو محتاج مثال أنا مستعد

تم تعديل هذه المشاركة بواسطة SalehRam DTPort في 31 أغسطس 2004 في 15:09

lxcs.png

syria-flag_small.jpg

#4

السلام عليكم

هذا المثال بعد التعديل

تحياتي لك :)

prof_1982.zip

تم تعديل هذه المشاركة بواسطة prof_1982 في 31 أغسطس 2004 في 15:22

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

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

#5

وااله شكرآ جزيلآ وجزاكم الله خيرآ .... ماتصورتش الرد السريع السهل الممتنع ده...وفقكم الله... الكود إشتغل ميه ميه

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

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