Automatisation des connection et recordset

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 342 fois - Téléchargée 35 fois

Contenu du snippet

Velà des fonctions à inclure dans un fichier include ke l'on appelle dans toutes les page de son sit (ou presque).

Permet d'automatiser les connexion, recordset et execute, càd :
On a pa besoin d'ecrire Set Connexion = ADODB......., etc
ON tape just conn = Connexion(LaBase) et hop c fai ;)
Idem avec Recordset et execute

Source / Exemple :


<%
' Connection à une base
Function Connexion(DBName)
   Dim conn, sConnString, oFs, sDBPath
   Path = Server.MapPath("path de la db")

   Set conn= Server.CreateObject("ADODB.Connection")
   sConnString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Path & "/" & DBName& ".mdb" 
   Set Connexion= conn
End Function

' Recordset
Function Recordset(Connexion, rSQL)
   Set Recordset= Connexion.Execute(rSQL)
End Function

' Execute un requete SQL
Function Execute(Connexion, rSQL)
   Connexion.Execute rSQL
End Function
%>

Conclusion :


Sur le même format on peut automatiser les UPDATE, INSERT TO, etc ...

sur ce @tte et bonn' prog'
pi0up51
http://www.infobox51.fr.st

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
jeudi 5 février 2004
Statut
Membre
Dernière intervention
18 mars 2004

A quand les fonctions de fermeture des connexions , recordsets ,...
Messages postés
2
Date d'inscription
mercredi 5 juin 2002
Statut
Membre
Dernière intervention
9 août 2003

Bizarre bizarre ... cette connexion ....

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.