IMPORTAR DADOS ENTRE DB

MOISES.ARAUJO 19/08/2007 16:51:27
#231579

Pessoal vejam se alguem pode me ajudar.
estou querendo importar dados de um banco de dados para outro da seguente forma.
tb.Open "select * from " & Trim(cboTab.Text)& "",Conecta.Firebird,adOpenStatic, adLockOptimistic

'=======================================================================
For i = 0 To tb.Fields.Count
'pego todos os nome dos campos

campos = "'" & tb(tb.Fields.Item(i).Name) & "'" & ","

'verifico se algum é igual a nulo

If campos = "''," Then campos = "NULL,"

'crio uma string com formatação para incluir em uma insert

Tudo = Tudo & campos

tb.NextRecordset
Next i
'===========================================================
' na instrucão acima sempre sobra uma "," que gera um error que é previnida aqui

If Len(Tudo) = 65 Then
remov = Len(Tudo) - 6
Else
remov = Len(Tudo) - 5
End If

' gravo na tabela

Importar.Firebird.Execute "INSERT INTO AGENDA VALUES (" & Mid(Tudo, 1, remov) & ")"
'============================================================
porem só é gravado um registro.
estou quebrando a cabeça para fazer se alguem puder me ajudar me mostranbdo onde estou errando ou sugerindo outro caminho.

agradeço.