Excel VBA를 사용하여 CSV에서 SQL Server로 대량 가져 오기 ADODB

Question

많은 수의 데이터를 CSV 파일에서 SQL Sever 데이터베이스 테이블로 가져 오려고합니다. 줄 단위로 작성할 수는 있지만 너무 오래 걸립니다. oComm.Execute 중에 "FROM [C : \ Temp \ tblOPTExportData.csv]"에서 아래의 오류가 발생합니다. 어떤 도움을 주시면 감사하겠습니다.

On Error GoTo err_me 
Dim locComm As New ADODB.Command 
Dim locConnection As New ADODB.Connection 
Dim locRst As New ADODB.Recordset 
Dim ee As Boolean 
Dim su As Boolean 
Dim strSQLQuery As String 
Dim shtDash As Worksheet 
Dim shtData As Worksheet 
Dim shtOP As Worksheet 

With Application 
    ee = .EnableEvents 
    su = .ScreenUpdating 
    If ee Then .EnableEvents = False 
    If Not su Then .ScreenUpdating = True 
End With 

With ThisWorkbook 
    Set shtDash = .Sheets("Dashboard") 
    Set shtData = .Sheets("Data") 
    Set shtOP = .Sheets("OP") 
End With 

With locConnection 
    .CommandTimeout = 0 
    .ConnectionString = "Provider=SQLOLEDB;Server=sql-ewhcld-1000; Database=xxxxxxxxxxxxxx; User ID=tenant-xxxxxxxxxxxxxxx; Password=yeahidontthinkso; Trusted_Connection=True; Pooling=True; MultipleActiveResultSets=False" 
    .Open 
End With 

' ____________________________ 
' /       \ 
' | IMS Factory Model Data | 
' \____________________________/ 
' 
'With statRng 
' .Value = "Factory Model Phase Data // Importing" 
' .Font.Color = 8421504 
' .Characters(Start:=29, Length:=9).Font.Color = 10192433 'Blue 
'End With 

With shtOP 
    endRow = .Cells(.Rows.count, 2).End(xlUp).Row 'B (2) 
End With 
If endRow < 3 Then Err.Raise Number:=vbObjectError + 20002, Source:="exportData_Excel", Description:="No data found: 'OP' sheet, column 2 (B)." 
If Not rangetoCSV("B3:K" & endRow, "tblOPTExportData", 201, , , "OP") Then Err.Raise Number:=vbObjectError + 30001, Description:="rangetoCSV, 'tblGates'" 

strSQLQuery = "INSERT INTO optData (opsType, opsUID, opsDesc, opsProgram, opsFlight, opsProductAreaL1, opsAssignee, opsGenDate, opsECD, opsStatus) " & _ 
       "SELECT Type, UID, Description, Program, Flight, L-1 IPT, Assignee, Generated, ECD, Status FROM [C:\Temp\tblOPTExportData.csv]" 

With oComm 
    .ActiveConnection = locConnection 
    .CommandText = strSQLQuery 
    .Execute 
End With 

Answer 1

INSERT INTO 대신 BULK INSERT을 사용해야합니다. 다음과 같이 시도하십시오.

strSQLQuery = "BULK INSERT optData " & _ 
       "FROM C:\Temp\tblOPTExportData.csv " & _ 
       "WITH (FIRSTROW = 2, FIELDTERMINATOR = ',', " & _ 
       "ROWTERMINATOR = '\n', TABLOCK)" 
    With oComm 
     .ActiveConnection = locConnection 
     .CommandType = adCmdText 
     .CommandText = strSQLQuery 
     .Execute 
    End With