Vaciar contenido dataset a otro

[[Al González]]

Empezado por TaaDow

...despues de 5 horas en un 87% mi pc(w7,c2duo,3gb ram) se quedo sin memoria. procesando un dataset de 7 columnas por 52mil registros...

Que extraño.

Después de lo que describes, pareciera como si nunca llegara a cumplirse la condición del While, vaya, como si la sentencia sql_Origen.Next no se ejecutara o algún evento moviera el cursor después de su acción.

¿Tienes manejadores de eventos asociados a sql_Origen?

[TaaDow]

Al Gonzales, gracias por contestar, cuando dejo el applyupdates adentro del while, es si termina de hacer el copiado, el problema es que se demora bastante, tengo asociado a la funcion solo una barra de progreso, y el boton que lanza la funcion, hago pruebas con 2000 registros y lo hace rapido, pero ya con esa carga, lo hace muy lento.

Código Delphi [-]
procedure TForm1.CopiarRegistro(sql_Origen :TSimpleDataSet; sql_Destino :TSimpleDataSet);
var
  lint_Cursor : Integer;
  x            : Integer;
begin

  sql_Destino.Open;
  sql_Origen.Open;

   self.cxProgressBar1.Clear;
  self.cxProgressBar1.Properties.Min:= 1;
  self.cxProgressBar1.Properties.Max:= sql_Origen.RecordCount;
  self.cxProgressBar1.Position:=1;

 while(not sql_Origen.Eof) do
  begin
        sql_Destino.Append ;

        for lint_Cursor := 0 to (sql_Destino.Fieldcount-1) do
             sql_Destino.fields[lint_Cursor].Value := sql_Origen.fields[lint_Cursor].Value;
        sql_Destino.Post;

        sql_Origen.Next;

        self.cxProgressBar1.Position:= self.cxProgressBar1.Position+1;
        self.cxProgressBar1.Refresh;
   
   end;
   sql_Destino.ApplyUpdates(-1);
 end;

es mi primer reto con delphi, no tengo el criterio o la suficiente experiencia para saber si es normal que se demore tanto, alguna sugerencia?

[[Al González]]

Empezado por TaaDow

alguna sugerencia?

Una idea: ¿pasa lo mismo si comentas las sentencias que tienen que ver con la barra de progreso?

[chingolo]

porque no probas haciendo hilos de ejecucion?
o la manera mas facil es:

"INSERT INTO TU_TABLA_DESTINO VALUES (SELECT * FROM TU_TABLA_ORIGEN)"
esto copia todo el contenido del tu tabla origen a la de destino
luego haces un delete de tu talva origen y... listo el pollo pelada la gallina

[Axel_Tech]

Empezado por chingolo

porque no probas haciendo hilos de ejecucion?
o la manera mas facil es:

"INSERT INTO TU_TABLA_DESTINO VALUES (SELECT * FROM TU_TABLA_ORIGEN)"
esto copia todo el contenido del tu tabla origen a la de destino
luego haces un delete de tu talva origen y... listo el pollo pelada la gallina

Sería lo más fácil pero en este caso no se puede hacer eso porque son 2 tablas en 2 bd de distinto motor (Oracle y SQL Server).
A mí se me presentó una situción parecida (meter datos de una tabla de Access en una de Firebird) y lo hice de otra manera, aunque la idea es la misma: ir leyendo registro a registro de una e ir insertando en la otra. La principal diferencia radica en que no meto el valor de la propiedad Fields de un DataSet en el otro sino que leo un registro de la tabla origen, monto una cadena con un INSERT y lo meto en la tabla destino. Te muestro cómo, sólo que yo en vez de con TSimpleDataSet lo hice con Querys:

Código Delphi [-]
Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Text = 'SELECT CAMPO1, CAMPO2, CAMPO3, CAMPO4, CAMPO5, CAMPO6 FROM TABLAORACLE';
Query1.Active := True;
Query1.First;

while not Query1.Eof do
  begin
    cad := '';
    cad := 'INSERT INTO TABLASQLSERVER (CAMPO1, CAMPO2, CAMPO3, CAMPO4, CAMPO5, CAMPO6) VALUES (';
    cad := cad + '' + Query1.FieldByName('CAMPO1').AsString + ',';
    cad := cad + '' + Query1.FieldByName('CAMPO2').AsString + ',';
    cad := cad + '' + Query1.FieldByName('CAMPO3').AsString + ',';
    cad := cad + '' + Query1.FieldByName('CAMPO4').AsString + ',';
    cad := cad + '' + Query1.FieldByName('CAMPO5').AsString + ',';
    cad := cad + '' + Query1.FieldByName('CAMPO6').AsString + ')';  //creamos la cadena con el insert into

    Query2.SQL.Clear;
    Query2.SQL.Text = cad;   //insertamos el nuevo registro
    Query2.ExecSQL;

    Query1.Next;
  end;

Más de 1600 registros con 5 columnas me lo hace en menos de 6 segundos, y mi equipo es bastante peor que el tuyo (AMD Sempron 1'8 Ghz y 512 de Ram) asique así a ojo lo tuyo no creo que tardara más de 4 minutos.

Por cierto, ¿no tendrás triggers before o after insert en la tabla de SQL Server? a ver si es que cada vez que insertas un registro se disparan y por eso te tarda tanto...

[chingolo]

leyendo encontre esto:

Código SQL [-]
INSERT INTO BD2..destino SELECT * FROM BD1..origen

obviamente con los mismo campos

[TaaDow]

Con la funcion de los dos datasets, puedo hacer el vaciado pero, es muy lento proceso, hice algo similar a lo que propone axeltech, con dos TSQLquery, y construir los inserts, funciona, se demoro 3 minutos, con los 51000 registros, lo unico que no me parece es lo estatico del codigo, pero igual, esta bien, son cuatro tablas diferentes, aplicare un switch case evaluando los casos.

De antemano, roman, cloayza,Al González, Axel_Tech, chingolo, gracias por las respuestas, fueron de gran ayuda. creo que ya se puede cerrar el tema.

TaaDow.