طلب مساعده : كود اكسس لعمل attach لقاعده بيانات سيكوال ( ملف mdf ) من داخل نموذج اكسس

[hosslom]

السلام عليكم اخوتي الكرام

هل يوجد كود من داخل الاكسس لارفاق قاعده بيانات سيكوال للسيرفر علي الجهاز من داخل نموذج الاكسس ؟؟

او استخدام command line لعمل ارفاق لاي ملف في نفس المجلد

,شكرا جزيلا

 

تم تعديل أغسطس 25 بواسطه hosslom

[muhandesramadan]

Sub ConnectToSQLServer()
    Dim conn As Object
    Dim connString As String
    Dim db As DAO.Database

    ' إنشاء اتصال جديد باستخدام ADO
    Set conn = CreateObject("ADODB.Connection")

    ' إعداد سلسلة الاتصال
    connString = "Provider=SQLOLEDB;Data Source=اسم_السيرفر;Initial Catalog=اسم_قاعدة_البيانات;User ID=اسم_المستخدم;Password=كلمة_المرور;"

    ' فتح الاتصال
    conn.Open connString

    ' إعداد قاعدة البيانات
    Set db = CurrentDb

    ' ربط جدول من SQL Server إلى Access
    db.TableDefs.Append db.CreateTableDef("اسم_الجدول_في_الاكسس", , "اسم_الجدول_في_SQL", connString)

    ' إغلاق الاتصال
    conn.Close
    Set conn = Nothing
    Set db = Nothing
End Sub