Экспортируйте все таблицы из файла .accdb программно, используя Python - PullRequest
Новая
       10

Экспортируйте все таблицы из файла .accdb программно, используя Python

0 голосов
/ 27 января 2019

Я пытаюсь экспортировать все таблицы из файла accdb в csv.Я нахожусь на этапе, когда я могу экспортировать таблицу, назвав ее имя.К сожалению, мне нужно сделать это в тысячах файлов, где я не буду знать имена таблиц заранее.

Я уверен, что есть какой-то способ извлечь имена таблиц и затем экспортировать их.У меня работает следующий код, чтобы экспортировать таблицу, вызвав ее имя «TableX» 

output = os.path.join(r"C:\Users\user\Desktop", 'Output.csv')
# OPEN ACCESS APP AND DATABASE
oApp = win32com.client.Dispatch("Access.Application")
oApp.OpenCurrentDatabase(accdbfile)

# EXPORT TABLE TO CSV
acExportDelim = 2
oApp.DoCmd.TransferText(TransferType=acExportDelim,
                            SpecificationName=None,
                            TableName="TableX",
                            FileName=output,
                            HasFieldNames=True)
#
oApp.DoCmd.CloseDatabase
oApp.Quit
oApp = None

Используя команду DoCmd, я уверен, что есть один такой, что он возвращает имена всех таблиц, которые ятогда можно просто перебрать.Но, к сожалению, я не могу найти способ добиться этого.Я знаю, что следующий код VBA работает в Accdb для экспорта всех таблиц.Но не уверен, как его интегрировать с Python 

Option Compare Database
Public Sub ExportAll()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentData
In dbs.AllTables
    If Left(obj.Name, 4) <> "MSys" Then
        DoCmd.TransferText acExportDelim, , obj.Name, _
           Application.CurrentProject.Path & "\" & obj.Name & ".csv", True
        'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
           obj.Name, Application.CurrentProject.Path & "\" & obj.Name & ".xls", True
    End If
Next obj
End Sub

1 Ответ

0 голосов
/ 27 января 2019
  1. открыть набор записей имен таблиц из таблицы MSysObjects

SELECT [Name] FROM MSysObjects WHERE [Type]=1 AND NOT [Name] LIKE "*Sys*";
Это должно ограничивать ваши таблицы данных, но я заметил странное имя в моей базе данных: f_38D36B8B99D54B1DB8E6D145B51ADF90_Data

  1. , затем переберите набор записей

  2. объединить поле [Имя] в методе TransferText

Или перебрать коллекцию TableDefs. Помогает ли следующее: 

#sample code to list all tables in the selected database
 daoEngine = win32com.client.Dispatch('DAO.DBEngine.36')
 dtbs = daoEngine.OpenDatabase('database_file.mdb')
 for table in dtbs.TableDefs:
 if table.Name[:4] <> "MSys" and table.Name[:4] <> "~TMP":
...