Добрый день!
Есть следующий код
| Код |
Sub Download()
Dim server As String: server = "s"
Dim UserId As String: UserId = "b"
Dim Passwo As String: Passwo = "1"
Dim con As adodb.Connection
Dim rst, rs As adodb.Recordset
Dim cmd As adodb.Command
Set con = New adodb.Connection
Set rst = New adodb.Recordset
Set rs = New adodb.Recordset
Set cmd = New adodb.Command
con.Open "Provider=SQLOLEDB;Persist Security Info=False;Password=" & Passwo & ";User ID=" & UserId & ";Data Source=" & server
With cmd
.ActiveConnection = con
.CommandText = "USE stat create table #Excel (idn int IDENTITY(1,1),dn char(24) not null, um char(31) null,nam char(32) null,)"
.CommandType = adCmdText
.Execute
End With
With cmd
.ActiveConnection = con
.CommandText = "USE stat Insert into #Excel (prtidn,drwnum, nmpnam)select prtidn,drwnum, nmpnam from Excel_view order by dn"
.CommandType = adCmdText
.Execute
End With
|
Вроде всё просто, но отчего-то оба cmd не отрадатываются, связь с базой есть. В Query Analyzer'e под теми же параметрами запросы работают.
|