Simplification de requêtes SQL
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:
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 |
