copiar una tabla a otra

[Casimiro Noteví]

No entiendo bien lo que dices ¿un botón 'nuevo' que borra?
Un botón 'Nuevo' debe servir para eso, para 'Nuevo'. Y un botón 'Borrar' debe servir para borrar. No confundas al usuario.

Por cierto, no sé qué BD, componentes, etc. estás usando, pero en principio en tu código sobra el table.next
Si estás posicionado en un registro y lo borras, entonces pasas a estar posicionado en el siguiente. Si haces un .next te lo saltas e iría "al siguiente del siguiente". Estarías borrando uno sí y uno no, uno sí y uno no...

¿Y el libro que te aconsejé?, parece que no has tenido tiempo de leerlo

[ozsWizzard]

Funcionar, funcionaría si cambias Open por ExecSQL y, como dice Casimiro, te falta borrar en tabla 1.

Si lo que quieres es que esté todo en el mismo botón, hazlo en el mismo botón y después del insert borras

Código Delphi [-]
with Query1 do   
begin     
   Close;     
   SQL.Clear;     
   SQL.Add('INSERT INTO Tabla2');     
   SQL.Add('SELECT * FROM Tabla1');     
   ExecSQL;   

   Close;     
   SQL.Clear;     
   SQL.Add('DELETE Tabla1');     
   ExecSQL;  
end;

[DOS]

Empezado por ozsWizzard

Funcionar, funcionaría si cambias Open por ExecSQL y, como dice Casimiro, te falta borrar en tabla 1.

Si lo que quieres es que esté todo en el mismo botón, hazlo en el mismo botón y después del insert borras

Código Delphi [-]with Query1 do begin Close; SQL.Clear; SQL.Add('INSERT INTO Tabla2'); SQL.Add('SELECT * FROM Tabla1'); ExecSQL; Close; SQL.Clear; SQL.Add('DELETE Tabla1'); ExecSQL; end;

Podria ser, lo tengo que probar, no conocia el comando ExecSQL, de esta manera tendria un solo boton, GUARDAR, en donde guardo los datos de una tabla a la otra y borro el registro de la primera asi queda lista para ser cargada, gracias.

[DOS]

Realice una prueba de la siguiente manera
detfactura // tabla provisoria, esta se borra con cada carga
Numdetfact
Numfact
Cod_art
Cantidad

detfactfinal // tabla detalle final, esta se carga con la anterior
Numdetfact * // clave principal
Numfact // numero de la factura
Cod_art // relacionado con articulo
Cantidad // cantidad del producto

producto
cod_producto
nombre
importe

cliente
cod_cliente
nombre

factura // almacena todos los datos
cod_fact //es el numero de la factura que figura en Numfact de detfactfinal
cod_cliente
Fecha

y el boton "nuevo" con la siguiente codificacion:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  with Query1 do begin         
    Close;         
    SQL.Clear;    
    SQL.Add('INSERT INTO detfactfinal');    
    SQL.Add('SELECT * FROM detfactura');    
    ExecSQL;     
    Close;    
    SQL.Clear;    
    SQL.Add('DELETE detfactura');    
    ExecSQL;   
  end; 
end;

Cuando lo hago correr me tira el siguiente error:""... raised exception class EDBEngineError with message 'Token not found, token: detfactura
Line Number: 1'.Process stopped..."
y me creo un nuevo archivo llamado ERRORINIS.DB, en donde si guarda lo cargado y la tabla original no se borra tampoco, que puede ser?

[ecfisa]

Hola DOS.

Perdón por lo tardía de la respuesta, pero es finde y no entro tanto...

Código Delphi [-]
    ...
    Close;  
    SQL.Text := 'DELETE FROM DETFACTURA';    
    ExecSQL;   
  end;
end;

Saludos.

[ozsWizzard]

Otro matiz, creo que la "select" del "insert" ha de ir con parénteis.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  with Query1 do begin         
    Close;         
    SQL.Clear;    
    SQL.Add('INSERT INTO detfactfinal');    
    SQL.Add('(SELECT * FROM detfactura)');    
    ExecSQL;     
    Close;    
    SQL.Clear;    
    SQL.Add('DELETE detfactura');    
    ExecSQL;   
  end; 
end;

Además, si la base de datos es Sql Server, se debe poner la lista de campos de las tablas

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  with Query1 do begin         
    Close;         
    SQL.Clear;    
    SQL.Add('INSERT INTO detfactfinal (Numdetfact, Numfact, Cod_art, Cantidad');    
    SQL.Add('(SELECT Numdetfact, Numfact, Cod_art, Cantidad FROM detfactura)');    
    ExecSQL;     
    Close;    
    SQL.Clear;    
    SQL.Add('DELETE detfactura');    
    ExecSQL;   
  end; 
end;

[olbeup]

Empezado por ozsWizzard

Otro matiz, creo que la "select" del "insert" ha de ir con parénteis.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  with Query1 do begin         
    Close;         
    SQL.Clear;    
    SQL.Add('INSERT INTO detfactfinal');    
    SQL.Add('(SELECT * FROM detfactura)');    
    ExecSQL;     
    Close;    
    SQL.Clear;    
    SQL.Add('DELETE detfactura');    
    ExecSQL;   
  end; 
end;

Además, si la base de datos es Sql Server, se debe poner la lista de campos de las tablas

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  with Query1 do begin         
    Close;         
    SQL.Clear;    
    SQL.Add('INSERT INTO detfactfinal (Numdetfact, Numfact, Cod_art, Cantidad)');    <-- Te falta un ")"
    SQL.Add('(SELECT Numdetfact, Numfact, Cod_art, Cantidad FROM detfactura)');  <-- Puedes omitir los paréntesis
    ExecSQL;     
    Close;    
    SQL.Clear;    
    SQL.Add('DELETE detfactura');    
    ExecSQL;   
  end; 
end;

Si la base de datos es SQL SERVER lo puedes hacer todo en una sola consulta, Insertar, Borrar, Actualizar e incluso hacer un Select al final de la consulta.

Un saludo.

[DOS]

Empezado por Casimiro Notevi

No entiendo bien lo que dices ¿un botón 'nuevo' que borra?
Un botón 'Nuevo' debe servir para eso, para 'Nuevo'. Y un botón 'Borrar' debe servir para borrar. No confundas al usuario.

Por cierto, no sé qué BD, componentes, etc. estás usando, pero en principio en tu código sobra el table.next
Si estás posicionado en un registro y lo borras, entonces pasas a estar posicionado en el siguiente. Si haces un .next te lo saltas e iría "al siguiente del siguiente". Estarías borrando uno sí y uno no, uno sí y uno no...

¿Y el libro que te aconsejé?, parece que no has tenido tiempo de leerlo

Lo del boton era una opcion, poner dos botones uno que borre la tabla y otro que cargue la nueva tabla o al poner nuevo, borre la tabla y quede lista para su carga ya que esta se ve en un DBGrid en un formulario, asi el usuario lo limpiaria y seria mejor visualmete.
Tengo un formulario, en donde esta las tablas, un Query y un DBGrid donde muestro lo que se esta cargando y los botones de "nuevo", que borra los registros anteriores y permite su carga y "guardar" que pasa de una tabla a la otra los registros, esta realizada en paradox.
Hoy a la noche lo pruebo en Delphi y actualizo lo que pasa.
El libro bueno... estemm... ya lo tengo