forum.clarionlife.net

Код: Выделить всё

DbFiles.Manager.QReadOnly.hField = tmp.QCol.AdrField

Код: Выделить всё

sql.BindParameter|(tmp.QCol.Field)

Код: Выделить всё

MAV:Save.Insert                          FUNCTION
! Start of "MAV SaveButton"
! [Priority 5000]
tmp  MAVSelect
sql  MAVExecSP
! End of "MAV SaveButton"
 CODE
! Start of "MAV SaveButton"
! [Priority 3500]
 tmp.BindFields(SQL_WDiagramB)
 ! биндуем все поля записи продекларированные в 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(SQL_WDiagramB.WorkDayID,SQL_PARAM_OUTPUT)

  IF sql.Run('CL_InsWDiagramB',1)
    MAVSHOWERROR
   RETURN 1
  END

  RETURN 0
 ! Start of "MAV SaveButton"
 ! [Priority 5000]
 OMIT('**MYINSERT**')
 ! End of "MAV SaveButton"
 IF MAVINSERT(SQL_WDiagramB)
  MAVSHOWERROR
  RETURN 1
 END
! [Priority 8500]

 RETURN PARENT.Insert()
! [Priority 9950]
 '**MYINSERT**'
! End of "MAV SaveButton"

Код: Выделить всё

 begin
   insert into myTable (field2,field3,field4) values(?,?,?)
   ? = select SCOPE_IDENTITY()
 end

Код: Выделить всё

SELECT SCOPE_IDENTITY()

Код: Выделить всё

11803608 Maximum read 1 rows for cursor
Binding field 1  = bbb
Binding field 2  = 5
11803608 Parsing Cursor : INSERT INTO dbo.TEST_Table ("Field2","Field3") 
VALUES(?,?) SELECT SCOPE_IDENTITY()
11803608 Fetch cursor (1)
 = 47