16-12-12, 05:17 PM (آخر تعديل لهذه المشاركة : 16-12-12, 05:22 PM {2} بواسطة سعود.)
[COLOR="#800000"]السلام عليكم
يرجى كتابة عنوان يدل على المحتوى بارك الله فيك[/COLOR]
اخي العزيز يمكنك التحقق من وجود الملف عن طريق الكائن File والدالة Exist ,فاذا كان الملف غير موجود في المسار المحدد عن ذلك يمكنك عرض الopenfiledialog
واعطاء المسار الجديد الى متغير هكذا:
استخدم My.settings اضف ضبط جديد من نوع string وقم بتسميته dbpath
وضمن الموديول
كود :
Public databasepath As String = My.Settings.dbpath
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
قم بوضع كود التعريف ضمن دالة في الموديول افضل لكي تستطيع الاستفادة منها باي وقت من دون الحاجة لاعادة التشغيل .. لولم تتمكن اكتب رد.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
المثال مرفق ستواجه خطا في حال ان الجدول باسم غير tb وايضا العمود باسم غير tname
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
