bien le bonjour a vous

je viens à vous car je souhaiterai simplifier mon code, qui me parait plus de la bidouille.

en gros je lance une requête SELECT et je voudrais récupérer dans un tableau le résultat.

voici ce que j'ai essayé, mais il ne fait qu'une seule boucle

J'ai dans ma base une table qui comporte 10 colonnes.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
    Public Shared Sub Requete_Read(ByVal Table As String, ByVal Colonne As String, ByRef str_Resultat() As String, ByVal Parametre_Where As String)
 
        Dim Obj_Command_Liste As OleDbCommand
        Dim Obj_DataAdapter As OleDbDataAdapter
        Dim Obj_DataSet As New DataSet
        Dim Obj_DataTable As New DataTable
        Dim SQL As String = ""
 
        'Requête permettant de liste la liste des produits
        SQL = "SELECT " & Colonne & " FROM " & Table & " " & Parametre_Where
 
        Try
            'Ouverture table
            Obj_Command_Liste = New OleDbCommand(SQL)
            Obj_DataAdapter = New OleDbDataAdapter(Obj_Command_Liste)
            Obj_Command_Liste.Connection = Obj_Connect
            Obj_DataAdapter.Fill(Obj_DataSet, Colonne)
            Obj_DataTable = Obj_DataSet.Tables(Colonne)
 
            'Parcourt la liste des lignes retournées
            Do While (i < Obj_DataTable.Columns.Count)
                ReDim Preserve str_Resultat(i)
                str_Resultat(i) = Obj_DataTable.Columns(i).ToString
                i += 1
            Loop
 
            ' libération de la mémoire
            Obj_Command_Liste = Nothing
            Obj_DataSet = Nothing
            Obj_DataAdapter = Nothing
            Obj_DataTable = Nothing
 
        Catch ex As Exception
            MsgBox("Erreur dans la requète d'écriture." & vbCrLf & ex.Message)
        End Try
 
    End Sub
Merci pour votre aide