ADO_DATA_VIEW CONNEXION ET MANIPULATION DE BASES DE DONNÉES (SQL SERVER , ORACLE

Signaler
Messages postés
132
Date d'inscription
mercredi 18 février 2004
Statut
Membre
Dernière intervention
1 septembre 2014
-
Messages postés
63
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
23 avril 2013
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/53521-ado-data-view-connexion-et-manipulation-de-bases-de-donnees-sql-server-oracle-mysql

Messages postés
63
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
23 avril 2013

Voici un lien pour télécharger l'installation de l'exécutable.
http://swappp.free.fr/tmp/UNIVERSAL_DATA_VIEWER_Install-Mdac28.exe
attention 21Mo
Cette version remaniée intègre beaucoup plus de fonctionnalités que la source déposée, mais la base est identique.
Messages postés
4
Date d'inscription
lundi 6 janvier 2003
Statut
Membre
Dernière intervention
29 décembre 2011

Bonjour, ce dev m'intéresse mais il me faudrait le .exe possible de l'intégrer en renommant l'extension ?

J'ai un compilateur VB8 mais la mise à jour auto du dev en VB6 ne marche pas.

Merci
Messages postés
63
Date d'inscription
jeudi 4 décembre 2003
Statut
Membre
Dernière intervention
23 avril 2013

Bonjour,
Une procédure stockée s'exécute comme une commande paramétrée mais au lieu de passer dans CommandText un ordre Sql il faut simplement indiquer le nom de la procedure Stockée. De plus dans CommandeType il faut indiquer adCmdStoredProc.
Voici un exemple :
Private Sub ExecStoredProcedure()
Dim i as integer
Dim j as integer
Dim lNbLignesAffectees as long
Dim iNbErreurs as integer
Dim Message_Erreur As String
Dim vVal as Variant
Dim sCmd As clsAdoCmdRst

'
Set sCmd = New clsAdoCmdRst
sCmd.setCmdConn = dbConn
sCmd.setCmdType = adCmdStoredProc
'Au lieu de passer une commande Sql , c'est le nom de la procédure stockée qui est transmis
sCmd.setCmdTexte = "NOM_DE_LA_PROCEDURE"
sCmd.setCmdPrepared = True
'Renseigner si nécessaire les Paramètres à passer à la procédure stockée
i = sCmd.GetAdoCmdNbParam
If i > 0 Then
For j = 1 To i
If sCmd.GetParamDirection(j) = adParamInput Then
If sCmd.GetParamDataType(j) = adBigInt Or adCurrency Or adDecimal Or adDouble Or adInteger Or adNumeric Or adSingle Or adSmallInt Or adTinyInt Then
vVal = ""
Do While IsNumeric(vVal) = False
vVal = InputBox("Valeur Numérique à affecter au paramètre " & sCmd.GetParamName(j), sCmd.GetParamName(j), "")
Loop
sCmd.setParamValue j, Val(vVal)
ElseIf sCmd.GetParamDataType(j) = adChar Or adVarChar Or adLongVarChar Then
vVal = Null
vVal = InputBox("Valeur Texte à affecter au paramètre " & sCmd.GetParamName(j), sCmd.GetParamName(j), "")
sCmd.setParamValue j, CStr(vVal)
ElseIf sCmd.GetParamDataType(j) = adDBDate Or adDate Or adDBTime Or adDBTimeStamp Then
vVal = Null
vVal = InputBox("Valeur Date à affecter au paramètre " & sCmd.GetParamName(j), sCmd.GetParamName(j), "")
sCmd.setParamValue j, CStr(vVal)
End If
End If
Next
End If
'Exécuter la procédure en mode asynchrone si son temps d'exécution dépasse quelques secondes.
sCmd.ExecAdoCmd lNbLignesAffectees, iNbErreurs, Message_Erreur, True
'Afficher ou enregistrer les valeurs éventuelles retournées par la procédure stockée
i = sCmd.GetAdoCmdNbParam
If i > 0 Then
For j = 1 To i If sCmd.GetParamDirection(j) adParamOutput Or sCmd.GetParamDirection(j) adParamInputOutput Then
vval = sCmd.GetParamValue(j)
if isnull(vVal) then vVal="Null"
Debug.Print sCmd.GetParamName(j) & " : " & vVal
End If
Next
End If
Set sCmd = Nothing
End Sub
Messages postés
11
Date d'inscription
lundi 22 août 2011
Statut
Membre
Dernière intervention
4 septembre 2011

Bonjour a tous.
J'ai apprécié l'ajout de l'exécution des commandes paramétrées, c'est très util et effectivement super rapide lors d'exécutions répétitives. J'ai tenté d'exécuter une procédure stockée mais sans succès, pourtant le processus est identique aux commandes paramétrées non?
Si quelqu'un a une idée..
Afficher les 22 commentaires