Обновление базы данных из CSV с использованием ADO и VBScript без цикла записи?
Я хочу загрузить данные в базу данных Access из CSV-файлов, используя Vb Script & ADO, поэтому я неНужно открыть либо Access, либо Excel.
Пока у меня есть рабочий скрипт ниже, но есть ли лучший способ загрузить данные в один пакет, не создавая набор записей и не просматривая каждую запись?
Мы создали пример, где у меня есть 2 файла необработанных данных (CSV) файл People.csv содержит поляЧЕЛОВЕК' а также 'КОМПАНИЯ' а другой файл содержитКОМПАНИЯ' а также 'СТАТУС', База данных для обновления имеет одну таблицуtblPeople» с полямиЧЕЛОВЕК' а также 'СТАТУС'.
Const ST_FILES = "C:\test\Files\"
Const ST_DB = "C:\test\db\mydb.accdb"
'Connection to Raw Files
Dim stCS: stCS = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ST_FILES & _
";Extended Properties=""text;HDR=YES;FMT=Delimited(,)"";"
Dim objCnFiles: set objCnFiles = CreateObject("ADODB.Connection"):objCnFiles.open stCS
'Connection to DB
stCS = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ST_DB
Dim objCnDb: set objCnDb = CreateObject("ADODB.Connection"):objCnDb.Open stCS
'Recordset of Raw Files
Dim objRS: set objRS = CreateObject("ADODB.RecordSet")
Dim stSQL: stSQL = "SELECT T1.PERSON, T2.STATUS " & _
"FROM People#csv T1 " & _
"INNER JOIN Company#csv T2 "& _
"ON T1.COMPANY = T2.COMPANY"
objRS.open stSQL, objCnFiles
'The part Below is the part I want to improve:
'Loops through the recordset inserting record into db line by line.
objRS.MoveFirst
Do until objRS.EOF
stSQL = "INSERT INTO tblPeople (PERSON, STATUS) " & _
"VALUES('" & objRS.Fields("PERSON") & "','" & _
objRS.Fields("STATUS") & "')"
objCnDb.Execute stSQL
objRS.MoveNext
Loop
objRS.close
objCnFiles.close
objCnDb.close
WScript.echo "Done"
WScript.Quit
Редактировать: Решение Ниже используется решение, предоставленное Ekkehard.Horner
Const ST_FILES = "C:\test\Files\"
Const ST_DB = "C:\test\db\mydb.accdb"
'Connection to Raw Files
Dim stCS: stCS = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ST_FILES & _
";Extended Properties=""text;HDR=YES;FMT=Delimited(,)"";"
Dim objCnFiles: set objCnFiles = CreateObject("ADODB.Connection"):objCnFiles.open stCS
Dim stSQL: stSQL = "INSERT INTO [tblPeople] IN '" & ST_DB & "'" &_
"SELECT T1.PERSON, T2.STATUS " & _
"FROM People#csv T1 " & _
"INNER JOIN Company#csv T2 "& _
"ON T1.COMPANY = T2.COMPANY"
objCnFiles.Execute stSQL
objCnFiles.close
WScript.echo "Done"
WScript.Quit