VB Cómo buscar datos en dos tablas y mostrar los resultados en una tabla

VB puede escribir declaraciones de consulta estructuradas SQL para asociar dos tablas de datos y mostrar los resultados de la consulta en un conjunto de registros.

Utilice la instrucción As para hacer referencia al nombre de la tabla como un alias. Por ejemplo, el código de muestra en la declaración from:

JWCK_BM como cs, jwl_chuk como sl

Se pueden asociar dos tablas mediante asociación de campos. Por ejemplo, la cláusula donde en el código de muestra:

cs.código de repuesto = sl.

Asigne toda la declaración de consulta SQL a la propiedad RecordSource del control Adodc.

Ejemplo de código: Private?Sub?cmdChaxun_Click()

Adodc1.ConnectionString?=?"Provider=MSDASQL.1;Persist?Security?Info=False;Data?Source=jwl_dbf "

Adodc1.RecordSource?=?" select?cs.Código de pieza de repuesto, cs.Nombre de pieza de repuesto, sl.Número de vale, sl.Departamento de recepción, sl.Fecha, sl.Cantidad de salida, sl. ¿Precio unitario disponible?" ? amp;?_

"de?JWCK_BM?as?cs, jwl_chuk?as?sl" ? amp;?_

"¿dónde?cs. ¿Código de piezas = sl.código de pieza de repuesto"?

Adodc1.Refresh

DataGrid1.Refresh

zsl?=?Adodc1.Recordset.RecordCount

Text3?=?zsl p>

¿Si? p>

¿Si?zsl?gt;?0?Entonces?

Adodc2.ConnectionString?=?"Provider=MSDASQL.1;Persist ?Seguridad ?Info=False;Data?Source=jwl_dbf"

Adodc2.RecordSource?=?" select?sum(monto saliente)?as?hj?from?jwl_chuk?where?and'"?" amp; ?Text5?"amp;?"'"

Adodc2.Refresh

Text6?=?Int(Adodc2.Recordset(0)?*?100? ?0.501)? /? 100

End?If

End?Sub

Declaración de consulta estructurada SQL:

Consulta estructurada

Language (Lenguaje de consulta estructurado (SQL)), un lenguaje de programación y consulta de datos.