Недавно для одной из рабочих задач встала необходимость создания
клиентского приложения для работы с базой данных на платформе MS SQL
Server 2000. По условиям ТЗ клиент должен был быть выполнен в MS Access.
Ниже
я привожу код, который позволяет создать подключение к SQL Server без
предварительного создания DSN и создать ссылки на серверные таблицы в
Access.
' Функция проверки существования таблицы в Access
'
' Parameters
' tblName - название таблицы
'
' Return Value
' True - если таблица с заданным именем существует, False - в противном случае
Public Function isTableExist(tblName) As Boolean
On Error Resume Next
Dim td As TableDef
isTableExist = False
Set td = currentDB.TableDefs(tblName)
If Err.Number = 0 Then
If td.Connect <> "" Then
isTableExist = True
End If
Set td = Nothing
End If
Err.Clear
End Function
' Функция создания ссылки в Access на таблицу в базе данных MS SQL Server
'
' Parameters
' serverName - имя или IP сервера
' serverDBName - название серверной базы данных
' tblName - название таблицы
' makeHidden - сделать таблицу скрытой (Boolean)
Public Sub linkTable(serverName, serverDBName , tblName, makeHidden)
' Если в Access уже существует таблица с таким именем ее необходимо удалить
If (isTableExist(tblName) = True) Then
DoCmd.DeleteObject acTable, tblName
End If
' Создание ссылки на серверную таблицу в Access
DoCmd.TransferDatabase acLink, "ODBC", _
"ODBC;DRIVER=SQL Server;" & _
"DATABASE=" & serverDBName & ";" & _
"APP=Microsoft Office 2003;" & _
"SERVER=" & serverName & ";" & _
"Trusted_Connection=Yes;" & _
"", acTable, tblName, tblName, False, True
' Если makeHidden = True таблица будет скрытой
Application.SetHiddenAttribute acTable, tblName, makeHidden
End Sub
В
процессе выполнения предыдущей процедуры (создания ссылки), если
серверная таблица не имеет ключевых полей, будет показано диалоговое
окно, с предложением создания ключевых полей. Если отказаться от выбора
ключевых полей редактирование и создание новых записей будет невозможно.
Доступ к таблицам будет осуществляться только в режиме чтения.
Если
необходимо предоставить доступ к серверным таблицам только для чтения и
в подключаемых серверных таблицах нет ключевых полей, например, при
создании ссылок на серверные представления (View), удобно
воспользоваться следующей функцией. При создании ссылок на серверные
таблицы предложений о выборе ключевых полей появляться не будет.
' Функция создания ссылки в Access на таблицу в базе данных MS SQL Server
'
' Parameters
' serverName - имя или IP сервера
' serverDBName - название серверной базы данных
' tblName - название таблицы
' makeHidden - сделать таблицу скрытой (Boolean)
Public Sub linkView(serverName, serverDBName , tblName, makeHidden)
' Если в Access уже существует таблица с таким именем ее необходимо удалить
If (isTableExist(tblName) = True) Then
DoCmd.DeleteObject acTable, tblName
End If
' Создание подключения к серверу
Set NewTableDef = currentDB.CreateTableDef(tblName)
NewTableDef.Connect = "ODBC;DRIVER=SQL Server;" & _
"UID=;" & _
"DATABASE=" & serverDBName & ";" & _
"SERVER=" & serverName & ";" & _
"PWD="
NewTableDef.SourceTableName = tblName
' Создание ссылки на серверную таблицу в Access
currentDB.TableDefs.Append NewTableDef
' Если makeHidden = True таблица будет скрытой
Application.SetHiddenAttribute acTable, tblName, makeHidden
Set NewTableDef = Nothing
End Sub
И,
наконец, следующая функция иллюстрирует создание подключения к MS SQL
Server без необходимости предварительного ручного или программного
создания DSN.
Public Sub ExecSomeStoredProcedure(serverName, serverDBName)
Dim cnn As ADODB.Connection
Set cnn= New ADODB.Connection
cnn.Provider = "MSDataShape"
cnn.Properties("Data Provider") = "SQLOLEDB.1"
cnn.Properties("Initial Catalog") = serverDBName
cnn.Properties("Persist Security Info") = False
cnn.Properties("Data Source") = serverName
cnn.Properties("Integrated Security") = "SSPI"
cnn.Open
cnn.CommandTimeout = 90000
cnn.Execute "some_stored_procedure"
cnn.Close
Set cnn = Nothing
End Sub
