ربط استضافة مجانية بقاعدة بيانات اكسس

[Elsayed Bn Gemy]

السلام عليكم ورحمة الله تعالى وبركاته

اخوانى الافاضل

قمت بعمل استضافة مجاني واضفت

اليها قاعدة بيانات sqll .

وانشات فى هذه القاعدة الجداول التى احتاجها

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

الى هذا الحد لا يوجد مشكله بالنسبة الى

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

والسؤال

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

المنطق يقول انه عند النقل الى جهاز اخر يجب الربط بقاعدة sql من جديد

والمطلوب . هل هناكاكواد تختصر عملية الربط من جديد او ادراج قاعدة بيانات sql

الى الجهاز الجديد

[Elsayed Bn Gemy]

اعتقد ان الحل هنا ولكن جارى التطبيق وساعلمكم بالنتائج وارجو من الاخوة المساعدة http://support.microsoft.com/en-us/kb/892490

[Elsayed Bn Gemy]

بما انى نيلة خالص فى موضوع الاكواد فا انا معرفتش اطبق الكود د

'//Name     :   AttachDSNLessTable
'//Purpose  :   Create a linked table to SQL Server without using a DSN
'//Parameters
'//     stLocalTableName: Name of the table that you are creating in the current database
'//     stRemoteTableName: Name of the table that you are linking to on the SQL Server database
'//     stServer: Name of the SQL Server that you are linking to
'//     stDatabase: Name of the SQL Server database that you are linking to
'//     stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection
'//     stPassword: SQL Server user password
Function AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As String, stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String)
    On Error GoTo AttachDSNLessTable_Err
    Dim td As TableDef
    Dim stConnect As String
    
    For Each td In CurrentDb.TableDefs
        If td.Name = stLocalTableName Then
            CurrentDb.TableDefs.Delete stLocalTableName
        End If
    Next
      
    If Len(stUsername) = 0 Then
        '//Use trusted authentication if stUsername is not supplied.
        stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";Trusted_Connection=Yes"
    Else
        '//WARNING: This will save the username and the password with the linked table information.
        stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUsername & ";PWD=" & stPassword
    End If
    Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, stConnect)
    CurrentDb.TableDefs.Append td
    AttachDSNLessTable = True
    Exit Function

AttachDSNLessTable_Err:
    
    AttachDSNLessTable = False
    MsgBox "AttachDSNLessTable encountered an unexpected error: " & Err.Description

End Function

علما بان دى بيانات قاعدة بيانات SQL ولكن كمثال وليست حقيقة فقط للتطبيق

Datebase name: sedo1255


MS SQL Server address: sedo1255.mssql.somee.com
Login name: sedo_menf_SQLLogin_1
Login password: 425s3bfstlx

واسم الجدول فى قاعدة SQL هو table1
واسم الجدول فى قاعدة اكسس هو mytable


وعند فتح النموذج اضع الحدث التالى لو فى تعديل ؟؟

Private Sub Form_Open(Cancel As Integer)
    If CreateDSNConnection("(local)", "pubs", "", "") Then
        '// All is okay.
    Else
        '// Not okay.
    End If
End Sub

تم تعديل أبريل 7, 2015 بواسطه مارد

[ابو جودي]

'//Name     :   AttachDSNLessTable
'//Purpose  :   Create a linked table to SQL Server without using a DSN
'//Parameters
'//     stLocalTableName: Name of the table that you are creating in the current database
'//     stRemoteTableName: Name of the table that you are linking to on the SQL Server database
'//     stServer: Name of the SQL Server that you are linking to
'//     stDatabase: Name of the SQL Server database that you are linking to
'//     stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection
'//     stPassword: SQL Server user password
Function AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As String, stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String)
    On Error GoTo AttachDSNLessTable_Err
    Dim td As TableDef
    Dim stConnect As String
    
    For Each td In CurrentDb.TableDefs
        If td.Name = stLocalTableName Then
            CurrentDb.TableDefs.Delete stLocalTableName
        End If
    Next
      
    If Len(stUsername) = 0 Then
        '//Use trusted authentication if stUsername is not supplied.
        stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";Trusted_Connection=Yes"
    Else
        '//WARNING: This will save the username and the password with the linked table information.
        stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUsername & ";PWD=" & stPassword
    End If
    Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, stConnect)
    CurrentDb.TableDefs.Append td
    AttachDSNLessTable = True
    Exit Function

AttachDSNLessTable_Err:
    
    AttachDSNLessTable = False
    MsgBox "AttachDSNLessTable encountered an unexpected error: " & Err.Description

End Function

ده module يعنى وحده نمطيه

[Elsayed Bn Gemy]

انا اعرف اخى الكريم وانى استميحك عذرا هل يمكنك التعديل عليها واضافة البيانات التى كتبتها الخاصة بى

لانى لم اعرف التعديل عليها