Utilizo una clase de coneccion y Objetos Como de FibPlus
-TpFIBDatabase
-TpFIBQuery
-TpFIBDataSet
-TpFIBTransaction
Código Delphi
[-]
function TConexion.Consultar(CodigoSQL: String): TDataSource;
begin
With Dataset Do Begin
Close;
SQLs.SelectSQL.Clear;;
SQLs.SelectSQL.Add(CodigoSQL);
Prepare;
Try
Open;
Except on E:Exception do
Begin
Raise;
Exit;
End;
End;
End;
Result:= TDataSource.Create(Nil);
Result.DataSet:=Dataset;
end;
* Son seis consltas a diferentes tablas.. Eso hace diferente las consultas..
*y para el vaciado es asi: Un ejemplo.
Código Delphi
[-]
cxLookupComboBox1.Properties.ListSource:= Conexion.Consulta "Select * From Tabla");
cxLookupComboBox1.Properties.KeyFieldNames:='Codigo';
cxLookupComboBox1.Properties.ListFieldNames:='Nombre';
NOTA: Utilizo en patron singleton para apuntar a la misma memoria pero solo con la clase Conexion..
Espero y Me ayuden ya que llevo varios dias tratando de solucionar este problema..
Gracias¡¡