copiar una tabla a otra

[DOS]

Hola a todos, resulta que tengo dos tablas iguales en sus campos, en una cargo los datos y estos los guardo en la otra tabla luego vacio la primera, cargo nuevamente datos y se los agrego para guardarlos en la segunda y borrar nuevamente la primera, seria algo asi:
Tabla1
A - B - C - D
1 - 2 - 2 - 4

Tabla2
A - B -C - D

Paso los datos de la primera a la segunda y esta la borro

Tabla1
A - B - C - D

Tabla2
A - B - C - D
1 - 2 - 2 - 4

Cargo nuevos datos en la primera
Tabla1
A - B - C - D
5 - 5 - 3 - 3

Tabla2
A - B - C - D
1 - 2 - 2 - 4
los paso a la segunda y borro la primera
Tabla1
A - B - C - D

Tabla2
A - B - C - D
1 - 2 - 2 - 4
5 - 5 - 3 - 3
y asi sucesivamente, la idea es hacerlo con el siguiente codigo

Código SQL [-]
Insert Into Tabla2
Select * From Tabla1

Perdonen que pregunte sin probarlo pero estoy en mi trabajo y para ganar tiempo lo pregunto, Lo estoy realizando en Delphi7, voy a poner un Query y la codificacion seria en el boton guardar.
Mas en limpio seria algo como esto en el boton Guardar:

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

Funcionaria? no me va a borrar los registros anteriores? Gracias.

[Casimiro Notevi]

Usas insert y select, para borrar es delete. Si no usas delete entonces no se borran.

[DOS]

Casimiro, la codificacion que puse es la que seria del boton Guardar, aunque le faltaria algo mas. La del boton Borrar, aunque podria ser en un boton que diga Nuevo, asi borra la tabla para poder cargarla y con la codificacion anterior en el boton Guardar, pasa los datos de una tabla y se lo agrega a la otra:
Boton Nuevo(borra el registro anterior y permite una nueva carga)

Código Delphi [-]
if table.Open then
 table.First;
 while not table.Eof do
 begin    
    Table.delete;    
    Table:next;   
end;

Gracias

[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

[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]

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

[DOS]

Bueno, lamentablemente se me termino el tiempo con mi proyecto final, lo tengo que entregar la semana que viene y salvo algunos detalles que trabajare sobre ellos, me falta la parte de facturación que esta a medias( un poco mas).
pero si no lo presento o esta mal tengo que recursar nuevamente el proximo año, es por falta de estudio, no lo creo, es por falta de tiempo, puede ser, es por falta de conocimiento y enseñanza, seguramente ya que aprendí mas en este foro que en clases.
Asi que ofresco $100.-(se que no es mucho, pero es muy simple lo que hay que hacer, para alguien que sabe)
Basicamente lo que resta hacer es lo siguiente;
1 los datos se cargan en una tabla temporal, llamada detfactura, la cual se debe borrar con cada carga nueva.
2 se debe almacenar los datos de la tabla temporal en la final 'detfacturafinal'
3 en la parte de historico poder ver todas las facturas realizadas
4 imprimir la factura.
les dejo las imagenes de la tabla factura (form14) y el archivo con todo completo.
Como veran el nivel del sistema es muy basico y esto se debe mantener así, lo mas sencillo posible y basico posible. Pueden realizar cambios si lo creen necesario.
El sistema esta realizado en Delphi7 y Paradox.
No queria llegar a esta situacion, pero no puedo recursar un año mas por esto, tengo 41 años, no me dedico a esto, trabajo en un deposito, ni voy a vivir de esto(lamentablemente) 10 o 15 años atrás seria diferente, ahora es solo por diversion.
Al que lo realice, lo debo probar y estar de acuerdo con lo realizado, el dinero se lo paso a la cuenta, por las dudas soy de argentina o a través de PayPal.
solamente gracias.



el archivo del sistema
https://www.dropbox.com/s/k4oh0ou4ndvkr4m/ITM.rar

[[Caral]]

Hola
te ayudo gratis.
Tengo el programa que quieres.
Saludos
NOTA: Por favor, lo mas detalladamente posible.

[DOS]

Gracias, te envie un MP.

[[Caral]]

Hola
Vamos paso a paso
1- El boton nueva factura que quieres que haga?
saludos

[[Caral]]

Hola
da la impresion de que el boton Nueva Factura se usa para insertar en detfacturafinal y borrar en detfactura pero que ?, ahi no se apunta nada mas que a todo en detfactura pero no se especifica nada, osea, no creo que haga nada.
Ademas el uso del query esta mal.
Saludos

[DOS]

solapa carga de factura
boton Nueva factura :que limpie el DBGrid3 que es en el que se van cargando los elementos a facturar a traves del DBGrid 2, y la deje a la tabla en modo de edicion(table2 detfactura)
solapa detalle de factura
Boton Guardar : pasa los datos de la tabla temporal(table2 detfactura) a la final(table7 detfacturafinal) y a la tabla factura(table1 factura)
solapa historial
ver todas las facturas realizadas