Visual Basic - INSERT INTO

Hola Grupo:

Tengo un Pequeño Problema Con Una De SQL

Necesito Insertar Registros a traves de una consulta de accion de una base de datos Informix 7.3(SERVIDOR1) hacia una Base de datos SQL SERVER 7.0 (SERVIDOR2).

¿ Como Armo la Instruccion Insert para Realizar Dicha Tarea ?

¿ Existe Otra Forma de Hacerlo ???

Gracias por su ayuda..

MCA

Pues tienes que hacerlo manualmente. Es decir, creas tu recordset para Informix y tu recordset para sqlserver y transfieres los datos...

quizás algo así:

dim rstInformix as new adodb.recordset
dim rstSqlserver as new adodb.recordset
dim csSql as string
dim csCnnInformix as string
dim csCnnSqlserver as string

csCnnInformix = "DSN=TuDsn; UID=TuUser; PWD=TuPwd;"
csCnnSqlserver = "DSN=TuDsn; UID=TuUser; PWD=TuPwd;"

csSql = "select campo1, ..., campon from tabla1 where ..."
rstInformix.Open csSql, csCnnInformix

while not rstInformix.eof
csSql = "insert into tabla1 (campo1, ..., campon) values ( "
csSql = csSql & " '" & rstInformix("campo1") & "' "
' ...
csSql = csSql & "' " & rstInformix("campon") & "' )"
rstSqlserver.Open csSql, csCnnSqlserver
rstSqlserver.Close
rstInformix.MoveNext
wend