Как подключить аксесовскую базу Через ODBC

Как подключить аксесовскую базу Через ODBC
что-то типо...
set myDB=opendatabase(????)
или какнить подругому...., но программно!

Создаете соединение
Set oConn = Server.CreateObject('ADODB.Connection')

Открываете базу указывая физическое имя на диске

oConn.Open('DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=G:Inetpubwwwrootase.mdb')

либо указывая путь по виртуальным директориям сервера

oConn.Open('DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=' & Server.MapPath('ase.mdb'))

здесь база лежит в корневой директории сервера

Если на сервере создан системный ODBC источник с именем PROBA, то можно открыть короче

oConn.Open('DSN=PROBA')

После открытия можно создавать Record Set

sSQL = 'SELECT ...'
Set oRS = oConn.Execute(sSQL)

поработав с ним, все закрываем

oConn.Close
Set oRS = Nothing
Set oConn = Nothing

0

Пардон, все это было для ASP+VBScript. Для VB не имел счастья попробовать.

0

Синтаксис

Set базаДанных = рабочаяОбласть.OpenDatabase (имяБД, параметры, толькоЧтение, подключение)

Пример:

Dim wrkJet As Workspace
Dim dbsPubs As Database
Dim dbsPubs2 As Database

' Создает объект Workspace Microsoft Jet.
Set wrkJet = CreateWorkspace('', 'admin', '', dbUseJet)

' Открывает для монопольного доступа аргумент Database,
' представляющий сохраненную базу данных Microsoft Jet.

Set dbsNorthwind = wrkJet.OpenDatabase('name.mdb', True)

' Открывает только для чтения объект Database,
' используя строку подключения.

Set dbsPubs = wrkJet.OpenDatabase('Publishers', _
dbDriverNoPrompt, True, _
'ODBCATABASE=pubs;UID=sa;PWD=SN=Publ ishers')

' Открывает только для чтения объект Database с вводом
' недостающих данных в диалоговое окно диспетчера
' драйвера ODBC.
Set dbsPubs2 = wrkJet.OpenDatabase('Publishers', _
dbDriverCompleteRequired, True, _
'ODBCATABASE=pubsSN=Publishers;')