no puedo copiar registros
Publicado por valente (6 intervenciones) el 24/11/2009 10:01:57
Hola agradezco de antemano cualquier ayuda o idea, soy nuevo en esto.
quiero copiar un registro de una tabla a otra tabla, utilizo acces 97 y visual basic 6.0..
tengo el siguiente codigo.
tengo 2 tablas: (tablaorigen) y (tabladestino)
LO QUE QUIERO HACER ES QUE SI TEXT5.TEXT="0", ME SALTE UN MENSAJE DICIENDOME SI QUIERO AGREGAR ESTE REGISTRO A OTRA TABLA, EN ESTE CASO (tabladestino)
ACLARO QUE LAS DOS TABLAS TIENEN LA MISMA ESTRUCTURA.
MUCHAS GRACIAS POR SU AYUDA.....
If Text5.Text = "0" Then
' donde text5 es un campo de la "tablaorigen"
m = MsgBox("Desea agregar este item a tabladestino", vbYesNo, "AGREGA ESTE ITEM A tabladestino")
If m = vbYes Then
' si oprime si
SQL = "Insert Into tabladestino select tablaorigen.* from tablaorigen where campo="0""
end if
end if
quiero copiar un registro de una tabla a otra tabla, utilizo acces 97 y visual basic 6.0..
tengo el siguiente codigo.
tengo 2 tablas: (tablaorigen) y (tabladestino)
LO QUE QUIERO HACER ES QUE SI TEXT5.TEXT="0", ME SALTE UN MENSAJE DICIENDOME SI QUIERO AGREGAR ESTE REGISTRO A OTRA TABLA, EN ESTE CASO (tabladestino)
ACLARO QUE LAS DOS TABLAS TIENEN LA MISMA ESTRUCTURA.
MUCHAS GRACIAS POR SU AYUDA.....
If Text5.Text = "0" Then
' donde text5 es un campo de la "tablaorigen"
m = MsgBox("Desea agregar este item a tabladestino", vbYesNo, "AGREGA ESTE ITEM A tabladestino")
If m = vbYes Then
' si oprime si
SQL = "Insert Into tabladestino select tablaorigen.* from tablaorigen where campo="0""
end if
end if
Valora esta pregunta


0