Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Хранимые процедуры! / 5 сообщений из 5, страница 1 из 1
14.04.2006, 08:49
    #33666131
ba4inskii
ba4inskii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хранимые процедуры!
есть код:
Set cn = New ADODB.Connection

cn.Open "Provider=SQLOLEDB...."


Set cmd = New ADODB.Command
cmd.ActiveConnection = cn
cmd.CommandText = "qwe"
cmd.CommandType = adCmdStoredProc
cmd.CommandTimeout = 15
cmd.Parameters.Refresh


qwe = InputBox("123")

Set prm = New ADODB.Parameter
prm.Type = adInteger
prm.Size = 3
prm.Direction = adParamInput
prm.Value = qwe
cmd.Parameters.Append prm

Set rst = cmd.Execute()

при выполнение выдает ошибку
Procedure or function qwe has too many arguments specfied
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2006, 08:53
    #33666137
buser
buser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хранимые процедуры!
cmd.Parameters.Refresh... Уже заполнил коллекцию parametrs...
Это уже лишнее...
Set prm = New ADODB.Parameter
prm.Type = adInteger
prm.Size = 3
prm.Direction = adParamInput
prm.Value = qwe
cmd.Parameters.Append prm
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2006, 09:14
    #33666172
ba4inskii
ba4inskii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хранимые процедуры!
спасибо!!!
А дальше после выполнения хранимки
он пишет что рекордсет закрыт???
Set rst = cmd.Execute()
rst.Open

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Sheets(1)
'xapll.Visible = True

For iCols = 0 To rst.Fields.Count - 1
xlSheet.Cells(1, iCols + 1).Value = rst.Fields(iCols).Name
Next
xlSheet.Range("A2").CopyFromRecordset rst
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2006, 09:16
    #33666177
buser
buser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хранимые процедуры!
Вариантов несколько... Для MS SQL - set nocount on в начало пр-ры... NextRecordset для перебора наборов...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
14.04.2006, 09:29
    #33666203
ba4inskii
ba4inskii
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хранимые процедуры!
buserВариантов несколько... Для MS SQL - set nocount on в начало пр-ры... NextRecordset для перебора наборов...
Огромное спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Хранимые процедуры! / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 348ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166048]:
 0ms
get settings:
 10ms
get forum list:
 19ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 29ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 220ms
total:  348ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]