Red de conocimiento informático - Conocimiento del nombre de dominio - Cómo escribir un programa para extraer nombres de Excel en un lenguaje sencillo

Cómo escribir un programa para extraer nombres de Excel en un lenguaje sencillo

.Versión 2

.Biblioteca compatible eDB

.Especificaciones de biblioteca compatible

.Subroutine_button1_clicked

.Variable local a, entero

Colocar semilla de número aleatorio ()

a = tomar número aleatorio (1, número de registros)

. Número de registros)

Salida de depuración (a)

Cuadro de edición 1.content = nombre texto [a]

.Crear subrutina __Ventana de inicio_

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

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

Instrucción SQL de variable local, tipo de texto

. Entero

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

.if (Conexión de 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. Establecer conexión (conexión de base de datos) = falso)

Retorno ()

.Finalizar si es verdadero

Instrucción SQL = "seleccionar * de [Hoja1$]"

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

Recuento de bucles = Recordset. Número de registros)

Redefinir la matriz (variable de texto, falso, Recordset.Número de registros)

Primero calcule el número de bucles (Número de bucles)

<. p> Conjunto de registros. ReadText(0, TextVariable[1])

AddMember(NameText, TextVariable[1])

Conjunto de registros. Vaya al siguiente bucle ()

. Cuente hasta el final del bucle ()

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

De lo contrario

Texto de depuración de salida (conexión de base de datos. Último error)

Si finaliza

.