Copias de DataSet

[[Lepe]]

Una pequeña puntualización:

Código Delphi [-]
cv:= dm.IBDataSet1; 
// copio el dataset del DataModule a uno locar. (AQUI LA MADRE DEL CORDERO)

No estás copiando nada. En memoria RAM, solo tienes un conjuto de registros al que accedes desde dos punteros:
- uno el "dm.Ibdataset1"
- otro puntero el "cv"

Si cierras la consulta mediante el "cv" o mediante el "dm.Ibdataset1", estás actuando sobre los mismos datos.

Lo normal es tener un IBdataset por cada tabla que quieras modificar. En todas las aplicaciones, tengo una rutina del tipo:

Código Delphi [-]
function CreaQry(const TheSql:string):Tibquery;
begin
   Result := Tibquery.create(nil);
   Result.Database := midtb;
   Result.Transaction := trans1;
   Result.sql.text := TheSql;
end;

Ahora solo tienes que llamar a la función así:

Código Delphi [-]
var q:Tibquery;
begin 
  q := CreaQry('update tabla set miCampo = 3 where codigo =2');
  q.ExecSql;
  q.Sql.Text := 'select * from tabla';
  q.Open;
  ....
  FreeAndnil(q);

Saludos

[Dado de baja]

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.

[[Lepe]]

Si, es correcto, aunque puedes mejorarlo haciendote algunas preguntas:

1- ¿Necesito poder modificar los registros?
Si - usa un TIbDataset
No - usa un TibQuery y sigue leyendo.

2- ¿Necesito recorrer los registros del query hacia delante y hacia atrás?
Si - Sigo usando un Tibquery
No - Usar un TibSql

Imagina, necesitamos recorrer todos los registros de un Query para añadir un campo a un combobox. Solo necesitamos recorrer los registros una sola vez, desde el principio del dataset hasta el final, pues usamos un ibSql.

Necesitamos una consulta oculta que usaremos para buscar la descripción de los clientes desde varias ventanas, necesitamos mover el puntero del dataset en ambos sentidos, hacia delante y hacia atrás, usamos un Ibquery.

Obviamente el ibsql es el que menos recursos consume, después va el ibquery y el que más consume, por así decirlo es el ibdataset.

Acabo de ver una incongruencia en el código:

Código Delphi [-]
cv:=TIBdataset.Create(Application);
...
cv.Free

Dices que el objeto "Application" será el que lo destruya, pero después tú mismo te encargas de destruirlo. Esto puede provacar errores al cerrar tu programa, donde no podrás situar puntos de ruptura. Puedes usar estas dos alternativas:

Código Delphi [-]
cv:=TIBdataset.Create(Application);
...
FreeAndNil(cv);

o bien:

Código Delphi [-]
cv:=TIBdataset.Create(nil);
...
cv.Free

Saludos