Automatisation des connection et recordset

Commenter

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

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 (pi0up51)