Есть скрипт, который создает таблицу DBF средствами ADODB. Как в эту таблицу добавить данные из MSSQL?
Выглядит примерно так:
Dim cnn
Dim path
Dim tablem
path = "C:\temp"
tablem = "MyTable"
Set cnn = CreateObject("ADODB.Connection")
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
cnn.Properties("Extended Properties") = "dBase IV"
cnn.Properties("Data Source") = path
cnn.Open
cnn.Execute _
"CREATE TABLE " & tablem & _
"(IdKey CHAR(40), NameCHAR(2))"
cnn.Execute _
"Insert into " & tablem & _ "(idKey)"
" Select a.IdKey " & vbCrLf & _
" FROM OPENROWSET ('SQLOLEDB', 'DRIVER={SQL Server}; " & vbCrLf & _ "SERVER=serverpr;UID=sa;PWD=123', " & vbCrLf & _
" 'SELECT idkey From Mbase.dbo.Goods " & vbCrLf & _
" WHERE D00072=9800' ) as a "
Я так понимаю, что в данном случае нельзя использовать OPENROWSET. Вылетает ошибка.
Подскажите,как это реализовать?