VPF::Выполнение запроса в базе MS SQL - Форум программистов

Itrch

Дата 15.6.2009, 09:11 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 30.1.2007

Репутация: нет
Всего: нет

Добрый день!
Есть следующий код

Код


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 под теми же параметрами запросы работают.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »