Readerltitimp = FctSGBD.Execution_Requete(update impltit1 set taux_depav=" & taux_global & " where numero=" & Reader("numero"))
Code de la procédure Execution_Requete
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 |
Merci de prendre du temps pour moi
Partager