Место общения программистов, форум разработчиков БД на Clarion
https://forum.clarionlife.net/
Код: Выделить всё
tmp MAVSelectКод: Выделить всё
tmp.Init(1,1)
tmp.BindFields(File)
IF NOT tmp.Run()
IF NOT tmp.Fetch()
! Вытащили
END
ENDЭтот вопрос неодократно подымался, 100% решения получения значенния IDENTITY поля после добавления никто не предложил, вероятность, что через волшебные SELECTы можно получить значения IDENTITY полей <= 100%. В твоём случае Select SCOPE_IDENTITY( ) врозвращает именно НОЛЬ, не считаю это проблемой библиотеки, что заказали то и получили.Денис писал(а):Вот еще проблема:
У таблицы есть автоинкрементное поле, в словаре ставлю у него Read only.
Так вот если в Init value прописать SELECT @@IDENTITY - все работает, а если Select SCOPE_IDENTITY( ) то нет. В трассе селект отрабатывает но значение поля = 0.
Хочется иметь возможность иметь значение поля с помощью SCOPE_IDENTITY( ), т.к. возможно использование триггеров с добавлением записей в другие таблицы с автоинкрементным полем
Помоему сдесь было только твое предложение по поводу Indentity полей - завести отдельную таблицу и самим вычислять очередное значение автоинкремента, а думаю что это неправельно. У сервера есть стандартные средства получения этого значения, их собственно 3. Это SELECT @@IDENTITY, SELECT SCOPE_IDENTITY() и SELECT IDENT_CURRENT('имя таблицы'). Подробно о них можно почитать в BOL.Andrew Myalin писал(а):Этот вопрос неодократно подымался, 100% решения получения значенния IDENTITY поля после добавления никто не предложил, вероятность, что через волшебные SELECTы можно получить значения IDENTITY полей <= 100%. В твоём случае Select SCOPE_IDENTITY( ) врозвращает именно НОЛЬ, не считаю это проблемой библиотеки, что заказали то и получили.Денис писал(а):Вот еще проблема:
У таблицы есть автоинкрементное поле, в словаре ставлю у него Read only.
Так вот если в Init value прописать SELECT @@IDENTITY - все работает, а если Select SCOPE_IDENTITY( ) то нет. В трассе селект отрабатывает но значение поля = 0.
Хочется иметь возможность иметь значение поля с помощью SCOPE_IDENTITY( ), т.к. возможно использование триггеров с добавлением записей в другие таблицы с автоинкрементным полем
я приведу лишь цитаты большой переписки на эту темуДенис писал(а):Andrew Myalin писал(а):Денис писал(а):Вот еще проблема:
У таблицы есть автоинкрементное поле, в словаре ставлю у него Read only.
Так вот если в Init value прописать SELECT @@IDENTITY - все работает, а если Select SCOPE_IDENTITY( ) то нет. В трассе селект отрабатывает но значение поля = 0.
Ещё нашёлся самый умный, ну раз я предлагаю неправильно, почему у тебя , где всё есть правильно, возникают проблемы на пустом месте?Денис писал(а): Помоему сдесь было только твое предложение по поводу Indentity полей - завести отдельную таблицу и самим вычислять очередное значение автоинкремента, а думаю что это неправельно. У сервера есть стандартные средства получения этого значения, их собственно 3. Это SELECT @@IDENTITY, SELECT SCOPE_IDENTITY() и SELECT IDENT_CURRENT('имя таблицы'). Подробно о них можно почитать в BOL.
это не из за особенностей клары, уже вроде всё понятноДенис писал(а):Запрос SELECT ... для получения значения поля делается в другом scope из-за особенностей работы клары с таблицами, я так понимаю?
Это понятно. Скажи как с наименьшими телодвижениями сделать чтоб при добавлении записи вызывалась ХП у нужными параметрами и т.д.это не из за особенностей клары, уже вроде всё понятно
делай всё в одной ХП INSERT + получение IDENTITY
и возвращай в OUTPUT параметр
в шаблоне оставь всё как есть, просто OMIT на MAVINSERT поставь, хотя можно и как тыДенис писал(а):Это понятно. Скажи как с наименьшими телодвижениями сделать чтоб при добавлении записи вызывалась ХП у нужными параметрами и т.д.это не из за особенностей клары, уже вроде всё понятно
делай всё в одной ХП INSERT + получение IDENTITY
и возвращай в OUTPUT параметр
Я делаю так: В шаблоне снимаю галку Incert, а в процедуре редактирования в класс ручками добавляю метод insert, в котором уже сам пишу то что мне нужно.
Код: Выделить всё
в MAV:Save.Insert декларируешь
tmp MAVSelect
sql MAVExecSP
CODE
tmp.BindFields(File)
! биндуем все поля записи продекоарированные в DCT
loop i# = 1 to records(tmp.QCol)
get(tmp.QCol,i#)
DbFiles.Manager.QReadOnly.hField = tmp.QCol.AdrField
GET(DbFiles.Manager.QReadOnly,DbFiles.Manager.QReadOnly.hField)
IF ERRORCODE()
sql.BindParameter(tmp.QCol.Field)
END
end
! биндуем OUTPUT доп параметр для получения нового ID первичного поля
sql.BindParameter(File.IdentityField,SQL_PARAM_OUTPUT)
IF sql.Run('myInsertToTable')
MAVSHOWERROR
RETURN 1
END
RETURN 0Код: Выделить всё
можно попробовать ещё проще, без ХП но в одном скопе
в MAV:Save.Insert декларируешь
str MAVSTring
str2 MAVSTring
tmp MAVSelect
sql MAVExecSP
CODE
tmp.BindFields(File)
! биндуем все поля записи продекоарированные в DCT
j# = 0
loop i# = 1 to records(tmp.QCol)
get(tmp.QCol,i#)
DbFiles.Manager.QReadOnly.hField = tmp.QCol.AdrField
GET(DbFiles.Manager.QReadOnly,DbFiles.Manager.QReadOnly.hField)
IF ERRORCODE()
sql.BindParameter(tmp.QCol.Field)
str.AppendString(CHOOSE(j#=0,'',',') & '?')
str2.AppendString(CHOOSE(j#=0,'',',') & tmp.Field(SELF.QCol.Field))
j# += 1
END
end
! биндуем OUTPUT доп параметр для получения нового ID первичного поля
str.AppendString(CHOOSE(j#=0,'',',') & '?')
sql.BindParameter(File.IdentityField,SQL_PARAM_OUTPUT)
IF sql.Run('BEGIN insert into ' & MAVTABLENAME(File) &|
'(' & str2.S[1 : str2.Pos] & ') values(' & str.S[1 : str.Pos] & ') ' &|
?= SELECT SCOPE_IDENTITY() END'
MAVSHOWERROR
RETURN 1
END
RETURN 0