Выбрать в таблицу из списка CSV - PullRequest
0 голосов
/ 15 февраля 2019

Список Python CSV-файлов должен быть загружен в Access из pyodbc.Я не понимаю, как написать строку SQL для размещения переменной вместо явного определения INTO TABLE и файла FROM CSV.

Полнофункциональный оператор SQL для одного CSV выглядит следующим образом:

strSQL = "SELECT * INTO [TableName] FROM 
[text;HDR=Yes;FMT=Delimited(,);" + 
"Database=C:\Path\To\Folder].first.csv;"    

Может ли этот оператор быть изменен для размещения переменной, представляющей CSV для импорта (т. Е. Оба INTO [TableName] и базе данных FROM)?

Я понимаю, что это какая-то форма, похожая на эту:

strSQL ="SELECT * INTO ? FROM Database=?",[csv_string, csv]  

, но сложный оператор FROM, который ссылается на базу данных, заставляет меня чесать голову.

# DATABASE CONNECTION
access_path = "C:\Path\To\Access\\DB.mdb"
con = pyodbc.connect("DRIVER={{Microsoft Access Driver 
(*.mdb,*.accdb)}};DBQ={};".format(access_path))

for csv in csv_list:

    # RUN QUERY
    strSQL = "SELECT * INTO [TableName] FROM 
    [text;HDR=Yes;FMT=Delimited(,);" + 
    "Database=C:\Path\To\Folder].first.csv;"    

    cur = con.cursor()
    cur.execute(strSQL)
    con.commit()

con.close()  

Ответы [ 3 ]

0 голосов
/ 15 февраля 2019

Благодаря выбранному ответу, вот окончательное форматирование, которое работает правильно:

strSQL = "SELECT * INTO [{}] FROM [text;HDR=Yes;FMT=Delimited(,);".format(csv_str) + \
          "Database=C:\PathToFolder].{};".format(csv)
0 голосов
/ 15 февраля 2019

Я уверен, что вы можете использовать Python для загрузки CSV-файлов в Access, но зачем проходить через все проблемы.просто используйте Access для импорта файлов CSv (не создавайте для себя много ненужной работы).

Импорт файлов CSV в отдельные таблицы:

Function DoImport()

 Dim strPathFile As String
 Dim strFile As String
 Dim strPath As String
 Dim strTable As String
 Dim blnHasFieldNames As Boolean

 ' Change this next line to True if the first row in CSV worksheet
 ' has field names
 blnHasFieldNames = True

 ' Replace C:\Documents\ with the real path to the folder that
 ' contains the CSV files
 strPath = "C:\Users\Excel\Desktop\test\"

 ' Replace tablename with the real name of the table into which
 ' the data are to be imported

 strFile = Dir(strPath & "*.csv")


 Do While Len(strFile) > 0
       strTable = Left(strFile, Len(strFile) - 4)
       strPathFile = strPath & strFile
       DoCmd.TransferText acImportDelim, , strTable, strPathFile, blnHasFieldNames

 ' Uncomment out the next code step if you want to delete the
 ' EXCEL file after it's been imported
 '       Kill strPathFile

       strFile = Dir()
 Loop

End Function

ИЛИ ...

Импорт CSV-файлов в одну таблицу:

Private Sub Command1_Click()

Dim strPathFile As String, strFile As String, strPath As String
        Dim strTable As String, strBrowseMsg As String
        Dim blnHasFieldNames As Boolean

        ' Change this next line to True if the first row in EXCEL worksheet
        ' has field names
        blnHasFieldNames = False

        strBrowseMsg = "Select the folder that contains the CSV files:"

        strPath = "C:\Users\Excel\Desktop\Coding\LinkedIn\Import all CSV Files into Different Access Tables\"

        If strPath = "" Then
              MsgBox "No folder was selected.", vbOK, "No Selection"
              Exit Sub
        End If

        ' Replace tablename with the real name of the table into which
        ' the data are to be imported
        strTable = "tablename"

        strFile = Dir(strPath & "\*.csv")
        Do While Len(strFile) > 0
              strPathFile = strPath & "\" & strFile

        DoCmd.TransferText acImportDelim, , strTable, strPathFile, blnHasFieldNames

        ' Uncomment out the next code step if you want to delete the
        ' EXCEL file after it's been imported
        '       Kill strPathFile

              strFile = Dir()
        Loop
End Sub
0 голосов
/ 15 февраля 2019

Почему бы вам не использовать .format(), как вы делали выше?

Вы можете сделать следующее:

table = "TableName"
database = "C:\Path\To\Folder"

strSQL = """
SELECT * INTO [{}] FROM
[text;HDR=Yes;FMT=Delimited(,);
{}].first.csv;
""".format(table, database)

Или вы можете использовать следующий формат:

strSQL = f"SELECT * INTO [{table}] FROM [text;HDR=Yes;FMT=Delimited(,);{database}].first.csv;"
...