Ver Mensaje Individual
  #3  
Antiguo 02-04-2008
Cecilio Cecilio is offline
Miembro
 
Registrado: ago 2007
Posts: 140
Reputación: 17
Cecilio Va por buen camino
Me has aclarado mucho.
No había tenido en cuenta lo de los punteros.

He resuelto el problema de una forma a ver si está bien así:
Código Delphi [-]
procedure Taltamod.GetCV(cod: string; al: string; var C: Double; var V: Double);
var
  cv: TIBdataSet; // HE AGREGADO ESTO
  s: string;
begin
//
//
s:='select entrada, salida from existencias';
s:=s+' where codigo='+quotedstr(cod)+' and almacen='+quotedstr(al);
{
dm.IBDataSet1.SelectSQL.Text:=s;
dm.IBDataSet1.Active:=true;
cv:=dm.IBDataSet1;
} // ASI ESTABA ANTES

cv:=TIBdataset.Create(Application);
cv.Database:=dm.IBDatabase1;
cv.Transaction:=dm.IBTransaction1;
cv.SelectSQL.Text:=s;
cv.Active:=true;

c:=cv.FieldByName('entrada').AsFloat;
v:=cv.FieldByName('salida').AsFloat;
cv.Free;

Pregunto: ¿ haciendo esto, es decir usando un TIBDataSet nuevo, sería la forma correcta de trabajar con DataSet para obtener datos puntuales ?

Gracias.
__________________
Saludos Cordiales.
------------------

Responder Con Cita