Savoir lire les lignes de Microsoft Excel à partir de votre application Visual Basic.NET peut rendre votre application plus souple . En VB , vous pouvez créer des chaînes SQL et des feuilles de calcul Excel requête basée sur des critères d'éviter de lire la feuille entière . Ceci est réalisé grâce à l'utilisation d'un adaptateur de données et l'objet d'ensemble de données . Vous pouvez utiliser LINQ pour gérer les données renvoyées et de manipuler une ligne à la fois dans l' ensemble de données. Instructions
1

Lancez Microsoft Excel et tapez " nom " dans la cellule " A1 ", " Age" à "B1 ", " John" à "A2 ", " 10" à "B2 ", " Susan "à " A3 ", " 15 " à " B3 ", " Tom " dans " A4 ", " 10 "à " B4 ", " Bob " dans " A5 "et" 10 "à " B5 ". Enregistrer la feuille de calcul dans "C: \\ " as ". ExcelFile.xlsx " Fermez Excel.
2

Lancement de Microsoft Visual Basic.NET et cliquez sur " Nouveau Projet" dans le volet gauche de votre écran pour lancer la boîte de dialogue «Nouveau projet» . Cliquez sur " Application Windows Forms " et cliquez sur "OK" pour démarrer un nouveau projet .
3

Double -cliquez sur " ListBox " dans le volet «boîte à outils » pour ajouter une nouvelle liste de contrôle de la boîte à la forme . Ajouter un nouveau bouton en utilisant la même technique.
4

Double- cliquez sur le formulaire pour créer un événement de chargement du formulaire . Ajoutez le code suivant pour définir le chemin de la feuille de calcul Excel que vous souhaitez lire et créer les variables d'objets que vous utiliserez pour lire le fichier : Photos

connString As String = " Provider = Microsoft.ACE.OLEDB.12.0 ; Data Source = C: \\ ExcelFile.xlsx ; propriétés étendues = Excel 12.0 ; "

myConnection As OleDbConnection = new OleDbConnection

ds As DataSet

Dim da Comme OleDbDataAdapter

strSQL Dim As String
5

définir la chaîne SQL pour interroger les lignes où «âge» est égal à 10 et de lire la feuille de calcul Excel à l'aide d'un adaptateur de données et un ensemble de données. Photos

strSQL = "SELECT nom, âge FROM [ Feuil1 $] où l'âge = 10 "

myConnection.ConnectionString = connString

da = New OleDbDataAdapter ( strSQL , myConnection )

ds = new DataSet

da.Fill (ds , " dataTable " )

myConnection.Close ()
6

Lire les données renvoyées de l'ensemble des données et le stockent dans les « ExcelRows " réseau mondial pour une utilisation future .

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

rowQuery Dim = de p en ExcelData _

Select p NOM ! , p ! Age of

rowCntReturned = rowQuery.Count

ExcelRows = rowQuery.ToArray
7

Ajouter les variables globales suivantes au-dessus de la manifestation " Form1_Load " :

Dim ExcelRows

rowCntr As Integer

Dim rowCntReturned As Integer
8

Commutateur Retour à la conception de formulaire et double-cliquez sur le bouton pour créer un événement de clic . Ajoutez le code suivant pour ajouter une ligne à la fois pour le contrôle zone de liste .

( RowCntr < rowCntReturned ) Puis

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

rowCntr + = 1

End If
9

Appuyez sur " F5" pour exécuter le programme et cliquez sur " Button1 " pour ajouter la première ligne de la feuille de calcul . Cliquez sur le bouton pour ajouter la deuxième rangée et cliquez une dernière fois pour ajouter la troisième ligne à la liste de contrôle de la boîte.