|
Estoy completamente de acuerdo con lo de la excepción y lo pondré en práctica. Me he puesto con ello pero me ha asaltado una duda, una vez creaod el DataSet y extraídos los campos (registro por registro) de la query, como inserto en el nuevo DataSet??. Tengo algo parecido a esto:
while not qQuery.Eof do begin
Campo1 := qQuery.FieldByName('CAMPO1').AsString;
Campo2 := qQuery.FieldByName('CAMPO2').AsString;
Campo3 := qQuery.FieldByName('CAMPO3').AsString;
if (Campo1 = 'codigo') then begin
AsignaValores; // Toma los valores de los campos en otro procedure
Listado1.Add(Linea); // Antiguamente añadía una línea a un TStringList
end
else
if (Campo1 = 'codigo 2') then begin
AsignaValores;
Listado2.Add(Linea)
end ......
El caso es que en lugar de añadir líneas a un TStringList para crear un fichero .txt necesito añadir los registros a un TDataSet creado en tiempo de ejecución para poder transformarlo en un fichero .csv.......como podría hacerlo??
Gracias por vuestras respuestas.
Un saludo.
|