no puedo copiar registros de una bd a otra

[aprediendo]

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

[Insomnia]

Hola

Te recomiendo que pongas los nombres de los campos, si en el insert y si en la select, además si campo es de tipo texto, utiliza comillas simples, y si es de tipo numérico no pongas nada. Algo como:

Código PHP:

  Insert Into tabladestino(campo1, campo2, campo3) select campo1, campo2, campo3 from tablaorigen where campo='0'"  
   

--Saludos--

[aprediendo]

hola gracias por la ayuda, le agrege los campos pero tampoco me inserta los registros en la otra tabla, si pueden ayudarme con algo mas o alguna idea, gracias..

[ALFREDVB]

TENIA QUE PASAR UNA FILA SELECCIONADA EN UN DBGRID Y PASARLA A OTRA TABLA
UTILICE; ALGO ASI:
For I = 0 To DBGrid1.SelBookmarks.Count - 1
Data1.Recordset.Bookmark = DBGrid1.SelBookmarks(I)

AVARDATA = Data1.Recordset.GetRows(1) 'AQUI SE PASA EL REGISTRO SELECCIONADO AL ARRAY

'AQUI INSERTAS LOS VALORES:
Data1.Database.Execute "INSERT INTO [" & Text1.Text & "] " ...... 'AQUI ESCRIBES E VALUES LOS VALORES DEL ARRAY
NEXT