السلام عليكم و رحمة اله و بركاته
اخوتى اعضاء الفريف العربى للبرمجة
بعد التحية
اريد معرفة ما سبب الخطأ عند البحث باسم الكتاب ؟
يمكنك ادخال هذه الكلمة فى خانة اسم الكتاب : أجوبة - أجوبة فقهية
و شكرا
خطأ في كود البحث باسم الكتاب
إذا كت تريد تجاوز الخطأ فأضف السطر التالي
On Error Resume Next
يون الكود هكذا
Private Sub Form_Load() On Error Resume Next cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=hdb" rs.ActiveConnection = cn rs.CursorType = adOpenKeyset End Sub
{ رب أوزعني أن أشكر نعمتك التي أنعمت علي وعلى والدي وأن أعمل صالحاً ترضاه وأصلح لي في ذريتي إني تبت إليك وإني من المسلمين }
يا سيدى الفاضل
الكود لم يفلح لان الايرور فى السطر
Public Sub FindRecords
و حتى لو تجاوزت الايرور فالبحث لن ينجح
ما هي رسالة الخطأ التي تظهر لك ، لأني لا أستطيع فتح البرنامج بسبب عدم وجود SQL Server
اقتباسإذا كت تريد تجاوز الخطأ فأضف السطر التاليOn Error Resume Next
يون الكود هكذا
هذا الجزء من الكود ليس فيه خطأ ، المشكلة هي غالبًا عدم وجود SQL Server لديك أيضًا ..
سبحان الله وبحمده ... سبحان الله العظيم
السلام عليكم
من رسالة الخطأ
RS غير متصلة لذا عليك التأكد قبل الدخول في FINDRecords بأن تكون مفتوحة
بالتالي الخطأ يكون في Command1_Click
If rs.State = 1 Then rs.Close
---------------------------------
RS.open هنا
-------------------------------
Call FindRecords
-----------------------------------------
ولا اعرف لم تستخدمين Create View وانما الافضل التنفيذ مباشرة مثل
DIM sql as string
sql= " select * from table1 where bname like '%" & Text1.Text & "%'"
rs.open sql
لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي
ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك
أنت وتصرفاتك
ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه
اشد آلام ... فصمتي أنا عنوان
شكرا جزيلا أخ TaereqVB و أشكرك يا اخى مصطفى
أنتم مش بس أعضاء شرف للمنتدى انتم أعضاء شرف لبلادكم بجد