VB God: proporcione un código detallado para VB DAO o ADO para crear dinámicamente tablas de enlaces de Access

¿público? ¿Sub? CreateSQLlinkTable(ByVal?SQLServerName?as?String,?ByVal?Database?as?String,?ByVal?SQLTable?as?String,?ByVal?accTable?as?String,?Optional?ByVal?SQLID?as ? string? =? ¿opcional? SQLPASS? =?"")

SQLServerName es el nombre del servidor SQL, que puede ser una dirección IP o un nombre de base de datos. SQLTable es la tabla de origen de la conexión SQL y el nombre de la tabla de conexión que se creará en accTable. SQLID es el ID del servidor SQL y el valor predeterminado es "SA". SQLPASS es la contraseña de la base de datos y está vacía de forma predeterminada.

Métodos de llamada como:? ¿Llamar? createsql linktable 2("192.168.1.200","UfNote_001_2009","Person","c123","sa","")

Todos los parámetros de llamada están entre comillas dobles.

¿Oscuro? ¿dbAs? Base de datosˌBase de datos

¿Dim? tdefComo? TableDef

¿Configuración? base de datos? =?Base de datos actual()

¿Configuración? ¿tdef? =?db. CreateTableDef(accTable)

tdef. ¿conectar? =?"Controlador ODBC=SQL?servidor;servidor="? ¿amperio? ¿Nombre del servidor SQL? ¿amperio? ";UID= "? ¿amperio? ¿SQLID? ¿amperio? ";PWD= "? ¿amperio? ¿SQLPASS? ¿amperio? "; base de datos = "? ¿amperio? base de datosˌbase de datos

tdef. ¿Nombre de la tabla de origen? =?SQLTable

db. TableDefs. ¿Agregar? tdef

¿Fin? Submarino