Сообщество Чайников

Вопрос

Для того, что бы иметь доступ к базе данных, сотворенной в Microsoft Access 97, минуя объект Data, я использовал вот такой код:

strDBName = App.Path & "\Data\" & "Pr_01.mdb"
strRSTable = "TblStart_Exit"
Psw_Pr=""

Set wsTmp = DBEngine.Workspaces(0)
Set dbTmp = wsTmp.OpenDatabase(strDBName, False, False, "MS Access;pwd=" & Psw_Pr)
Set rsTmp = dbTmp.OpenRecordset(strRSTable, dbOpenDynaset)
With rsTmp
.AddNew
!User = Name_User
!Date_st = Date
!Time_st = Time
.Update
End With

…

Все это прекрасно работало до того момента, когда я решил базу Pr_01.mdb конвертировать в формат Microsoft Access 2000. И вот теперь при использовании VB 6.0, программа пишет что базу открыть она уже не может, так как формат-то неизвестный какой-то. Как открыть эту базу в формате Microsoft Access 2000?

Ответ

Нужно подключить в Project|References библиотеку DAO 3.6.

Павел Сурменок

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset

With cn
'Если база 2000, то провайдер такой:
.Provider = "Microsoft.Jet.OLEDB.4.0"
'а если база 97, то можно использовать и более старый провайдер:
'.Provider = "Microsoft.Jet.OLEDB.3.51"
'указываем путь к базе
.ConnectionString = "C:\pr_01.mdb"
'открываем
.Open
End With

alexeyaa2002