Subject | TIB_ROW |
---|---|
Author | peter@cyionics.com |
Post date | 2003-11-15T19:02:31Z |
The Prepost event of the TIB_Import returns a TIB_ROW.
I am trying to access all of the parameters as suggested by Jason to call a stored procedure that does an error trap on error code -803.
I can access them by index, which I know is wrong.
How do I access parameters by name ?
Rgds
Peter
procedure TForm1.IB_Import1PrePost(Sender: TObject; var ARow: TIB_Row;
var OkToPost: Boolean);
Var
NR : Integer;
begin
// This procedure here below works
{
**************************************************
// How do I do this by name ?????
NR := Arow.Columns[0].AsInteger; // field is called NR
******************************************************
with IB_DeleteProc do
begin
ParamByName('NR').AsInteger := NR;
If not prepared then Prepare;
ExecSQL;
close;
end;
}
end;
[Non-text portions of this message have been removed]
I am trying to access all of the parameters as suggested by Jason to call a stored procedure that does an error trap on error code -803.
I can access them by index, which I know is wrong.
How do I access parameters by name ?
Rgds
Peter
procedure TForm1.IB_Import1PrePost(Sender: TObject; var ARow: TIB_Row;
var OkToPost: Boolean);
Var
NR : Integer;
begin
// This procedure here below works
{
**************************************************
// How do I do this by name ?????
NR := Arow.Columns[0].AsInteger; // field is called NR
******************************************************
with IB_DeleteProc do
begin
ParamByName('NR').AsInteger := NR;
If not prepared then Prepare;
ExecSQL;
close;
end;
}
end;
[Non-text portions of this message have been removed]