كيفية تغير جملة البروفيدر سيكول 2000 عند المستخدم

الحل بسيط

إجعل اسم السيرفر في ملف txt واجعل البرنامج يأخذ اسم السيرفر من الملف النصي ثم يضعة في جملة الكونيكشن.

آمل أن أكون قد أفدتك

كيف يتم عمل ذلك برجاء توضيح اكتر من ذلك لأني لسة مبيتدي

وشكرا علي الرد

شوف يا برنس الامر بسيط للغاية داخل جملة الاتصال هتكتب دوت . نقطة يعنى بدل اسم السيرفر عندك ودة معناه انه هيشتغل على السيرفر المحلى وهو هيحط اسم السيرفر اوتوماتك وهيتعامل معاه وعيش يا برنس و ادعيلى بالتوفيق

علاء أنس

:lol:

الاخ الفاضل علاء متشكر جدا لردك علية

ولكن ممكن تكتبلي جملة البروفيدر بالظيط عشان انا عملتها وظهر خطا

أخي مرحبا الموضوع ببساطة جداً يكون بهذه الطريقة

في الجنرال تضع الكود هذا

dim cn as new adodb.connection

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

هذا الكود لجلب أسم الكمبيوتر وحنستفيد منه لاحقاً

ثم في الفورم لود تضع الكود هذا

Dim a As String * 256
X = GetComputerName(a, 256)
yyrr = Left(a, InStr(a, Chr(0)) - 1)

حيث أن yyrr متغير يحمل أسم الكمبيوتر

بكذا عرفنا اسم الكمبيوتر المراد تشغيل البرنامج عليه وهذا شرط لكي نعل البروفيدر لا بد من معرفة أسم الكمبيوتر أو الآيبي وأنا افضل أسم الكمبيوتر

كود الإتصال حيكون بهذه الطريقة

cn.Open "Provider=SQLOLEDB.1;Server=" & yyrr & ";UID=sa;Pwd=mypassowrd;database=mydatabase"

وبكذا إحنا إنتهينا

لو أنته عارف أسم الكمبيوتر ما يحتاج الكود السابق فقط

cn.Open "Provider=SQLOLEDB.1;Server=" & "myservername" & ";UID=sa;Pwd=mypassowrd;database=mydatabase"

ملاحظة :: الطريقة هذه تنفع إذا كان اللي حيعمل على البرنامج جهاز واحد فقط اللي هو السيرفر لأنه لو عمل على جهاز آخر غير السيرفر فمعناتة حيجلب أسم الكمبيوتر المقصود الغير سيرفر ثم يضعه في البروفيدر وبكذا حيطلع إيرور لأنه ما يحصل القاعدة .

أرجو أن أكون قد أفدتك وللمعلومية فضلت أبحث ما يقارب ثلاثة شهور حتى وصلت للمعلومة هذه وهي جاتك على طبق من ذهب .. ولكن أنته تستاهل والأخوة هنا جميعاً .. تحياتي

اخ محمد vb يمكن الاستعاضة عن كل ما ذكرت بوضع نقطة بدل اسم الجهاز او وضع localhost

والاخ لصاحب السؤال بالنسبة لافضل طريقة هي عمل فورم بحيث تضع فيه اسم السيرفر وكلمة المرور والمستخدم واسم قاعدة البيانات وتخزن هذه المعلومات في ملف او في الريجستري او اي طريقة اخرى .

اما الطريفة التي من الممكن ان تعمل في اكثر الاحوال فهي استخدام الكونكشن التالي

Provider=sqloledb.1;Data Source=.;Initial Catalog=myDataBaseName;Integrated Security=SSPI;

الاخ الفاضل طارقVB فكرتك جيدة ولكن كيف اخزن اسم السيرفر واسم المستخدم وكلمة المرور واسم قاعدة البيانات في ملف نصي واجعلة في جملة البروفيدر علماً بأنني اريد تشغيل البرنامج علي 3 اجهزة ممكن لو تكرمت تعمل لي مثال سريع يوضح لي

مرفق مثال

provider.rar