update, insert, delete fibplus, ayuda!!!

[ecfisa]

Empezado por montesoft

Muy buenas tardes, debido a algunos inconvenientes con ibx decidí usar fibplus, la documentación y ejemplos q ofrece el desarrollador no es muy clara o detallada.

Hola montesoft.

Revisando uno de estos enlaces

• FIBPlus Developer's Guide I
• FIBPlus Developer's Guide II

pude leer:

...

Basic principles of work with datasets

TpFIBDataSet enables developers to select, insert, update and delete data. All these operations are executed by TpFIBQuery components in TpFIBDataSet.

To select data you set the SelectSQL property. It’s similar to setting the SQL property of the QSelect component (TpFIBQuery type). Define the InsertSQL.Text property to insert data, UpdateSQL.Text to update, DeleteSQL.Text to delete and RefreshSQL.Text to refresh the data.

We will use a demo database employee.gdb (or .fdb for Firebird) to show how to write Select
SQL and get a list of all employees. We will write all queries in InsertSQL, UpdateSQL, etc.

Código Delphi [-]
with pFIBDataSet1 do
begin
  if Active then Close;
  SelectSQL.Text := 'select CUST_NO, CUSTOMER, CONTACT_FIRST, CONTACT_LAST from CUSTOMER';
  InsertSQL.Text := 'insert into CUSTOMER(CUST_NO, CUSTOMER, CONTACT_FIRST, CONTACT_LAST )'+
                    ' values (:CUST_NO, :CUSTOMER, :CONTACT_FIRST, :CONTACT_LAST)';
  UpdateSQL.Text := 'update CUSTOMER set CUSTOMER = :CUSTOMER, '+
                    'CONTACT_FIRST = :CONTACT_FIRST, CONTACT_LAST = :CONTACT_LAST '+
                    'where CUST_NO = :CUST_NO';
  DeleteSQL.Text := 'delete from CUSTOMER where CUST_NO = :CUST_NO';
  RefreshSQL.Text:= 'select CUST_NO, CUSTOMER, CONTACT_FIRST, CONTACT_LAST ' +
                    'from CUSTOMER where CUST_NO = :CUST_NO';
  Open;
end;

...

Saludos.