У меня есть последующий VBA код, который я использую для подключения к базе данных MDB, но я получаю ошибку 429 при попытке подключиться DAO.OpenDatabase (DBFILE)Ошибка 429 при подключении DAO Access
Я не был получив эту ошибку раньше, но теперь это происходит. На моем другом компьютере это соединение работает нормально.
Я проверил путь MDB, и это правильно.
Ссылки я использую являются:
- Visual Basic для приложений
- Microsoft Excel 15,0 Библиотека объектов
- OLE Automation
- Microsoft Office 15,0 Библиотека объектов
- Microsoft DAO Library 3.6 Объект
Я использую Excel 2013 (на другом компьютере - Excel 2010), но, как я сказал, он работал до 2013 года.
Кто-нибудь знает, как получить этот пр. Облем решил, пожалуйста?
Private Sub IniciaDB()
Dim rs As Recordset
Dim fld As Variant
Dim DbFile as String
DbFile = "D:\Documentos\PMbox\PPMdatabase2.MDB"
On Error Resume Next
Set OpenConn = DAO.OpenDatabase(DbFile)
If Err.Number = 3024 Then MsgBox "Check connection string in the VBA StaticClass object", vbOKOnly
Set ObjAccess = CreateObject("Access.Application")
ObjAccess.Visible = False
ObjAccess.OpenCurrentDatabase (DbFile)
'runSQL ("INSERT INTO tabela_teste VALUES ('My name', 34)")
Set rs = runCursorSQL("SELECT * FROM tabela_teste")
Do While Not rs.EOF
For Each fld In rs.Fields
Debug.Print fld.Value & ";";
Next
rs.MoveNext
Loop
closeResources
End Sub
Какая строка выдает эту ошибку? Что такое описание ошибки? – shahkalpesh
Строка: Установить OpenConn = DAO.OpenDatabase (DbFile) – Braulio
Описание ошибки: «ActiveX-компонент не может создать объект» – Braulio