Red de conocimiento informático - Aprendizaje de código fuente - Cómo utilizar el componente de conexión de base de datos para conectarse a excel2010 en un lenguaje sencillo

Cómo utilizar el componente de conexión de base de datos para conectarse a excel2010 en un lenguaje sencillo

.Versión 2

.Biblioteca compatible eDB

.Biblioteca compatible eGrid

.Subroutine_Button1_Clicked

.Conexión de variable local Texto, tipo de texto

Dirección del archivo de variable local, tipo de texto

Instrucción SQL de variable local, tipo de texto

Recuento de bucles de variable local, entero

. p>

.Recuento de bucles de variables locales, entero

.Variable de texto de variables locales, tipo de texto, "26"

.Índice de tabla de variables locales, entero

.Variable local i, número entero

. Variable local k, entero

Dirección del archivo = Obtener directorio de ejecución () "\1.xls"

Si (conexión de base de datos ("Driver={Microsoft Excel Driver (*. xls)}; DriverId=790; Dbq=" + Dirección de archivo + "; DefaultDir=" + Dirección de archivo ";") = verdadero)

Salida de texto de depuración ("¡Enlace exitoso!")

.Si es verdadero (conjunto de registros.Conexión establecida (conexión de base de datos) = falso)

Retorno ()

.Finalizar si es verdadero

Declaración SQL = "seleccione * de [Hoja1$]"

Recordset.Open (declaración SQL, #declaraciónSQL)

Recuento de bucles = Recordset. Número de registros

.Contar bucle primero (Conteo de bucles, Conteo de bucles)

.Contar bucle primero (26, i)

Leer texto (i). - 1, variable de texto [i])

.Count Loop First ()

.Count Loop First (26, k)

Tabla avanzada 1. Colocación data(count_loop, k, 1, variable de texto [k])

. count_loop_end()

loop_count = loop_count1

Ir a Siguiente()<. /p>

.Count Loop End ()

Texto de depuración de salida ("¡Leído correctamente y mostrado!").

De lo contrario

Salida de texto de depuración (conexión de base de datos. Último error)

Si finalizó

Crear subrutina __Iniciar ventana_

.Variable local i, entero

.Count Loop First (26, i)

Forma avanzada 1. Insertar columna (carácter (i 64), i)

.Contar bucle primero ()

.Contar bucle primero (1000, i)

Formulario avanzado 1. Insertar fila (al texto (i), i)

Fin del ciclo de conteo ()

Usted mismo puede modificar otros tamaños de ventana, alturas de fila y alturas de columna

.

Actualmente, sólo se escriben datos de texto. Haga un seguimiento para obtener datos adicionales

.

上篇: ¿Cómo iniciar sesión para los fans de Douyu? 下篇: ¿Tienen algo que ver los días soleados y nublados con las señales de los teléfonos móviles y PHS?

Artículos populares