Sección de códigos , trucos y ejemplos para visual basic

228 - Adox - Unir datos de dos tablas de dos bases de datos distintas

Ejemplo que utiliza los objetos de ADOX ( ADOX.Catalog, ADOX.Table) para generar una consulta de selección de dos tablas que se encuentran en diferentes bases de datos

La rutina tiene una Sub con los siguientes parámetros:

Sub Ejecutar(bd1 As String, _
                bd2 As String, _
                Tabla1 As String, _
                Tabla2 As String, _
                sql As String)

Donde Bd1 y Bd2 son los path de las base de datos. Tabla1 y Tabla2 son las tablas a utilizar, deben tener un campo en común que los relacione. Y por último la cadena Sql.

En el ejemplo se trae a un recordset, los clientes ( clientes.mdb ) que tienen asociado una ciudad (base de datos ciudades.mdb) creando una tabla temporal en la base de datos clientes, y luego de volcar los datos a un FlexGrid o datagrid etc.., elimina dicha tabla.

Nota: especificar en la cadena sql el campo relacionado entre las dos tablas, por ejemplo : Select * From ... Where La_Tabla.campoRelacionado = temp.campoRelacionado

Agregar las referencias a:

Microsoft ADO Ext. 2.x for DDL and Security ( ADOX )
Microsoft ActiveX Data Objects 2.x Library ( ADO )

Código en el formulario con un MsHFlexGRid para ver los datos

Option Explicit Sub Ejecutar(bd1 As String, _ bd2 As String, _ Tabla1 As String, _ Tabla2 As String, _ sql As String) 'Variables para ADOX , el recordset y la conexión Dim cn As ADODB.Connection, adox_catalog As ADOX.Catalog Dim adox_tabla As ADOX.Table, rst As New ADODB.Recordset ' Abre la base de datos Set cn = New ADODB.Connection 'Cadena de conexión cn.ConnectionString = _ "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & bd1 & ";" & _ "Persist Security Info=False" 'Abrir la conexión cn.Open ' Crear un link a la tabla Tabla2 de la base de datos Set adox_catalog = New ADOX.Catalog 'Especificar la Conexión activa para adox_catalog Set adox_catalog.ActiveConnection = cn ' Crear un nuevo ADOX.Table Set adox_tabla = New ADOX.Table 'Crear una tabla temporal With adox_tabla Set .ParentCatalog = adox_catalog .Name = "temp" .Properties("Jet OLEDB:Link Datasource") = bd2 .Properties("Jet OLEDB:Link Provider String") = "MS Access" .Properties("Jet OLEDB:Remote Table Name") = Tabla2 .Properties("Jet OLEDB:Create Link") = True End With ' Añadir la tabla anterior adox_catalog.Tables.Append adox_tabla rst.CursorLocation = adUseClient ' ejecutar la consulta SQL rst.Open sql, cn, adOpenForwardOnly, adLockReadOnly 'Cargar los registros en el FlexGRid Set MSHFlexGrid1.DataSource = rst MSHFlexGrid1.AllowUserResizing = flexResizeColumns ' ELiminar la tabla temporal adox_catalog.Tables.Delete "temp" 'cerrar el recordset rst.Close ' cerrar la base de datos cn.Close End Sub Private Sub Command1_Click() Dim bd1 As String, bd2 As String Dim Tabla1 As String, Tabla2 As String Dim sql As String ' Establecer la ruta de las dos Bases de datos bd1 = App.Path & "\Ciudades.mdb" bd2 = App.Path & "\Clientes.mdb" ' Establecer los dos nombres de las tablas Tabla1 = "tCiudad" Tabla2 = "tClientes" ' Establecer la consulta sql sql = "SELECT * " & _ "FROM " & Tabla1 & ", temp " & _ "WHERE " & Tabla1 & ".IdCiudad = temp.IdCiudad" ' ejecutar la rutina pasándole los datos anteriores Call Ejecutar(bd1, bd2, "tCiudad", "tClientes", sql) End Sub

Buscar en Recursos vb