Utilisation multiple liredatarow

Signaler
Messages postés
71
Date d'inscription
jeudi 7 juillet 2011
Statut
Membre
Dernière intervention
27 novembre 2017
-
Bonjour, j'ai une fonction LireDataRow qui me sert pour une table Users dans Access mais je voudrais que celle-ci lise n'importe quelle table passé en paramètre mais je seche un peu :

Private Function LireDataRow(ByVal Cmd As OleDbCommand) As DataRow
        Dim Cnx As OleDbConnection = Nothing
        Dim dta As OleDbDataAdapter
        Dim dts As DataSet
        If Nothing Is Cmd Then
            Throw New NullReferenceException("Cmd doit être renseigné.")
        End If
        Try
            Cnx = EtablirConnection()
            Cmd.CommandType = CommandType.Text
            Cmd.Connection = Cnx
            dta = New OleDbDataAdapter(Cmd)
            dts = New DataSet
            dta.Fill(dts)
            If dts.Tables(0).Rows.Count = 1 Then
                Return dts.Tables(0).Rows(0)
            Else
                Return Nothing
            End If
        Catch ex As Exception
            Throw New Exception("Erreur lors de la lecture de la table USERS" & Environment.NewLine & ex.Message)
        Finally
            '# Un peu de nettoyage...
            If Not Nothing Is Cnx Then
                Cnx.Close()
            End If
        End Try
    End Function