Mover registros de tabla a otra con vb6

[gavafra]

Hola, buenas tardes, quisiera que me ayudaran para poder mover ciertos registros de una tabla de access que cumplan una condicion de un rango de fechas .
Lo que necesito es eliminar de la primer tabla (tabla1) los registros que seleccione el usuario y pasar esos mismos registros otra tabla (tabla2) de access para hacer reportes historicos con datareport.
La tabla1 y tabla2 tienen los mismos campos.


Gracias por su ayuda.

[Samaris]

Osea... lo que quieres es trabajar con una tabla temporal...
suponiendo que hay dos dtpicker donde el usuario indica el rango de fechas.. y suponiendo que el primer campo en ambas tablas es la dichosa fecha...

Bueno me imagino que en SQL debe hacerse chevere, pero yo me fui a "piesmente", No lo probe, pero deberia hacerlo sin problemas


with rsttabla1
.movefirst
do while not .eof
if .fields(0)>=dtpicker1 and .fields(0)<=dtpicker2 then
rsttabla2.addnew
rsttabla2.fields(0)=.fields(0)
rsttabla2.update
.delete
end if
.movenext
loop
end with

pd: disculpa la falta de identacion, pero aun no aprendo a hacerlo por aca sin que me salgan tantas lineas

[xaquin]

creo que sería mejor hacerlo con dos consultas sql directamente pero así también valdría claro

[Samaris]

a ver.. a mi me gustaria saber como hacer eso en SQL, en realidad la consulta es facil, pero lo que quisiera ver es la inclusion en la otra tabla a la vez que se borra de la primera

[xaquin]

si interesa la parte de sql se debería mover el post al foro de base de datos, pero ya que estoy en ello te comento.

tienes que hacer dos consultas, una en la que insertas los datos en la tabla 2 y otra en la que eliminas los datos de la tabla 1 y evidentemente en ese orden

la primera consulta sería algo así

Código:

INSERT INTO TABLA2 ( 
SELECT * 
FROM TABLA1 
WHERE FECHA>= miFecha1 
AND FECHA< miFecha2)
 

y la segunda consulta sería

Código:

DELETE FROM TABLA1 WHERE id_tabla1 IN (
SELECT id_tabla1 
FROM TABLA1 
WHERE FECHA>= miFecha1 
AND FECHA< miFecha2)
 

espero que os quede claro

[Samaris]

Chevere! gracias, bueno, ahora el el amigo gavafra tiene dos maneras

[gavafra]

Muchas gracias a los dos probare de las dos maneras y les aviso cual me sirvio mejor.
De nuevo gracias.

[gavafra]

Ya los probe pero no, no me funciona. tengo el sig codigo
Tengo una tabla en access que se llama FOLIOS_USADOS a la cual le hago la siguiente consulta sql

Adodc1.RecordSource = "SELECT * FROM FOLIOS_USADOS WHERE DEFECHA BETWEEN #" & Text1 & "# And #" & Text2 & "#"
Ahora lo que quiero es insertar los registros que cumplan esa condicion a otra tabla llamada FOLIOS_HISTORICOS y puse la siguiente sql

Adodc2.RecordSource = "INSERT INTO FOLIOS_HISTORICOS SELECT * FROM FOLIOS_USADOS WHERE DEFECHA BETWEEN #" & Text1 & "# AND #" & Text2 & "#"

pero no me devuelve ningun registro.

No he puesto la sentencia sql DELETE porque quiero que primero me funcione la de pasar los registros a la tabla FOLIOS_HISTORICOS.
Alguna idea ? toda su ayuda ssera apreciada.

[xaquin]

una sentencia de insert no devuelve registros, ¿te insertó los registros en la tabla FOLIOS_HISTORICOS?

[gavafra]

no xaquin, no inserta nada.

[xaquin]

y el select te devuleve los registros que buscas?

[Samaris]

Tengo una guia que dice asi:

INSERT INTO tabladestino SELECT tablaorigen.* FROM tablaorigen

y si intentas hacerlo indicando todos los campos?

[gavafra]

Gracias Samaris, lo voy a probar como dices.
Xaquin, si me devuelve los registros el select solito, pero no inserta nada.
raro no?

[xaquin]

pues la verdad es que sí, prueba a ponerle los paréntesis por si eso tuviera algo que ver o a modificar la consulta de manera que inserte sólo uno a ver si lo consigues