Как прилинковать таблицы SQL в Access

[wsk]

Как прилинковать таблицы SQL в Access?

Нужно автоматически присоединить таблицы SQL в Access.
Желательно также автоматически создать коннект ODBC к базе SQL Server.

Есть ли такая возможность?

[Naeel Maqsudov]

Насколько автоматически это нужно делать?

Можно так:

Код: Выделить всё

Sub a()
Dim x As DAO.QueryDef
  Set x = New DAO.QueryDef
  x.Name = "newquery"
  x.SQL = "SELECT * " & _
          "FROM [ODBC;DSN=salessrv;UID=jace; " & _
          "PWD=password;DATABASE=sales;].qwerty; " & _
          "select * from qwerty"
  Call CurrentDb.QueryDefs.Append(x)
End Sub

При этом надо не забыть подключить библиотеку Microsoft DAO. (В редакторе VBA меню Tools/References)