Boite a outiles ado (connexion,command,parameter)

Soyez le premier à donner votre avis sur cette source.

Vue 15 215 fois - Téléchargée 3 086 fois

Description

Ce code facilite l'utilisation d'ADO dans une application VB.

Il contient une classe permettant de se connecter a une base de données, d'executer des procedures stockée sur la BD(INSERT,UPDATE,SELECT,DELETE).
Lors de l'utilisation d'une requete SELECT, il recupere les valeurs qui sont stockées dans un RECORDSET.

Je pense qu'il est possible d'ameliorer la classe, mais je l'ai voulu simple pour permettre au debutant de s'y retrouver.

Le tout a été dévellopper sur VB6 SP3 et un base Access 2003.

PS: Je souhaite que mon code aide les debutants ou qu'il facilite le travail des chevronnés ;-))
Toutes les remarques,critiques sont les bienvenus - Merci

Source / Exemple :


'                                       *************************************
'                                       *       Classe : Outiles ADO        *
'                                       *************************************

Private ADO_Cnx As ADODB.Connection 'Objet ADO Connexion
Private ADO_Rs As ADODB.Recordset   'Objet ADO Recordset
Private ADO_Cmd As ADODB.Command    'Objet ADO Command
Private ADO_Prm As ADODB.Parameter  'Objet ADO Parameter

Private STR_Ch_Cnx As String        'Chaine de connexion a la DB

'----   Definition de la propriete de la chaine de connexion
Public Property Let ConnexionString(ByVal ValueString As String)
    STR_Ch_Cnx = ValueString
End Property
Public Property Get ConnexionString() As String
    ConnexionString = STR_Ch_Cnx
End Property

'----   Methode pour ouvrir la Data Base
Public Sub OpenCnx()
    Set ADO_Cnx = New ADODB.Connection
    
    With ADO_Cnx
        .CursorLocation = adUseClient
        .Open STR_Ch_Cnx
    End With
End Sub

'----   Methode de definition de la procedure stockée
Public Sub Queries(ByVal Nom_Procedure_Stockee As String)
    Set ADO_Cmd = New ADODB.Command
    
    With ADO_Cmd
        .ActiveConnection = ADO_Cnx
        .CommandType = adCmdStoredProc
        .CommandText = Nom_Procedure_Stockee
    End With
End Sub

'----   Methode pour definir une parametre de la procedure stockée
Public Sub DefParameter(ByVal Parameter, ByVal TypeOfValue As ADODB.DataTypeEnum)
    Set ADO_Prm = New ADODB.Parameter
    With ADO_Prm
        .Direction = adParamInput
        .Type = TypeOfValue
        
        If TypeOfValue = adChar Then
            .Size = 255
        End If

        .Value = Parameter
    End With
    
    ADO_Cmd.Parameters.Append ADO_Prm
End Sub

'----   Methode d'execution de la requete
Public Function ExecuteQueries() As Recordset
    Set ADO_Rs = ADO_Cmd.Execute
    
    Set ExecuteQueries = ADO_Rs
End Function

'----   Methode pour fermer la connexion vers la Data Base
Public Sub CloseCnx()
    ADO_Cnx.Close
End Sub

Conclusion :


A l'heure actuelle pas d'amélioration de prevu. :-o

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

xsaiddx
Messages postés
9
Date d'inscription
samedi 17 mai 2008
Statut
Membre
Dernière intervention
29 avril 2009

j'aime trop ton tuto car mon niveau est de (un grand zero)
et je connais pas bcp de truc sur ton code alors je l'aimrais bien si tu m'aide a le comprendre
merci
Little_Dev
Messages postés
36
Date d'inscription
mercredi 8 septembre 2004
Statut
Membre
Dernière intervention
4 mars 2008

Merci d'avoir laisser un petit commentaire.

Si vous avez besoin d'explication concernant ce code, vous pouvez m'envoyer un mail et je essayerai de vous repondre au plus vite (pas facile car je suis en projet).

@+ Little_Dev ;-))
richygb
Messages postés
1
Date d'inscription
mardi 7 février 2006
Statut
Membre
Dernière intervention
30 juillet 2006

Juste pour dire que je débute en VB et surtout en matière de connection à une base. J'espère que cela m'aidera car j'ai un programme urgent à finir !!!
cs_kamikaz22
Messages postés
2
Date d'inscription
vendredi 20 mai 2005
Statut
Membre
Dernière intervention
29 juillet 2006

Justement je debute avec VB Acess
ça va m'aider beaucoup Merci :)

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.