RECUPERER LE RESULTAT D'UNE REQUETE DANS UN TABLEAU OU UN TABLEAU N DIMENSION FAIT VOTRE CHOIX

 Function recupere_requete_tableau(ByVal requete As String, ByVal tab() As String) As Array
         
       'i est une variable global donc declarée en entête de code
       i = 0
        Try
            'connection a la base de données
        MyConnection = New SqlConnection
        MyConnection.ConnectionString = "server='machine';database='bdd';         user id='user';password='mot de passe';Trusted_Connection=true"
        MyConnection.Open()

            Dim oCommand As New SqlCommand(requete, MyConnection)
            Dim oReader As SqlDataReader = oCommand.ExecuteReader()
            
           While oReader.Read()
                tab(i) = oReader.GetString(0)
                i = i + 1
            End While
           
           oReader.Close()
            MyConnection.Close()
            recupere_requete_tableau = tab
        Catch er As Exception
        End Try
End Function


 Function donne_borne_tab() As Integer
      donne_borne_tab = i
 End Function

'choix tableau ndimension
'cette fonction retourne un tableau contenant le resultat d'un requete sql passée en paramètre
    Function recupere_requete_tableau2d(ByVal tab(,) As String) As Array
        i = 0
        j = 0
        Try
 'connection a la base de données
        MyConnection = New SqlConnection
        MyConnection.ConnectionString = "server='machine';database='bdd';         user id='user';password='mot de passe';Trusted_Connection=true"
        MyConnection.Open()

            Dim oCommand As New SqlCommand(requete, MyConnection)
            Dim oReader As SqlDataReader = oCommand.ExecuteReader()

            Dim oReader As SqlDataReader = oCommand.ExecuteReader()
            While oReader.Read()
               Try
                    While True
                        tab(i, j) = oReader.GetValue(j)
                        j = j + 1
                    End While
                Catch ex As Exception
                    j = 0
                End Try
                i = i + 1
            End While
            oReader.Close()
            MyConnection.Close()
            recupere_requete_tableau2d = tab
        Catch er As Exception
        End Try
    End Function