السلام عليكم
لدي سؤال وهو كيفية تغيير جملة الاتصال )
ConnectionString ( اثناء تنفيذ البرنامج
مثلا مسار قاعدة البيانات
C:\Database.accdb
اريد التحقق من المسار اذا كان موجود والا عرض
OpenFileDialog لاختيار مسار اخر للقاعدة البيانات
وشكراً
[COLOR="#800000"]السلام عليكم
يرجى كتابة عنوان يدل على المحتوى بارك الله فيك[/COLOR]
اخي العزيز يمكنك التحقق من وجود الملف عن طريق الكائن File والدالة Exist ,فاذا كان الملف غير موجود في المسار المحدد عن ذلك يمكنك عرض الopenfiledialog
واعطاء المسار الجديد الى متغير هكذا:
PHP كود :
path=@openfiledialog.FileName
بالتوفيق ان شاءالله
شكرا اخي العزيز قمت بعمل الفكرة مسبقاً ولاكن مشكلتي في جملة الاتصال
خاصة وان جملة الاتصال في Module
اريد تغيير جملة الاتصال
كود :
Dim cons As String = ("Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data source =" & Application.StartupPath & "\Test.accdb;" & _
"Jet OLEDB:Database password=123")
بخيث يتغير المسار حسب متغير مثلاً قمت بعمل الفكرة ولاكني واجهة مشكلة
من فضلك شوف المثال المرفق
استخدم My.settings اضف ضبط جديد من نوع string وقم بتسميته dbpath
وضمن الموديول
كود :
Public databasepath As String = My.Settings.dbpath
شكراً لك اخي سعود
ولاكن هل يمكن تغيير جملة الاتصال اثناء التشغل
انظر الى المثال في المرفقات اتمنى لو تتم العملية بدون اعداة تشغيل البرنامج
قم بوضع كود التعريف ضمن دالة في الموديول افضل لكي تستطيع الاستفادة منها باي وقت من دون الحاجة لاعادة التشغيل .. لولم تتمكن اكتب رد.
نعم تم الحل شكرا لك اخي سعود
وهذا المثال يرجى التاكد من صحته
السادة الافاضل
لا يستطيع الاتصال بقاعدة البيانات
هناك خطأ معين
الاخ سعود يرجاء المساعدة
المثال مرفق ستواجه خطا في حال ان الجدول باسم غير tb وايضا العمود باسم غير tname
اين قاعدة البيانات انا مش لاقيها لانه ظهرت عندي مشكلة غالبا عدم وجود القاعدة