المشاركات : 18
المواضيع 7
الإنتساب : Jun 2016
السمعة :
0
الشكر: 7
تم شكره 22 مرات في 10 مشاركات
26-10-16, 11:49 AM
(آخر تعديل لهذه المشاركة : 26-10-16, 03:01 PM {2} بواسطة Amir_Alzubidy.)
دلوقتى انا صممت برنامج على vb6 وقاعدة بيانات sql عايز اعمل ملف ini يبقي فية اسم السيرفر واسم قاعدة البيانات ويقدر المستخدم يغير في الملف على اساس اسم الجهاز واسم قاعدة البيانات
------------------------------
Eng . Ahmed Eldouskey Mohamed Saad
Technical Support Professional
المشاركات : 18
المواضيع 7
الإنتساب : Jun 2016
السمعة :
0
الشكر: 7
تم شكره 22 مرات في 10 مشاركات
بارك الله فيك اخي العزيز وشكرا على الاستجابة السريعة
اسف للاطالة وكثرة الاسئلة دي جملة 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
------------------------------
Eng . Ahmed Eldouskey Mohamed Saad
Technical Support Professional
المشاركات : 18
المواضيع 7
الإنتساب : Jun 2016
السمعة :
0
الشكر: 7
تم شكره 22 مرات في 10 مشاركات
26-10-16, 03:25 PM
(آخر تعديل لهذه المشاركة : 26-10-16, 05:56 PM {2} بواسطة engabuhema.)
بارك الله فيك وجزاك الله كل خير
هو دة المطلوب فعلا شكرا جزيلا على ما قدمتة Amir_alzubidy
تم عمل التعديلات للتتماشي مع المشروع الخاص بي ولكن بعد عمل الاتصال وعمل البحث من داخل اي شاشة خاصة بالمشروع الخاص بي لا تظهر اى بيانات
قمت بتجربة المثال الذي قمت بارسالة واتصاله بقاعدة البيانات الخاصة بي تظهر نفس الرسالة لا توجد بيانات
فممكن تكون المشكلة فين
------------------------------
Eng . Ahmed Eldouskey Mohamed Saad
Technical Support Professional