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 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
|
Dim mCommande As SqlCommand = Nothing
Dim mAdapter As SqlDataAdapter = Nothing
Try
Select Case type
Case CommandType.Text
'Création d'une nouvelle commande
mCommande = CreerRequete(texteSql, tracerLog)
Case CommandType.StoredProcedure
'Création d'une nouvelle commande
mCommande = CreerCommande(texteSql, tracerLog, valeurs)
End Select
'Création de l'adaptateur de données
mAdapter = New SqlDataAdapter(mCommande)
'Recuperation des donnees
RecupererDonnees = New DataSet
mAdapter.Fill(RecupererDonnees, nomTable)
If RecupererParametre Then
'Recuperation des parametres
mParametres = mCommande.Parameters
End If
'Indique la fin de l'execution de la requete
'GestionErreur.EnvoyerMessage(Me, MethodBase.GetCurrentMethod, "Execution de la requête terminée. (" & texteSql & ")")
If tracerLog Then
RaiseEvent TraceChange(Me, _
New ApplicationEventArgs(MethodBase.GetCurrentMethod, _
Nothing, _
"Execution de la requête terminée. (" & texteSql & ").", _
TypeTrace.Debug, _
TypeAffichage.Aucun))
End If
Catch ex As Exception
'Leve une exception pour l'appelant
Throw New ApplicationErreur("L'execution de la requête a échouée. (" & texteSql & ")", _
ex, _
TypeTrace.Grave, _
TypeAffichage.Bandeau, _
"")
Finally
If Not mAdapter Is Nothing Then
mAdapter.Dispose()
End If
mAdapter = Nothing
'fermeture de la commande afin d'etre sur de le detruire rapidement.
If Not mCommande Is Nothing Then
mCommande.Dispose()
mCommande = Nothing
End If
End Try |
Partager