السلام عليكم ورحمة الله وبركاته ،،،
J = Combo1.ListIndex SQL = "SELECT data.* From Data WHERE data.area= J;" Adodc1.RecordSource = SQL Adodc1.Refresh
تحدث مشكلة في إسناد قيمة J ، علماً بأن الحقل area نوعه text و قاعدة البيانات أكسس .
جزاكم الله خيراً .
تم تعديل هذه المشاركة بواسطة العبدلله في 25 مارس 2007 في 14:28
يجب ان تبتعد عن الاسماء المحجودزة كما في data
جرب الجملة بشكل التالي
Dim J J = Combo1.ListIndex SQL = "SELECT Xdata * From Data WHERE area= " & J &" " Adodc1.RecordSource = SQL Adodc1.Refresh
تم تعديل هذه المشاركة بواسطة HnHn في 25 مارس 2007 في 15:21
سجل ايميلك هنا
ليصلك كل ما هو مفيد في عالم البرمجةأخي الكريم جزاك الله خيراً على الرد .
للتذكير فإن الحقل area من نوع text و يتضمن الأرقام من 1 إلى 7 .
مشكلتي ليست في الكلمات المحجوزة لأن جملة الـ SQL تعمل جيداً ، عندما أضع رقم من 1 إلى 7
كالتالي :
WHERE table1.area= '6'
ملاحظة الأقواس من نوع " غير مقبولة نهائياً .
أريد الإسناد عن طريق أي متغير .
السلام عليكم
القيمة اللي انت عاوز تتدخلها من جمل SQL بتتوقف على نوع الحقل
لما الحقل يكون text يبقى لازم تضع في بهذه الطريقة
اولا قم بتحديد نوع المتغير ده الأفضل طبعا
Dim J As Integer OR Dim J As String
where .......... = '" & 6 & "' where .......... = '" & Text1.Text & "' where .......... = '" & Combo1.Text & "' where .......... = '" & J & "'
بصرف النظر عن القيمة المدخلة
لأن في هذه الحالة سيتعامل مع الـــ 6 على إنها text وليس Number
لأنك قلت له ذلك '" & 6 & "'
اما في حالة ان الحقل اللي نوع Number
فلابد ان تشيل هذه العلامة '
فيصبح الأتي
where .......... = " & 6 & " where .......... = " & Text1.Text & " where .......... = " & Combo1.Text & " where .......... = " & J & "
وشكرا
تم تعديل هذه المشاركة بواسطة MohamedAliSalim في 26 مارس 2007 في 13:59
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8
الله يرحم والديك و يجازيك كل خير ، لقد تمت العملية بنجاح .
لقد إستعملت
where .......... = '" & J & "'
تم تعديل هذه المشاركة بواسطة العبدلله في 26 مارس 2007 في 14:41
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…