IMPORTAR DADOS DUVIDA EM SELECT

USUARIO.EXCLUIDOS 28/02/2005 12:00:14
#70303
Pessoal

Estou com uma dificuldade de Raciocinio.
Tenho uma tabela em Paradox e uma Em FireBird
As Tabelas são identicas e a paradox contem dados.
Quero puxar os dados para a tabela Firebird, tem algum select que faça isso ou algum jeito de eu copiar o conteudo de um Recordset para outro.

Obrigado
CLINS 28/02/2005 12:06:34
#70306
Bom não entendi muito bem mas vamos lá..


para copiar de um recordset para outro pode ser assim : (supondo que as tabelas sejam identicas e com o mesmo tipo de dados...)


while not recordsetOrigem.eof
    recordsetDestino.addnew
    recordsetDestino(campo1) =     recordsetOrigem(campo1)
    recordsetDestino(campo2) =     recordsetOrigem(campo2)
    recordsetDestino(campoN) =     recordsetOrigem(campoN)
    recordsetDestino.Update

    recordsetOrigem.Movenext
loop


Isto utilizando DAO... Se tiver dúvidas ainda manda um msg em private...
Esta é uma das maneiras de se fazer e foi a que veio primeiro a minha cabeça agora.
USUARIO.EXCLUIDOS 28/02/2005 15:33:43
#70367
No caso as duas tabelas estão em banco de dados diferentes. Aqui fiz um exemplo onde tenho 2 Banco de Dados em SQL Server, que eu pego dados da tabela de funcionarios de um banco e gravo numa tabela semelhante do outro banco de dados. Funciona assim.

Public BD01 As New ADODB.Connection
Public BD02 As New ADODB.Connection

BD01.Open "Driver={SQL Server};Server=FPWNOVAERA;Database=BancoOrigem;Uid=sa;Pwd=sa;"
BD02.Open "Driver={SQL Server};Server=DSQLNOVAERA;Database=BancoDestino;Uid=sa;Pwd=sa;"

Dim RS, RSN
Dim CodEmp, CodMat
Set RS = BD01.Execute("Select * From TABELA_ORIGEM")
While Not RS.EOF
CodEmp = RS("fucodemp")
CodMat = RS("fumatfunc")
SQL = "Insert Into Funcionarios (FuCodEmp,FuMatFunc,FuNomFunc)"
SQL = SQL & " Values (" & CodEmp
SQL = SQL & "," & CodMat
SQL = SQL & ",'" & RS("FuNomFunc") & "')"
BD02.Execute (SQL)
RS.MoveNext
Wend

Espero ter ajudado...
Tópico encerrado , respostas não são mais permitidas
Voltar