اخواني الأعزاء
عند تنفيذ هذا الكود
Private Sub Command1_Click()
Dim Ssql As String
Dim Nname As String
Ssql = "select * from customer"
Nname = InputBox$("ادخل اسم العميل")
If Nname <> "" Then Ssql = Ssql & "where name=`" & Nname & "`"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = Ssql
Adodc1.Refresh
End Subوبعد كتابة قيمة داخل الINPUTBOX
تظهر لي رسالة
run-time error `2147217900 (80040e14)`:
method `refresh` of object `Iadodc` failed
لماذا يحدث ذلك وما الحل...............؟
Dim Ssql As String
Dim Ssql As String
Dim Nname As String
Ssql = "select * from customer "
Nname = InputBox$("ادخل اسم العميل")
If Nname <> "" Then Ssql = Ssql & " where name='" & Nname & "'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = Ssql
Adodc1.Refresh'جرب هذا الكود يااخي وإن شاء الله يشتغل معك
عفواً يا أخي عبد الله.....
الكود الذي اضفته الي هو نفس الكود الذي كتبته انا في بداية الرساله
ولم تضيف لي أي شيء....
ارجو اعادة كتابة الكود المراد ..؟؟؟
أخي مبتدئ
أضن ان الفرق يكمن في الإشارات (لا أدري كيف تسمى :D ) " ' " حيث أنت كتبت "`" و هذا في السطر
If Nname <> "" Then Ssql = Ssql & " where name=' " & Nname & " ' "
و الله أعلم
:)
شكراً الأخ عبد الله على المجهود وأأسف لأني لم ألا حظ العلامه:o
وجزاك الله خير يا أخ بركان على التوضيح الذي لم ألاحظه حيث اني جربت التغيير في الكود ونجح والحمد لله.....
السلام عليكم:
أعتقد أن هناك فرق آخر بين الكودين الموجودين وهو:
Ssql = "select * from customer" Ssql = "select * from customer "
حيث أنه في الأولى لم يترك مسافة في نهاية السلسة فعند توحيدها مع السلسة الثانية المتضمنة للشرط WHERE فإن الكلمتان ستلتصقان معاً.
وبالتالي ستصبح عبارة الـ SQL غير صالحة مما يعني أن المنهج Refresh سيفشل.
اشكرك يا اخوى ابو الهدى على على هذه الإفاده :)
بعد اذنكم لي استفسار....
عندما اريد ان اضع في الشرط where بحيث يظهر كل الأسماء التي بها اي جزء من الإسم المكتوب في مربع البحث مثلاً كتبت في مربع البحث
"حمد" فيظهر لي كل السجلات التي تحتوي على احمد و محمد
و حمدون وحمدان !!!!
فماذا اكتب في جملة الشرط where
ارجو الإفاده من اخواني
أخي مبتدئ ما عليك أن تفعل هو
مثلا:
Select * From [Authors] WHERE [Name] LIKE "*حمد*"
فلو وضعنا *حمد نحصل مثلا على أحمد, محمد ...
وإذا وضعنا حمد* نحصل على : حمدون, حمدان ...
وإذا وضعنا حم؟د نحصل على : حميد، حمد...
ونستطيع المزج بينهم...:)
والله أعلم.
اشكرك اخي بركان على حسن الإهتمام بالرد على سؤالى وسوف اجرب هذا الكود ان شاء الله وجزاك الله خير
اخوك في الله
أخي مبتدئ نحن في الخدمة ;)
اخي بركان كيف استطيع تنفيذ الكود السابق في هذا الكود
Dim Ssql As String
Dim Nname As String
Ssql = "select * from العملاء"
Nname = InputBox$("ادخل اسم العميل")
If Nname <> "" Then Ssql = Ssql & " where name >='" & Nname & "'"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = Ssql
Adodc1.Refresh
اعني كيف اضع العلامه * بجانب
'" & Nname & "'
سؤال آخر........................................
لو سمحت اخي .. ما فائدة العلامه & في الكود السابق
اخوك في الله
هذا الموضوع مغلق.