الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال مهم وعاجل ؟

مغلق
بدأه Alghamdi_A في 25 مايو 2004 · 2 رد · 1,024 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأخوة الأعزاء ..

عملت برنامج شؤون موظفين حيث قاعدة البيانات كانت على Access وكنت استخدم كود موجود في Module لفتح قاعدة البيانات والكود كالتالي:

Public TDB As Database

Sub LoadTDB()

Set TDB = OpenDatabase(App.Path + "\emp.mdb")

End Sub

السؤال هو :

أريد تغيير قاعدة البيانات الى SQl Server , كما أريد وضع القاعدة على سيرفر خاص .

كيف الربط مع السيرفر الموجود عليه قاعدة البيانات سواء Access أو Sql Server

وماهو التغيير الذي أقوم به في الكود السابق حتى يعمل بالشكل الصحيح ؟

أفيدوني وبسرعة جزاكم الله خير ؟ فبرنامجي مستني مساعدتكم حتى يتم العمل به ؟

وشكرا لكم ,,

أخوكم / الغامدي

#2

السلام عليكم

اخي الكريم للقيام بهذا العمل بكل سهوله ويسر ولكي ترتاح من إعادت كتابت الداتا بيز عليك القيام بالتالي

1) من خلال sql قم بتحويل الدتا بيز إلى اسكيوال

2) قم بإعادت ربط الداتا بيز على السيرفر الجديد

*** هذا الشيئ سهل في الدسك توب ابلكيشن ولكن بالوب بتغبك شو بس مع هيك مافي شي صحب بالبرمجه

سلام

#3
اقتباس
وماهو التغيير الذي أقوم به في الكود السابق حتى يعمل بالشكل الصحيح ؟

ستغير طريقة الاتصال بصورة كاملة، استعمل طريقة ADO لفتح اتصال مع قاعدة البيانات، مثلا

dim cn as ADODB.Connection
dim rs as ADODB.Recordset
cn.open "driver=sqlserver; database=some_database; uid=sa, trusted_connection=yes"
rs=cn.execute "Select * from some_table"

انظر:

/index.php?showtopic=26245

/index.php?showtopic=1977

فكر بطريقة أخرى

هذا الموضوع مغلق.

مواضيع مشابهة