ربط جداول قاعدة خارجية باخرى خارجية

[kanory]

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

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

kanory.rar

[ابوخليل]

وعليكم السلام 

تفضل وجدت لك وحدة نمطية  تقوم بالمطلوب

Public Function CreateLinks(strBEPath) As Boolean
On Error GoTo Err_Handler
Dim dbsFE As DAO.Database
Dim dbsBE As DAO.Database
Dim wksJET As DAO.Workspace
Dim strTableName As String
Dim strConnect As String
Dim tdfBE As DAO.TableDef
Dim tdfFE As DAO.TableDef
Set wksJET = DBEngine.Workspaces(0)
Set dbsBE = wksJET.OpenDatabase(txtPath)
Set dbsFE = wksJET.OpenDatabase(txtPath1)
For Each tdfBE In dbsBE.TableDefs
If Left$(tdfBE.Name, 4) <> "MSys" And _
Len(tdfBE.Connect) = 0 Then
strTableName = tdfBE.Name
strConnect = ";DATABASE=" & strBEPath
Set tdfFE = dbsFE.CreateTableDef(strTableName)
tdfFE.Connect = strConnect
tdfFE.SourceTableName = strTableName
dbsFE.TableDefs.Append tdfFE
Set tdfFE = Nothing
End If
Next tdfBE
CreateLinks = True
Exit_Handler:
On Error Resume Next
Set tdfFE = Nothing
Set tdfBE = Nothing
Set dbsFE = Nothing
dbsBE.Close
Set dbsBE = Nothing
Set wksJET = Nothing
Exit Function
Err_Handler:
MsgBox Err.Description, vbExclamation, "Error No: " & Err.Number
Resume Exit_Handler
End Function

للذهاب إلى المصدر

‏‏kanory2.rar

[kanory]

أخي أبا خليل

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

أولا : شكرا لردك والتعديل على المرفق يارك الله فيك وفي عمرك وزادك الله علما لقد أدى المرفق المطلوب

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

 

                   شكرا أستاذي الكبير والقدير أبا خليل