La copie de code est la suivante:
'**************************************************
«Voici les fonctions liées à la base de données
'**************************************************
'=====================================================================.
'Initialiser l'objet de connexion de la base de données
`` Principe d'usage: appelez le dernier, publiez les premiers
'=====================================================================.
SubdbConnbegin ()
'Si l'objet de la base de données est déjà ouvert, ne l'ouvrez pas
IfisObject (oconn) = trueThenexitsub
«Vous pouvez ouvrir l'objet d'enregistrement directement sans ouvrir l'objet de connexion de la base de données, mais si vous avez besoin d'ouvrir plusieurs objets d'enregistrement d'enregistrements, l'efficacité est très inefficace.
«Si vous ne créez pas d'objet de connexion de base de données, ADO créera automatiquement un nouvel objet de connexion de base de données lorsque chaque jeu d'enregistrements est ouvert, même si vous utilisez la même instruction SQL.
SetOCOn = server.createObject ("adodb.connection")
Onerrorresumenext
OCONN.Open "Provider = Microsoft.Jet.oledb.4.0; DataSource =" & Server.Mappath ("DB / Lbedit.mdb")
IFERR.NUMBER> 0THEN
'Afficher le message d'erreur et envoyer un e-mail pour informer l'administrateur
'Calldbconnerror (err)
'Sortez complètement le script en cours d'exécution
Réponse.
Endire
'Créer un ensemble d'enregistrements
Setors = server.createObject ("adodb.recordSet")
Fin