community.borland.com

Article #20220: test article 3000 characters or is it more????

test, test, test. for the stored procedure. TIBSQL.Current returns the current TIBXSQLDA object associated with the TIBSQL. The following code example executes a stored procedure, new_key, that does not take any parameters but does return a value. The 'new_key' procedure is defined as follows: create procedure new_key returns (newkey integer) as begin newkey = gen_id(vote_pui_gen, 1); end For more information on creating stored procedures refer to the InterBase "Data Definition Guide", and "Programmer's Guide". procedure TForm1.Button1Click(Sender: TObject); begin IBSQL1.SQL.Clear; IBSQL1.SQL.Add('execute procedure new_key'); IBSQL1.ExecQuery; Form1.Caption := IBSQL1.Current.Vars[0].AsString; end; If the procedure returns multiple parameters, you can iterate through the Vars array to extract all of the parameters. Article ID:20179 Type:FAQ Product: BDE 1.x Publish Date: November 30, 1999 Last Modified: December

Last Modified: 03-DEC-99