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


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

<Volver> - Anterior - Siguiente



 

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:

 

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

 



Buscar en Recursos vb