ربط الاكسس بقاعدة بيانات Mysql

[AliAli47]

السلام عليكم 

لدي قاعدة بيانات Mysql  ربطتها بالاكسس واشتغلت بدون مشاكل على جهازي 

لكن المشكلة عند نقل قاعدة البيانات على جهاز اخر وجب علي اعادة تسجيل بيانات الاتصال

هل هناك طريقة لحفظ بيانات الاتصال دون اعادة تسجيلها عند نسخ البرنامج لكل جهاز ؟؟

تم تعديل ديسمبر 28, 2022 بواسطه AliAli47

[Moosak]

وعليكم السلام أخي علي 🙂 

جرب هذا الكود لإعادة الاتصال بقاعدة بيانات ال SQUL :

Public Sub ConnectToSQL()
  Dim cn As ADODB.Connection
  Set cn = CurrentProject.Connection

  cn.Open "Driver={SQL Server};" & _
          "Server=myServerName;" & _
          "Database=myDatabaseName;" & _
          "Trusted_Connection=yes;"
End Sub

 

مع مراعات تغيير بيانات الاتصال لديك في الكود

[AliAli47]

12 ساعات مضت, Moosak said:

وعليكم السلام أخي علي 🙂 

جرب هذا الكود لإعادة الاتصال بقاعدة بيانات ال SQUL :

Public Sub ConnectToSQL()
  Dim cn As ADODB.Connection
  Set cn = CurrentProject.Connection

  cn.Open "Driver={SQL Server};" & _
          "Server=myServerName;" & _
          "Database=myDatabaseName;" & _
          "Trusted_Connection=yes;"
End Sub

 

مع مراعات تغيير بيانات الاتصال لديك في الكود

انا متصل بالقاعدة عن طريق odbc