|
|
|
Хранимые процедуры!
|
|||
|---|---|---|---|
|
#18+
есть код: 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.04.2006, 08:49 |
|
||
|
Хранимые процедуры!
|
|||
|---|---|---|---|
|
#18+
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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.04.2006, 08:53 |
|
||
|
Хранимые процедуры!
|
|||
|---|---|---|---|
|
#18+
спасибо!!! А дальше после выполнения хранимки он пишет что рекордсет закрыт??? 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.04.2006, 09:14 |
|
||
|
Хранимые процедуры!
|
|||
|---|---|---|---|
|
#18+
Вариантов несколько... Для MS SQL - set nocount on в начало пр-ры... NextRecordset для перебора наборов... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.04.2006, 09:16 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=33666137&tid=2166048]: |
0ms |
get settings: |
7ms |
get forum list: |
15ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
164ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
36ms |
get tp. blocked users: |
1ms |
| others: | 252ms |
| total: | 491ms |
| 0 / 0 |
