Я получаю сообщение об ошибке «[Microsoft] [ODBC SQL Server Driver] [SQL Server] Неверный синтаксис рядом с« Microsoft ».Получение «[Microsoft] [ODBC SQL Server Driver] [SQL Server] Неверный синтаксис рядом с« Microsoft ».
Вот код:
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim stSQL As String
Public Sub loadData()
'This was set up using Microsoft ActiveX Data Components version 6.0.
'Create ADODB connection object, open connection and
' construct the connection string object which is the DSN name.
Set conn = New ADODB.Connection
conn.ConnectionString = "sql_server"
conn.Open
'conn.Execute (strSQL)
On Error GoTo ErrorHandler
'Open Excel and run query to export data to SQL Server.
strSQL = "SELECT * INTO SalesOrders " & _
"FROM OPENDATASOURCE(Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\Workbook.xlsx;" & _
"Extended Properties=Excel 12.0; [Sales Orders])"
conn.Execute (strSQL)
'Error handling.
ErrorExit:
'Reclaim memory from the cntection objects
Set rst = Nothing
Set conn = Nothing
Exit Sub
ErrorHandler:
MsgBox Err.Description, vbCritical
Resume ErrorExit
'clean up and reclaim memory resources.
conn.Close
If CBool(cnt.State And adStateOpen) Then
Set rst = Nothing
Set conn = Nothing
End If
End Sub
Хорошо. Я понимаю что ты имеешь ввиду. Я внес изменения, но теперь я получаю [Microsoft] [ODBC SQL Server Driver] [SQL Server] поставщик OLE DB «Microsoft.ACE.OLEDB.12.0» для связанного сервера «(null)» возвращенное сообщение «Unspecified error» , – brohjoe
Убедитесь, что учетная запись, под которой выполняется ваш запрос, имеет права доступа к файлу (возможно, требуется чтение и запись) и убедитесь, что файл не открыт нигде. (Также помните, что C: \ в этом пути - диск C на сервере!) –
Спасибо за помощь Alex. Ты тоже Радж! – brohjoe