(RESOLVIDO) Selecionar e Inserir pelo VB-6 - BD's diferente

[Danleonhart]

Eu de novo :D

Tem como inserir dados no banco de forma sequêncial até o último registro ?

Irei fazer uma transferência de dados do SQL Compact Edition para o SQL Server...e tentei de outras maneiras sem sucesso...

Minha idéia:

Gerar um RecordSet carregando todos os dados (SELECT * FROM TabAccess) e alocar em variável, para depois fazer uma inserção dos dados na Tabela SQL(INSERT INTO TabSQL).

Fiz um teste com um registro e funcionou :rolleyes:

estou a tentar com todos... :closedeyes:

Pensei em Vetor...mas não sei como :wacko:

alguém tem sugestões ?! :blush:

Editado Março 3, 2011 por Danleonhart

[Matheus-vb6]

lembra daquele projeto com o do while?

Você poderia fazer uma conexao com "do while rsdados.eof=false" e colocar um inserir... e no final... rsdados.movenext,loop

Caso não consiga fale que eu monto um projeto aqui :D

[Danleonhart]

Feito !!!

Matheus-VB6 esclareceu via MSN...

Então ficou assim:

'Aqui abro as conexões com os BD's - código em Módulo
AbbSQL
AbbAcc
  ' Configuro o RecordSet
Set RecSet = New ADODB.Recordset
RecSet.Open "SELECT Artigo FROM Art", ConAcc

   ' Aqui insiro a tabela alocada no RecordSet na Tabela do outro BD
Do Until RecSet.EOF
inserir = "INSERT INTO Tabela01(Art)" & "Values('" & RecSet("Artigo") & "')"
ConSQL.Execute inserir
RecSet.MoveNext
Loop

  ' Aqui fecho as conexões...
FcBAcc
FcbSQL

Valeu pela força Matheus ! ^_^

[Matheus-vb6]

Magina cara, precisando tamo ae :D