Cómo utilizar un lenguaje sencillo para manipular datos dentro de Excel
En la ventana que se abre, busque y seleccione "Biblioteca de soporte de objetos genéricos
Versión 2.0" y luego haga clic en "Aceptar" para agregar el componente "Super List Box".
Se muestra la siguiente pantalla de la ventana de inicio e incluye los componentes Base de datos externa y Super List Box (disponibles en el panel de extensión).
Luego usa Excel para crear un archivo Excel llamado "jiance.xls". El contenido del archivo se ve así:
Nota: coloque este archivo en el mismo directorio que el programa.
5. Asegúrese de que "Iniciar ventana" esté seleccionado y luego agregue un evento "Crear completo". Luego ingrese el siguiente código:
.Version
2
.Bibliotecas soportadas
iext
. Si es verdadero
(Base de datos externa 1.Abrir
("ODBC; DBQ="
Obtener el directorio actual
()
"\jiance.xls; Controlador={Microsoft
Excel
Controlador
(*.xls)}; DriverId=790; FIL=excel
8.0; MaxScanRows=8; =admin;UserCommitSync=Sí;",
,
)
=
Falso)
Mensaje box
("¡Error en la conexión de la base de datos!" ,
Icono #Error,
)
Volver
()
.Si es verdadero fin
Declaración de consulta
=
"select
* p >
de
[Sheet1$]"
RecordSet
=
Base de datos externa 1. Consulta
(declaración de consulta)
.
Si es verdadero
(recordset
=
0)
Cuadro de mensaje
("¡La consulta falló!" ,
#Icono de error,
)
Regresar
()
Si es verdadero, entonces Finalizar.
Base de datos externa 1. Ir al primer registro
(conjunto de registros)
Local_count
=
1
Super cuadro de lista 1. Insertar columna
(,
"Número de serie",
80,
,
,
)
SuperListBox1.InsertColumnSuperListBox1.InsertColumn
(,
"Género",
80,
,
,
)
SuperListBox1.InsertColumn
( ,
"Edad",
80,
,
,
,
)
.read
(conjunto de registros,
2)
local_temporaryC
=
A Texto
(Base de datos externa 1.PutTitle
(Index,
0,
ToText p>
(Local_Count))
SuperListBox1 Establecer título
(index,
1,
local_temporaryA)
Super cuadro de lista 1. Establecer título
(índice,
3,
Local_TemporaryC)
Base de datos externa 1. Ir al siguiente registro
(conjunto de registros)
Local_Count
=
Local_Count
1
Determinar el final del bucle
()
Base de datos externa 1. Cerrar el conjunto de registros
().
p>