Стандартная строка подключения:
Driver={Firebird/InterBase® driver};UID=SYSDBA;PWD=masterkey;DbName=PC_NAME:d:\firebird\examples\test.fdb;
Строка подключения с использованием конструкции IN:
''[ODBC;DSN=NEW_DNS;UID=SYSDBA;PWD=masterkey;]
Для использования конструкции IN необходимо создавать системный DNS для этого вам понадобится следующий код, который необходимо скопировать в модуль.
'объявление функции API
Private Declare Function SQLConfigDataSource Lib "ODBCCP32.DLL" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long
Const ODBC_ADD_SYS_DSN = 4
'Добавляем источник данных
'Const ODBC_ADD_DSN = 1
'Конфигурируем (редактируем) источник данных
'Const ODBC_CONFIG_DSN = 2
'Удаляем источник данных
'Const ODBC_REMOVE_DSN = 3
'Добавляем системный DSN
'Const ODBC_ADD_SYS_DSN = 4
'Конфигурируем системный DSN
'Const ODBC_CONFIG_SYS_DSN = 5
'удаляем системный DSN
'Const ODBC_REMOVE_SYS_DSN = 6
Public Sub DSNCreate(DSN_Name As String, DBName As String, UID As String, PWD As String)
SQLConfigDataSource 0, ODBC_ADD_SYS_DSN, "Firebird/InterBase® driver", "DSN=" & DSN_Name & ";DbName=" & DBName & ";Uid=" & UID & ";Pwd=" & PWD & ";"
End Sub
Пример вызова функции на создание системного DNS:
Call DSNCreate("NEW_DNS”, "PC_NAME:d:\firebird\examples\test.fdb”, "SYSDBA”, "masterkey”)
|