1
lanzamiento Microsoft Excel y escriba " Nombre " en la celda "A1 ", "edad " en " B1 ", "John " en " A2 ", " 10 " en " B2 ", " Susan " en " A3 ", " 15 " en " B3 ", " Tom " en " A4 ", " 10 " en " B4 , " " Bob " en " A5 " y " 10 " en " B5 " . Guarde la hoja de cálculo en "C: \\ " como " . ExcelFile.xlsx " Cierre Excel.
2
lanzamiento Microsoft Visual Basic.NET y haga clic en "Nuevo proyecto" en el panel izquierdo de la pantalla para abrir la ventana de diálogo "Nuevo proyecto" . Haga clic en " Aplicación de Windows Forms " y haga clic en " OK" para iniciar un nuevo proyecto.
3
doble clic en " ListBox " en el panel "Toolbox" para añadir un nuevo control de cuadro de lista para el formulario. Añadir un nuevo botón con la misma técnica .
4
doble clic en el formulario para crear un evento de carga del formulario . Agregue el código siguiente para definir la trayectoria de la hoja de cálculo de Excel que desee leer y crear las variables de objeto que va a utilizar para leer el archivo :
connString As String = " Provider = Microsoft.ACE.OLEDB.12.0 , Data Source = C: \\ ExcelFile.xlsx ; propiedades extendidas de Excel = 12,0 ; "
myConnection As OleDbConnection = new OleDbConnection
Dim ds As DataSet
Dim da como OleDbDataAdapter
strSQL As String Dim
5
Definir la cadena SQL a las filas de consulta donde " edad " es igual a 10 y leer la hoja de cálculo de Excel usando un adaptador de datos y un conjunto de datos.
strSQL = "SELECT nombre, edad FROM [ Hoja1 $] DONDE edad = 10 "
myConnection.ConnectionString = connString
da = New OleDbDataAdapter ( strSQL , myConnection )
ds = New DataSet
da.Fill (ds , " dataTable " )
myConnection.Close ()
6
Leer los datos devueltos desde el conjunto de datos y lo almacenan en los " ExcelRows " array global para su uso futuro .
Dim Exceldata = ds.Tables ( " dataTable ") . AsEnumerable ()
rowQuery Dim p = desde En Exceldata _
Select ! NOMBRE p, p! AGE
rowCntReturned = rowQuery.Count
ExcelRows = rowQuery.ToArray
7
Agregar las siguientes variables globales sobre el evento " Form1_Load " :
Dim ExcelRows
rowCntr Dim As Integer Dim
rowCntReturned As Integer
8
interruptor volver al diseño del formulario y haga doble clic en el botón para crear un evento de clic . Agregue el código siguiente para agregar una fila a la vez para el control de cuadro de lista.
Si ( rowCntr < rowCntReturned ) Entonces
Me.ListBox1.Items.Add ( ExcelRows ( rowCntr ) )
rowCntr + = 1
End If
9 Pulse
"F5 " para ejecutar el programa y haga clic en " Button1 " para añadir la primera fila de la hoja de cálculo . Haga clic en el botón de nuevo para agregar la segunda fila y haga clic en él una vez más para añadir la tercera fila para el control de cuadro de lista.