Lancering Microsoft Excel 1 en type " Naam " in cel " A1 ", " Age " in " B1 ", " John " in " A2 ", " 10 " in " B2 ", " Susan " in " A3 ", " 15 " in " B3 ", " Tom " in " A4 ", " 10 " in " B4 ", " Bob " in " A5 " en " 10 " in " B5 . " Sla de spreadsheet in " C : \\ " als " . ExcelFile.xlsx " Sluit Excel .

Lancering Microsoft Visual Basic.NET 2 en klik op " New Project" van het linkervenster van het scherm om de " New Project " dialoog venster te openen . Klik op " Windows Forms Application " en klik op "OK " om een ​​nieuw project te starten .

Dubbelklik op " ListBox " 3 van de " Toolbox " deelvenster naar een nieuwe keuzelijst toe te voegen aan het formulier . Voeg een nieuwe knop met behulp van dezelfde techniek .
4

Dubbelklik op het formulier om een formulier load gebeurtenis te maken . Voeg de volgende code toe aan het pad van de Excel spreadsheet die u wilt het object variabelen die je zal gebruiken om het bestand te lezen en te creëren definiëren :

Dim connString
As String = " Provider = Microsoft.ACE.OLEDB.12.0 , data Source = C : \\ ExcelFile.xlsx ; Uitgebreide eigenschappen = Excel 12.0 ; "

Dim myConnection
Zoals OleDbConnection = Nieuwe OleDbConnection

Dim ds
Zoals DataSet

Dim da
als OleDbDataAdapter

Dim strSQL
als Koord
5

Definieer de SQL-tekenreeks voor de zoekopdracht rijen waar " Age " is gelijk aan 10 en lees de Excel-spreadsheet met behulp van een data- adapter en een data set .

strSQL = " SELECT NAAM , LEEFTIJD FROM [ Sheet1 $ ] WHERE Leeftijd = 10 "

myConnection.ConnectionString = connString

da
= Nieuw OleDbDataAdapter ( strSQL , myConnection ) < br

ds > = New DataSet

da.Fill
( ds , " dataTable " )

myConnection.Close ( )
6

Lees de data terug uit te stellen en op te slaan in de " ExcelRows " de gegevens globale array voor toekomstig gebruik .

Dim excelData = ds.Tables ( " dataTable " ) . AsEnumerable ( )

Dim rowQuery = van p
in excelData _

Select p ! NAAM , blz.
! AGE

rowCntReturned = rowQuery.Count

ExcelRows
= rowQuery.ToArray
7

toevoegen de volgende globale variabelen boven de " Form1_Load " event :

Dim ExcelRows

Dim rowCntr
als Geheel

Dim
rowCntReturned als Geheel

Switch 8 terug naar het formulier ontwerp en dubbelklikt u op de knop om een ​​gebeurtenis click creëren . Voeg de volgende code op een rij tegelijk aan de keuzelijst toe te voegen .

Als ( rowCntr < rowCntReturned ) Dan

Me.ListBox1.Items.Add
( ExcelRows ( rowCntr ) )

rowCntr + =

End 1
Als

Druk op " F5 " 9 om het programma uit te voeren en klik op " Button1 " naar de eerste rij van de spreadsheet toe te voegen . Klik nogmaals op de knop om de tweede rij toe te voegen en klik het nog een laatste keer op de derde rij toevoegen aan de keuzelijst .