1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
Public Function Execution_Requete(ByVal requete As String, Optional ByVal connection As IDbConnection = Nothing) As IDataReader
Dim readerRequete As IDataReader
Dim command As IDbCommand = Nothing
command = New SqlClient.SqlCommand
If connection Is Nothing Then
command = Depart.ConnectionBdNet.CreateCommand()
Else
command = connection.CreateCommand()
End If
command.CommandTimeout = 0
command.CommandText = requete
readerRequete = command.ExecuteReader()
command.Dispose()
command = Nothing
Return readerRequete |
