Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / Как через ADO получить OUTPUT в переменную в VB ? / 4 сообщений из 4, страница 1 из 1
23.09.2002, 13:21:35
    #32052353
Kesha
Kesha
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как через ADO получить OUTPUT в переменную в VB ?
Как через ADO получить OUTPUT из procedure в переменную в VB ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2002, 13:32:08
    #32052360
sergwsk
sergwsk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как через ADO получить OUTPUT в переменную в VB ?
Dim cmdTMP As ADODB.Command
Dim prmP As ADODB.Parameter
DIM x_НовыйКод as Long

Set cmdTMP = New ADODB.Command
Set cmdTMP.ActiveConnection = x_ТекущееСоединение
cmdTMP.CommandType = adCmdStoredProc
cmdTMP.CommandText = "up_ПользовательскаяПроцедура"


Set prmP = cmdTMP.CreateParameter("НовыйКод", adInteger, adParamOutput)
cmdTMP.Parameters.Append prmP

cmdTMP.Execute
If IsNull(cmdTMP(0)) Then
Err.Raise 9999, , "АШИПКА!"
Else
x_НовыйКод = cmdTMP(0)
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.09.2002, 13:33:43
    #32052363
Lexis
Lexis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как через ADO получить OUTPUT в переменную в VB ?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
..........
    Set oParameter = New ADODB.Parameter
    oParameter.Direction = adParamReturnValue
    oParameter.Name =  "@ID" 
    oParameter.Type = adBigInt
    oCommand.Parameters.Append oParameter
    
    oCommand.Execute
   
    RecordID = oCommand.Parameters( 5 ).Value
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.09.2002, 12:58:32
    #32052647
akuz
akuz
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как через ADO получить OUTPUT в переменную в VB ?
Будь проще!
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim cmdTMP As ADODB.Command 
Dim prmP As ADODB.Parameter 
DIM x_НовыйКод as Long 

Set cmdTMP = New ADODB.Command 
Set cmdTMP.ActiveConnection = x_ТекущееСоединение 
cmdTMP.CommandType = adCmdStoredProc 
cmdTMP.CommandText =  "up_ПользовательскаяПроцедура" 
cmdTMP.Parameters.Refresh

cmdTMP.Execute

x_НовыйКод = cmdTMP.Parameters( "@parameter" )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft SQL Server [игнор отключен] [закрыт для гостей] / Как через ADO получить OUTPUT в переменную в VB ? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 370ms
Закрыть
start [/forum/topic.php?fid=46&mobile=1&tid=1820116]:
 0ms
get settings:
 8ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 35ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 241ms
total:  370ms
x
x
Закрыть


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