ODBC; UID = ; PWD = ; DATABASE = Pubs; DSN = Pubs

Подробнее о параметрах строки подключения см. раздел ?Connect property? (?Свойство Connect?) справочной системы DAO.

Следующий пример иллюстрирует открытие нового объекта Connection методом OpenConnection:

Function OpenPubsConnection() As Boolean
═════Dim wrk As Workspace, cnn As Connection, rst As Recordset
═════Dim fld As Field, strConnect As String, strSQL As String

═════On Error GoTo Err_OpenPubsConnection
═════? формируем строку подключения
═════strConnect = "ODBC:DSN=Pubs;UID=SA: PWD=: DATABASE=Pubs"
═════? формируем оператор SQL
═════strSQL - "SELECT * FROM Authors WHERE State = 'MD';"

═════? создаем рабочее пространство ODBCDirect
═════Set wrk = DBEngine.CreateWorkspace("NewODBCDirect", _
══════════"sa", "", dbUseODBC)
═════? открываем соединение
═════Set cnn = wrk.OpenConnection("Pubs", dbDriverNoPrompt, _
══════════False, strConnect)
═════? открываем набор записей
═════Set rst = cnn.OpenRecordset(strSQL, dbOpenDynaset)
═════? выводим значения из набора записей
═════Do Until rst .EOF
══════════For Each fld In rst. Fields
═══════════════Debug. Print fld. Name, fld.Value
══════════Next fld
══════════Debud. Print
══════════rst. MoveNext
═════Loop
═════OpenPubsConnection = True

Exit_OpenPubsConnection:
═════rst .Close
═════cnn .Close
═════Exit Function

Err_OpenPubsConnection:
═════MsgBox "Error " & Err & ": " & Err. Description
═════OpenPubsConnection = False
═════Resume Exit_OpenPubsConnection
End Function

Создав объект Connection, Вы можете открывать объекты Recordset и выполнять запросы.

При открытии объекта Connection создается соответствующий ему объект Database, который включается в набор Databases того же рабочего пространства. Аналогичным образом при открытии базы данных в рабочем пространстве ODBCDirect создается объект Connection и добавляется к набору Connections. Закрытие объекта Connection или Database приводит к закрытию и соответствующего им объекта.

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997