Cómo escribir un programa para extraer nombres de Excel en un lenguaje sencillo
.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
.