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

ارجو المساعدة كود البحث لا يعمل

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

السلام عليكم ورحمو الله وبركاته

هذه مشاركتي الاولى بالمنتدى الجميل امل ان نلقى الفائدة إن شاء الله

لدى برنامج استخدمت فيه قواعد بيانات من نوع اكسس وربطها بفيجوال بيسك 6 عن طريق الاداة DATA CONTROL

الا ان المشكلة ان كود البحث التالي لا يعمل

Dim x As String

x = InputBox("ادخل الاسم")

If x = Cancel Then Exit Sub

Data1.RecordSource = "SELECT * FROM TELE2006 WHERE NAME LIKE '*" & x & "*'"

Data1.Refresh

End Sub

وتاتي رسالة خطاء تقول RUN TIME ERROR '3075' SYNTAX ERROR (MISSING OPERATOR ) IN QUERY EXPRESSION

اتمنى من الجميع التعاون معي والرد باقصى سرعة ولكم جزيل الشكر

#2

عليكم السلام ورحمة الله وبركاته

جرب

Data1.RecordSource = "SELECT * FROM TELE2006 WHERE [NAME] LIKE '%" & x & "%'"

وإذا ما نفع التعديل ارفق المثال هنا

460.gif

#3

جرب هذا الكود

On Error GoTo eer
Dim p, t, s, y As String
p = " ÃÏÎá ÇÓã ÇáØÇáÈ "
t = " ÈÍË "
y = InputBox(t, p)
If Len(y) = 0 Then
Exit Sub
Else
nam = y
s = "nname='" + y + "'"
Data1.Recordset.FindFirst s
If Data1.Recordset.NoMatch = True Then
MsgBox "åÐÇ ÇáÇÓã ÛíÑ ãÓÌá ... ÍÇæá ãÑÉ ÃÎÑì "
Else
Text1.Text = Data1.Recordset.Fields!num
Text2.Text = Data1.Recordset.Fields!nname
Text3.Text = Data1.Recordset.Fields!balance1
Text4.Text = Data1.Recordset.Fields!ddate
Text5.Text = Data1.Recordset.Fields!aadd
Text5.Text = Data1.Recordset.Fields!balance2
End If
eer:
Exit Sub
End If
End Sub
 [code/]
مع ملاحظة تعريف المتغير nam من نوع public في القائمة العامة لتعريف المتغيرات

      
      

      
    

  

    
    

      
#4
        
        

      
السلام عليكم ورحمة الله تعالى وبركاته ....
 أخي الكريم عند ما تضع 
data1.roccordsource = "STRING SQL "
 يجب عليك أولا وضع 
data1.roccordset.open
من الأحسن إستعمال الكائن :ADO.OCX
الله يوفقك في إنجازاتك 
 الحاج نقبيل 
 برمجة عامة

      
      

      
    

  

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

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