Нераспознаваемый формат базы данных accdb. Как открыть ACCDB

4 метода поправить нераспознанный формат базы данных в MS Access

Ежели при попытке получить доступ к базам данных Microsoft Access вы получаете сообщение о ошибке «Нераспознанный формат базы данных», мы получим вашу поддержку. Мы отыскали 4 вероятных исправления данной для нас трудности. В этом руководстве мы перечислим шаги, которые нужно выполнить, чтоб вы могли быстро избавиться от этого сообщения о ошибке.

Решения для исправления ошибок «нераспознанного формата базы данных»

Метод 1: употреблять опцию авторемонта

  1. Запустите Access> перейдите в Инструменты базы данных.
  2. Выберите параметр Сжать и вернуть базу данных .
  3. Раскроется новое окно. Выберите файл базы данных, который вы желаете вернуть (файл, вызывающий этот код ошибки).
  4. Нажмите клавишу Compact, чтоб начать процесс восстановления.

Не считая того, вы также сможете обратиться к нашему управлению по устранению заморочек с повреждением файлов Microsoft Access. Надеемся, что некие исправления, перечисленные в этом руководстве, подходят для вас.

Метод 2: редактировать столбцы с именами больше 32 символов

Еще один стремительный метод поправить эту ошибку – открыть проблемные файлы в Microsoft Access, а потом отредактировать все столбцы с именами длиной наиболее 32 знаков.

Время от времени, ежели вы используете очень много знаков, Access не может верно загрузить надлежащие файлы. Естественно, этот способ подступает для маленьких файлов. Выполнение этих конфигураций вручную для огромных файлов занимает очень много времени.

Читайте также  Как выключить автозагрузку в windows 7. Как отключить автозагрузку программ в Windows 7 при включении компьютера

Метод 3: преобразовать базу данных в формат файла .accdb

Третье исправление заключается в преобразовании вашей базы данных в формат accdb . Но для использования этого исправления нужен Microsoft Access 2010. Просто откройте проблемные файлы, и MS Access 2010 автоматом преобразует надлежащие файлы в расширение .accdb.

Метод 4: удалить крайние обновления

Ежели эта неувязка возникла скоро опосля установки крайних обновлений Windows, удалите надлежащие исправления и проверьте, сохраняется ли неувязка. Время от времени новейшие обновления Windows 10 могут вызывать разные технические задачи. К примеру, Windows 7 KB4480970, как понятно, вызывает эту ошибку.

Самым обычным решением для исправления данной для нас ошибки является удаление проблемных обновлений.

Ежели вы сталкивались с иными решениями для исправления нераспознанных ошибок в базе данных, сообщите нам о этом в комментах ниже.

Сообщение № 3

[vba]

‘ Выгрузка данных из БД
Public Function GetRecord(strDB, strSql, PWD, Sheet_name As String) As Variant ‘ функция формирующая набор записей по сформированому запросу
‘On Error Resume Next
Dim i As Byte
Dim DB As DAO.Database
Dim qdfTempQuery As DAO.QueryDef
Dim rs As DAO.Recordset
Set DB = OpenDatabase(strDB, False, False, “MS Access; PWD=” & PWD) ‘открытие базы данных с монопольным паролем
Set qdfTempQuery = DB.CreateQueryDef(“”) ‘ пустые кавычки означают, что запрос не будет сохранен в базе данных
With qdfTempQuery ‘ формируем характеристики запроса
‘Debug.Print strSql
.Sql = strSql ‘ передаем запрос на выполнение
Set rs = .OpenRecordset(dbOpenForwardOnly) ‘производим запись данных
End With
Set GetRecord = rs ‘ передаем записанные данные функции, которая может принимать форму массива данных
Sheets(Sheet_name).Range(“A2″).CopyFromRecordset rs

For i = 1 To rs.Fields.Count
Sheets(Sheet_name).Cells(1, i).Value = rs.Fields(i – 1).Name
Next
End Function

Читайте также  Как настроить двухстороннюю печать в ворде. Как в word сделать печать с двух сторон?

[/vba]
Включены следуюющие модули (библиотеки):
VBA for application
MS Excel 12.0 Object Library
OLE AUTOMATION
MS Offise 12.0 Object Library
MS Forms 12.0 Object Library
MS DAO 3.6 Object Library

[vba]

‘ Выгрузка данных из БД
Public Function GetRecord(strDB, strSql, PWD, Sheet_name As String) As Variant ‘ функция формирующая набор записей по сформированому запросу
‘On Error Resume Next
Dim i As Byte
Dim DB As DAO.Database
Dim qdfTempQuery As DAO.QueryDef
Dim rs As DAO.Recordset
Set DB = OpenDatabase(strDB, False, False, “MS Access; PWD=” & PWD) ‘открытие базы данных с монопольным паролем
Set qdfTempQuery = DB.CreateQueryDef(“”) ‘ пустые кавычки означают, что запрос не будет сохранен в базе данных
With qdfTempQuery ‘ формируем характеристики запроса
‘Debug.Print strSql
.Sql = strSql ‘ передаем запрос на выполнение
Set rs = .OpenRecordset(dbOpenForwardOnly) ‘производим запись данных
End With
Set GetRecord = rs ‘ передаем записанные данные функции, которая может принимать форму массива данных
Sheets(Sheet_name).Range(“A2″).CopyFromRecordset rs

For i = 1 To rs.Fields.Count
Sheets(Sheet_name).Cells(1, i).Value = rs.Fields(i – 1).Name
Next
End Function

[/vba]
Включены следуюющие модули (библиотеки):
VBA for application
MS Excel 12.0 Object Library
OLE AUTOMATION
MS Offise 12.0 Object Library
MS Forms 12.0 Object Library
MS DAO 3.6 Object LibraryГость

 

Ответить


Gustav Дата: Среда, 06.06.2012, 10:57

Оставьте комментарий