Пытаюсь создать SQL-представление следующим образом:
Код |
---|
Sub trade_balances2()
Set cn = CreateObject("ADODB.Connection")
With cn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=" & ThisWorkbook.Sheets("База").Cells(2, 2) & ";Extended Properties=dBase IV"
.Open
Set rs = .Execute("CREATE VIEW terp AS " & _
"SELECT D_VAGON.NP_VAGD as hred FROM D_VAGON")
ThisWorkbook.Sheets("Процесс2").Cells.ClearContents
ThisWorkbook.Sheets("Процесс2").Cells(1, 1).CopyFromRecordset rs
.Close
End With
End Sub |
При запуске выдаётся ошибка «Операция не поддерживается для объектов этого типа». Как же создавать SQL-представления на VBA в Excel?