0/5 (2 avis)
Snippet vu 13 532 fois - Téléchargée 37 fois
<% ' 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 %>
18 mars 2004 à 09:08
9 août 2003 à 20:25
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.