Ver Mensaje Individual
  #4  
Antiguo 04-04-2008
Avatar de BlueSteel
[BlueSteel] BlueSteel is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Concepción - Chile
Posts: 2.310
Reputación: 24
BlueSteel Va por buen camino
Hola

bueno, eso de las comillas tambien me paso.. cuando usabe Interbase 6.... eso es producto del Dialecto que utilizas.. (según lo que me explicaron en algun post...)...

Mira.. aquí tengo algunos ejemplos.. de uso de Sentencias SQL.. (todos conectados a IBQuerys que estan en un DataModule llamado Datos)

Para Seleccionar
Código Delphi [-]
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;

Para Eliminar
Código Delphi [-]
 
Datos.IBQ_Edit.SQL.Clear;
Datos.IBQ_Edit.SQL.Add('Delete From "Cliente" Where "Cli_Rut"=:Var1');
Datos.IBQ_Edit.Params[0].AsString := Datos.IBQ_Select['Cli_Rut'];
Datos.IBQ_Edit.ExecSQL;
Datos.IBT_Edit.Commit;
Datos.IBT_Select.Commit;

Para Insertar
Código Delphi [-]
Datos.IBQ_Edit.SQL.Clear;
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;
Datos.IBT_Edit.Commit;
Datos.IBT_Select.Commit;

Bueno.. estos son solo algunos ejemplos de como realizaba yo el proceso para Interbase 6.. puede que con el Firebird sea lo mismo...

Salu2
__________________
BlueSteel
Responder Con Cita