Enviar Dados De Uma Tabela Para Outra

[Macêdo]

Para inserir dados de uma tabela em outra:

no exemplo estamos inserindo nos campos cod, cpf e nome da da tabela_X os registros dos campos cod, cpf e nome da tabela_Z

With cnncomando
        .ActiveConnection = cnn_conexão
        .CommandType = adCmdText
        .CommandText = " insert into tabela_X " & _
        "(cod, cpf, nome)select cod, cpf, nome from Tabela_Z

Para inserir apenas os campos referentes a 1 (um) registro, ponha uma condição:

With cnncomando
        .ActiveConnection = cnn_conexão
        .CommandType = adCmdText
        .CommandText = " insert into tabela_X " & _
        "(cod, cpf, nome)select cod, cpf, nome from Tabela_Z where cod = " & TextCOD.Text & " "
    .Execute

Editado Setembro 27, 2007 por kuroi
Tag CODE