+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] حفظ اعدادات الاتصال بالسيرفر -VB6 (/showthread.php?tid=17792)
حفظ اعدادات الاتصال بالسيرفر -VB6 - engabuhema - 26-10-16
دلوقتى انا صممت برنامج على vb6 وقاعدة بيانات sql عايز اعمل ملف ini يبقي فية اسم السيرفر واسم قاعدة البيانات ويقدر المستخدم يغير في الملف على اساس اسم الجهاز واسم قاعدة البيانات
RE: برجاء المساعدة - engabuhema - 26-10-16
بارك الله فيك اخي العزيز وشكرا على الاستجابة السريعة
اسف للاطالة وكثرة الاسئلة دي جملة sub main الخاصة باتصال برنامجي للاتصال بقاعدة البيانات محتاج اظبطها انها تاخد من ملف الاوبشن زي ما انت خليت التيكست ياخد منه
Private Sub Main()
'-----------------------------------------------------------------------
myConection.ConnectionString = "DRIVER=SQL Server;SERVER=SYSTEM;UID=sa;PWD=sa;APP=Microsoft® Windows® Operating System;WSID=CTSP;DATABASE=AlmadinaArcM"
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
'-----------------------------------------------------------------------
myConection.Open
If myConection.State = adStateOpen Then
MDIForm1.Show
Else
MsgBox "Error in Connecting Database please check Connection", vbCritical
End If
End Sub
RE: حفظ اعدادات الاتصال بالسيرفر -VB6 - engabuhema - 26-10-16
بارك الله فيك وجزاك الله كل خير
هو دة المطلوب فعلا شكرا جزيلا على ما قدمتة Amir_alzubidy
تم عمل التعديلات للتتماشي مع المشروع الخاص بي ولكن بعد عمل الاتصال وعمل البحث من داخل اي شاشة خاصة بالمشروع الخاص بي لا تظهر اى بيانات
قمت بتجربة المثال الذي قمت بارسالة واتصاله بقاعدة البيانات الخاصة بي تظهر نفس الرسالة لا توجد بيانات
فممكن تكون المشكلة فين