Recuperer le resultat d'une requete dans un tableau ou un tableau n dimension fait votre choix

Commenter

Contenu du snippet

voila une autre méthode que je vous propose pour gerer vos requête sql et leurs traitements

Source / Exemple : 


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

Conclusion :


a vous de jouer, et n'oubliez pas open source ;-) y'a que ca de vrai
Tri8415

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (tribals)