Access получить все таблицы.

[Gogic]

Здравствуйте. Я новичок в работе с Access.

Подскажите пожалуйста, как можно программно сконвертить все таблицы базы данных Access в CSV с разделителями?

Код будет вызываться из Visual Basic.

[alibek]

1. Получить список всех таблиц. Если использовать DAO, то через коллекцию TableDefs, если использовать ADOX, то через коллекцию Tables, если использовать ADO, то с помощью метода OpenSchema.
2. Выгрузить каждую таблицу в CSV.
2.1. Можно выгружать через DAO/ADO, указав провайдера CSV.
2.2. Можно процедуру выгрузки написать вручную, она несложная. Я бы советовал именно так.

[plik]

Можно так

Код: Выделить всё

...
Public WS As Workspace ' Рабочая область
Public DB As Database ' Объект базы данных

...

Set WS = CreateWorkspace("", "admin", "", dbUseJet)
Set DB = WS.OpenDatabase(DBPath & DBName, False, False, ";PWD=" & DBPass)

...


Set Report = ThisWorkbook.Sheets("Report")

' Цикл по таблицам БД
nR = 3
For Each dbTable In DB.TableDefs
  With dbTable
    If Left$(.Name, 4) <> "MSys" Then
On Error Resume Next
      nR = nR + 1
      Report.Cells(nR, 1) = "Таблица"
      Report.Cells(nR, 2) = .Name
      Report.Cells(nR, 5) = .Properties("Description").Value
      Report.Rows(nR).Font.Bold = True
      For Each dbF In .Fields
        nR = nR + 1
        Col = 0
        Col = Col + 1: Report.Cells(nR, Col) = "Поле"
        Col = Col + 1: Report.Cells(nR, Col) = dbF.Name
        Col = Col + 1: Report.Cells(nR, Col) = .Name & "." & dbF.Name
        Col = Col + 1: Report.Cells(nR, Col) = dbF.Type
        Col = Col + 1: Report.Cells(nR, Col) = dbF.Properties("Description").Value
      Next
On Error GoTo 0
    End If
  End With
Next dbTable

[alibek]

plik, а ты читать пробовал, прежде чем ответить?
Не говоря уж о том, что твой код работать не будет в том виде, в котором он тут приведен.