powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с возвратом параметра после вставки в Oracle
1 сообщений из 1, страница 1 из 1
Помогите с возвратом параметра после вставки в Oracle
    #33588687
SHGulnur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго времени суток!!
Есть проблема, после вставки записи мне надо чтобы ado.command
возвращал значение первичного ключа (ID)
Set cmdA = Nothing
rSql = "insert into " & aAlias & "iddoc (kldoc_klkod,spzag_id,ser,nom,datev,sporg_id) Values (" & _
"?,?,?,?,?,?) returning id into ?"
cmdA.ActiveConnection = cAIS.Connection
cmdA.CommandText = rSql
Set pr1 = cmdA.CreateParameter("par1", adVarChar, adParamInput, 10, p3)
Set pr2 = cmdA.CreateParameter("par2", adVarChar, adParamInput, 15, p4)
Set pr3 = cmdA.CreateParameter("par3", adVarChar, adParamInput, 50, p5)
Set pr4 = cmdA.CreateParameter("par4", adVarChar, adParamInput, 50, p6)
Set pr5 = cmdA.CreateParameter("par5", adDate, adParamInput, p7)
Set pr6 = cmdA.CreateParameter("par6", adVarChar, adParamInput, 15, p13)
Set pr7 = cmdA.CreateParameter("par7", adVarChar, adParamReturnValue, 15)
cmdA.Parameters.Append pr1
cmdA.Parameters.Append pr2
cmdA.Parameters.Append pr3
cmdA.Parameters.Append pr4
cmdA.Parameters.Append pr5
cmdA.Parameters.Append pr6
cmdA.Parameters.Append pr7
cmdA.Execute
InsNewDOC = pr7.Value
Set cmdA = Nothing
Выходит обшибка "Недопустимые сведения о привязке"
если у кого сталкивался с такой задачой, помогите, может надо указывать по другому, но я незнаю как, но Oracle так возвращает вставленное значение:
returning id into GGG
как получить значение GGG
Заранее спсбо
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите с возвратом параметра после вставки в Oracle
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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