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
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.