Class connexion adodb securise

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 031 fois - Téléchargée 35 fois

Contenu du snippet

C'est une classe facilitant la mise en oeuvre d'une connexion ADODB par du code.

De plus, via les fonctions de formatage SQL, elle permet de sécuriser vos applications contre le SQL Injection (testé seulement pour MySQL, a adapté sur autres bases tel que SQL Serveur).
De plus vous trouverez le debugage facilité pour vos applications (requete sql plus visible, centralisation du code) .

Vous pouvez facilement logguer les requestes sql

Source / Exemple :


'Développé par ZAPPY zappy@gosney42.org
'Pour toute utilisation commercial, contactez l'auteur
'En cas de redistribution, vous êtes tenu de livrer tel quel, avec le copyright

Option Explicit
Public oConn As ADODB.Connection

Public bSilent As Boolean
Public strConnexionString As String
Public tCursorLocation As ADODB.CursorLocationEnum
Private bPermanant As Boolean

Private Function ExecString(strSQL As String) As ADODB.Recordset
On Error GoTo erreur

'Connection & execution
If Len(strConnexionString) > 0 Then
   If oConn Is Nothing Then
      If Not Connect Then
         Set ExecString = Nothing
         Exit Function
      End If
   End If
   Debug.Print "SQL: " & strSQL
   Set ExecString = oConn.Execute(strSQL)
End If

'Deconnection
If Not bPermanant Then
   Disconnect
End If

Exit Function
erreur:
If gError(Err, "ExecString") Then
   Resume Next
End If
End Function

Public Function Connect() As Boolean
On Error GoTo erreur
Set oConn = New ADODB.Connection

oConn.CursorLocation = tCursorLocation
oConn.Open (strConnexionString)
Connect = True

Exit Function
erreur:
gError Err, "Connect()"
End Function

Private Function Disconnect() As Boolean
On Error GoTo erreur
If Not oConn Is Nothing Then
   oConn.Close
   Set oConn = Nothing
End If
Exit Function
erreur:
gError Err, "Disconnect()"
End Function

Public Property Let Permanant(value As Boolean)
bPermanant = value
If value Then
   tCursorLocation = adUseServer
End If
End Property

Public Property Get Permanant() As Boolean
Permanant = bPermanant
End Property

Public Function ExecSQL(strSQL As String) As ADODB.Recordset
On Error GoTo erreur

Set ExecSQL = ExecString(strSQL)

Exit Function
erreur:
If gError(Err, "ExecSQL") Then
   Resume Next
End If
End Function

Public Function fExecSQL(strSQL As String, ParamArray strArgument() As Variant) As ADODB.Recordset
On Error GoTo erreur

Const MagicString = "42!42!42!42!42!42!" ' "42!" * (4+2) = leet code !!!

Dim i As Long
Dim strTmp As Variant

'Creation de la chaine de commande
For Each strTmp In strArgument
      i = i + 1
      If IsNull(strTmp) Then strTmp = "NULL"
      strSQL = Replace(strSQL, "$" & CStr(i) & "$", AddSlashes(Replace(CStr(strTmp), "$", MagicString, , , vbTextCompare)), , , vbTextCompare)
Next strTmp
strSQL = Replace(strSQL, MagicString, "$", , , vbTextCompare)

'Execution de la chaine SQL
Set fExecSQL = ExecString(strSQL)

Exit Function
erreur:
If gError(Err, "fExecSQL") Then
   Resume Next
End If
End Function

Private Function gError(oErr As ErrObject, strFunction As String) As Boolean
gError = False

Select Case strFunction
   Case Else
      If Not bSilent Then
         If vbYes = MsgBox("Une erreur est survenue !" & vbCrLf & "Voulez vous continuer ?" & String(2, vbCrLf) & CStr(Err.Number) & " : " & Err.Description, vbYesNo + vbExclamation, "Erreur contrôlé") Then
            gError = True
         End If
      End If
End Select
End Function

Private Sub Class_Initialize()
'Initialisation de la class
tCursorLocation = adUseClient
bSilent = False
bPermanant = False
End Sub

Private Sub Class_Terminate()
Call Disconnect
End Sub

Conclusion :


Exemple d'utilisation :

Dim rec As Recordset, myConn as clsConnexion
Set myConn = new clsConnexion
myConn
Set rec = myConn.ExecSQL(GetSQLCommand)
myConn.Permanant = True 'Ne doit pas deco apres la premiere requete
myConn.strConnexionString = GetConnexionString 'Parametrage de la connexion
myConn.Connect

set rec = myConn.fExecSQL("select * from db_clients where s_name='$1$' and i_age > $2$", txtName.text, txtAge.text)

'Et voila, y'a pas plus simple.

Juste un exemple de GetConnexion() :
Private Function GetConnexionString() As String
Dim ConnexionString As String
ConnexionString = "DRIVER={MySQL ODBC 3.51 Driver};" & _
"SERVER=myhost;" & _
"DATABASE=mydb;" & _
"USER=myuser;" & _
"OPTION=96;" & _
"PASSWORD=mypassword;"


GetConnexionString = ConnexionString
End Function

A voir également

Ajouter un commentaire

Commentaires

ptoussaint
Messages postés
3
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
25 octobre 2009
-
Je trouve que c'est un peu compliqué pour remplacer les instructions standards. On fait la même chose en 5 lignes sans se poser de question. Mais ma foi, quand on aime on ne compte pas !
JoePatent
Messages postés
171
Date d'inscription
jeudi 30 janvier 2003
Statut
Membre
Dernière intervention
20 juillet 2008
-
Ya quelqu'un pour qui ca fonctionne ?

J'ai besoin d'un exemple fonctionnel svp.
skyghis
Messages postés
25
Date d'inscription
mardi 13 août 2002
Statut
Membre
Dernière intervention
26 septembre 2004
-
'clsConnexion' C sa classe.
nass932
Messages postés
14
Date d'inscription
mardi 7 janvier 2003
Statut
Membre
Dernière intervention
2 février 2006
-
ne manque t'il pas quelque chose ?

myConn as clsConnexion

quel est le type de 'clsConnexion'

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.