problemas con inserciones, modificaciones y eliminaciones en Interbase con Delphi

[[BlueSteel]]

Hola Nereida

Creo que te seria util leer la cara oculta de delphi 4... te puede aclarar varias cosas...Tambien te recomendaria que te dieras una buelta por la Wiki.. tambien existen varios ejemplos

Bueno... pasando a tu tema...

Yo trabajo con Interbase 6, Delphi 7 y componente IBX

Cuando desarrollo un proyecto, creo un Formulario de Tipo DataModule... lo nombro como Datos y en él dejo todos los componentes IBX para conexión al Interbase... estos son:

-( 1 ) TIBDatabase -> conexión a la base... direcion..ruta..archivo

-( n ) TIBQuery -> conexión a tablas y/o procesos de actualización de registros
-( n ) TIBTransaction (hacer doble click y dejar en Read Committed para reflejar actualizaciones)

Para insertar un registro, utilizo un codigo similar al que sigue

Código Delphi [-]
 
// Datos es un Formulario de tipo DataModule donde estan todo lo que mencione antes
 
Datos.IBQ_Edit.SQL.Clear;
// Aqui comienzo a realizar instrucción para insertar registros
Datos.IBQ_Edit.SQL.Add('Insert Into "Cliente" ("Cli_Rut","Cli_Razon","Cli_Giro","Cli_Email","Cli_Direccion","Cli_Poblacion","Cli_Comuna","Cli_Fono  ","Cli_Fax")');
Datos.IBQ_Edit.SQL.Add('Values (:P1, :P2, :P3, :P4, :P5, :P6, :P7, :P8, :P9)');
Datos.IBQ_Edit.Params[0].AsString := vRut.Text;
Datos.IBQ_Edit.Params[1].AsString := vRaz.Text;
Datos.IBQ_Edit.Params[2].AsString := vGir.Text;
Datos.IBQ_Edit.Params[3].AsString := vMai.Text;
Datos.IBQ_Edit.Params[4].AsString := vDir.Text;
Datos.IBQ_Edit.Params[5].AsString := vPob.Text;
Datos.IBQ_Edit.Params[6].AsString := vCom.Text;
Datos.IBQ_Edit.Params[7].AsString := vTel.Text;
Datos.IBQ_Edit.Params[8].AsString := vFax.Text;
Datos.IBQ_Edit.ExecSQL;  // Ejecuto sentencia SQL
Datos.IBT_Edit.Commit; // Aplico cambios en la transacción asociada

Selecciona_Cliente; // procedimiento que me realiza un select de todos los registro para que se muestre el insertado

Código Delphi [-]
// Este es el proceso que se llama en el codigo de arriba
procedure Selecciona_Cliente;
begin
     Datos.IBQ_Select.Close;
     Datos.IBQ_Select.SQL.Clear;
     Datos.IBQ_Select.SQL.Add('Select * From "Cliente" Order By "Cli_Rut"');
     Datos.IBQ_Select.Open;
end;

Bueno... espero que este código te sea de ayuda.. cualquier cosa..sigue preguntando..

Salu2