Importar desde sql server y anexar los datos en ta
Quiero ejecutar una consulta de paso a través en visual basic a un servidor sql ( my_ODBC ) y anexar los datos en una tabla, la consulta se ejecuta correctamente pero no se ven los datos y no se como anexarlos a mi tabla. Este es el código, la consulta de paso la cargo desde la tabla ERROR_sql_import a "myq" y lo ejecuto. Hace la consulta pero no me muestra los datos. Tampoco se como anexar los datos a la tabla con my_anexa. Muchas gracias
Set mydb = CurrentDb
Set myq = mydb.CreateQueryDef("")
myq.Connect = my_ODBC
myq.ReturnsRecords = False
Set my_sql = mydb.OpenRecordset("SELECT * FROM [ERROR_sql_import] WHERE [Nombre_Consulta] =1 ", dbOpenForwardOnly)
While Not my_sql.EOF
myq.SQL = my_sql!sentence_my_sql
myq.execute
mydb.execute my_anexa
my_sql.MoveNext
Wend
Myq. Close
Mydb. Close
End Function
Set mydb = CurrentDb
Set myq = mydb.CreateQueryDef("")
myq.Connect = my_ODBC
myq.ReturnsRecords = False
Set my_sql = mydb.OpenRecordset("SELECT * FROM [ERROR_sql_import] WHERE [Nombre_Consulta] =1 ", dbOpenForwardOnly)
While Not my_sql.EOF
myq.SQL = my_sql!sentence_my_sql
myq.execute
mydb.execute my_anexa
my_sql.MoveNext
Wend
Myq. Close
Mydb. Close
End Function
1 Respuesta
Respuesta de jeddy
1