Tutorial de programación de Accessvba

Atenuar mydata como cadena, SQL como cadena

Atenuar cnn como ADODB. Relación

Dim rs es ADODB. Los conjuntos de registros definen variables en un formato estándar.

Mydata = 'mydata es la dirección de la base de datos, incluida la dirección del nombre del archivo accdb, como c:\xxxxxdatabase.accdb.

Establecer cnn = Nuevo ADODB. 'Connect' establece cnn, que es el vínculo entre Excel y el acceso a la base de datos.

Utilice cnn ' para abrir el enlace cnn

. Proveedor = "Microsoft.ACE.OLEDB.12.0"

. Abrir mis datos

Finalizar con...

SQL = " seleccionar valor PV de POINTID = AP 1 _ 1 _ EP "

Este es el valor de consultar condiciones de consulta PVVALUE. En la tabla de puntos, cuando POINTID=AP1_1_EP,

establezca rs = cnn. Ejecutar(SQL)

Hojas("soucre"). celda(1,2) = rs.campos(0). valor de rs.fields(0). El valor es el resultado de la consulta.

rs. Cerrar

cnn. Cerrar

Establecer rs = Ninguno

Establecer cnn = Ninguno

Conector final

Para utilizar las funciones anteriores, puede consultar el Opción "Herramientas - Referencia" de la barra de herramientas superior de VBA en la "Biblioteca Microsoft ActiveX DataObjects 2.5".