Discussion :

[XGuarden]

Bonjour, j'ai créer cette fonction qui a pour but de retourner un Dataview a partir d'une requêtes. J'ai l'impression d'en avoir un peu trop mit pour rien. Qu'en penser vous? Aurais-je pu faire dans le plus simple... D’ailleurs cette fonction ne me permet même pas de faire du multi table.

Merci de me donner votre point de vue.

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
38
39
Public Function selecttable(ByVal Table As String, _
                                ByVal Selection As String, _
                                Optional ByVal whereSql As String = Nothing, _
                                Optional ByVal orderBySql As String = Nothing) As DataView
 
        Dim daTable As New OleDbDataAdapter
        Dim dtTable As New DataTable
        Dim sqlstring As String = "SELECT " & Selection & " FROM " & Table
 
        If Not (whereSql Is Nothing) AndAlso 0 < whereSql.Length Then
            sqlstring += " WHERE " + whereSql
        End If
 
        If Not (orderBySql Is Nothing) AndAlso 0 < orderBySql.Length Then
            sqlstring += " ORDER BY " + orderBySql
        End If
 
        Using connection As New OleDbConnection(m_ConnectionString)
 
            ' Insert une nouvelle ligne dans la table.
            Dim command As New OleDbCommand(sqlstring, connection)
 
            ' Open the connection and execute the insert command.
            Try
                connection.Open()
                command.ExecuteNonQuery()
 
                daTable.SelectCommand = command
                daTable.Fill(dtTable)
 
                Return New DataView(dtTable)
 
            Catch ex As Exception
                Console.WriteLine(ex.Message)
                Return Nothing
 
            End Try
        End Using
    End Function

[Pol63]

command.ExecuteNonQuery() va exécuter la requete et daTable.Fill(dtTable) aussi ... donc inutile de le faire 2x
de plus executenonquery ne peut pas rapatrier des données issues d'un select

après je ne comprends pas l'utilité que tu as de demander le select, la table, le where et le order by dans des paramètres différents ... à part emmerder l'appelant
demander un string avec la requete complète suffit, surtout que là ca t'obliges à avoir des requêtes simples ou à bricoler quand tu auras des requetes plus complexes


y aussi cette ligne ' Insert une nouvelle ligne dans la table. qui fait peur ...

et noter aussi qu'il y a une balise code sur ce forum pour mettre en forme le code (bouton # dans l'interface)

[Nathanael Marchand]

J'ajouterai qu'il serait préférable d'utiliser des requêtes parametrées (à voir avec la compatibilité de ton driver SQL)

[XGuarden]

J'ai apporté les modifications.
Présentement j'utilise microsoftjet déclaré ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private m_ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\dbfinal.accdb"

la raison de la multitude des parametre était pour utiliser plus facilement le dataview avec Return New DataView(dtTable)

je pourais mettre les parametre directement dans le dataview et sauver plusieur ligne.

Le probleme c'est que ca plante sur la ligne connection.Open() avec l'erreur:

Pas à pas détaillé*: pas à pas principal dans le code non-utilisateur 'System.Data.ProviderBase.DbConnectionClosed.OpenConnection'
Une exception de première chance de type 'System.Data.OleDb.OleDbException' s'est produite dans System.Data.dll

[Pol63]

il manque le message d'erreur, qui explique pourquoi l'erreur

m'enfin concernant la question de départ demandant un avis sur le code, il est pas terrible ...

[XGuarden]

Des idées d'amélioration?
Il n'y a pas de message d'erreur spécifique, c'est ce qui me cause probleme.