Ado_data_view connexion et manipulation de bases de données (sql server , oracle, mysql...)

Soyez le premier à donner votre avis sur cette source.

Vue 10 683 fois - Téléchargée 2 559 fois

Description

' Utilitaire de base de données qui permet:
' La connexion à une Base SqlServer, Oracle, MySql.
' L'enregistrement des profils de connexion.
' L'affichage des tables de la base et l'affichage des colonnes d'une table
' La génération d'un curseur en fonction des colonnes sélectionnées.
' La génération d'une commande d'insert en fonction des colonnes sélectionnées.
' L'affichage et la modification de données, issues d'une table ou d'une requête, dans un DataGrid.
' L'exécution de commandes (insert, delete, update etc..) avec possibilité d'annulation (RollBack).
' Le paramétrage d'exécution de commandes en mode Asynchrone ou synchrone.
' Le paramétrage du nombre de commandes exécutées avant validation(commit) ou annulation(rollback) des modifications en base.
' La sauvegarde de la base de données dans un fichier sur disque.
' L'export des données dans un fichier depuis une requête(curseur) ou depuis une table.
' Le chargement d'une table à partir d'un fichier texte (MsSql Server Oracle MySql)
' --
' Cet utilitaire s'appui sur :
' La manipulation des fonctions et procédures ADO avec gestion optimisée des erreurs.
' La manipulation des registres (lecture, écriture).
' Le déplacement et le redimentionnement d'objets par l'utilisateur.
' --
' Modifiez, Ajoutez, Supprimez des fonctions à votre guise, tout est possible.
' Testez, critiquez, inspirez-vous, c'est fait pour çà...
'
' NB: j'ai essayé d'être clair et de commenter le plus possible le code source.
' Ceci afin de permettre la compréhension du cheminement logique des procédures et des fonctions.
' Il est possible que certaines voies empruntées ne soient pas les plus élégantes ou les plus efficaces,
' c'est pourquoi toute critique constructive étayée d'arguments sera la bienvenue.
' La mise en commun des connaissances est toujours un plus.

Source / Exemple :


voir Fichier .zip

Conclusion :


De nombreux 'Post' traitent déjà du même sujet, ce n'est qu'un exemple de plus de travail avec, et sur des bases de données en VB6.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Multiprise
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.
schnapsman
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
cs_Multiprise
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
swappp
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..
haitek
Messages postés
26
Date d'inscription
jeudi 25 octobre 2007
Statut
Membre
Dernière intervention
13 mars 2014
-
Re-bonjour,
Les programmes (la première version ainsi que la seconde mise à jour) fonctionnent sur Win2000. En cochant la référence de "Microsoft ActiveX Data Objects 2.5 Library", l'application se déroule bien.
J'ai eu trois versions de cette "library" le 2.0, 2.1 et le 2.5 sur la même machine. Bien que Multiprise se sert de la version 2.8 Microsoft ActiveX Data Objects, son programme s'exécute avec la 2.5.

Sur mon ordi à WinXP, seule la version 2.8 de cette fameuse bibliothèque était disponible. Ce qui explique que l'application a tout de suite fonctionné ...

En résumé, c'est la version "Microsoft ActiveX Data Objects" non conforme qui est la raison de mon problème ...

Mes reconnaissances à l'auteur de "ADO_DATA_VIEW CONNEXION ET MANIPULATION DE BASES DE DONNÉES (SQL SERVER , ORACLE, MYSQL...)"

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.