Colección de citas famosas - Colección de máximas - ¿Es rápido llamar a SQL usando VBA? La cantidad de datos es muy grande y escribir datos directamente en shtr es muy lento. ¿Hay alguna manera?

¿Es rápido llamar a SQL usando VBA? La cantidad de datos es muy grande y escribir datos directamente en shtr es muy lento. ¿Hay alguna manera?

Referencia de la herramienta VBE, seleccione la biblioteca Microsoft ActiveX Data Objects 2.8.

No sé si son los datos de la columna de proveedores de la tabla UFDATA_013_2008. De lo contrario, cambie la declaración SQL usted mismo. SQL="Seleccionar proveedores de UFIDA data_013_2008".

Importación de datos sub-SQL()

Atenuar cn como nuevo ADODB. Relación

Dim rs es ADODB. Conjunto de registros

Atenuar cadena como cadena

Mostrar sql como cadena

Anotar I como número entero

str = " Proveedor = Fuente de datos SQLOLEDB = nombre del servidor SQLSERVER o IP; base de datos = base de datos; UID = nombre de usuario; PWD = contraseña"

cn. Estrecho Abierto

Establecer rs = Nuevo ADODB. Recordset

sql = "Seleccionar proveedores de UFDATA_013_2008"

rs. Abra sql, cn, adOpenStatic, adLockOptimistic

Si no es rs. Entonces EOF

para i = 1 a rs. Conteo de registros

Hoja de trabajo 2. celda(I,1). Valor = Rs. campo(0). Valor

Próximos me

rs. Siguiente paso

Terminará si...

rs. Cerrar

cn. Cerrar

Terminal