Boite a outiles ado (connexion,command,parameter)

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (Little_Dev)