BOITE A OUTILES ADO (CONNEXION,COMMAND,PARAMETER)

'                                       *************************************
'                                       *       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

Télécharger le zip