Programme de connexion de la base de données universelle

Auteur：Eve Cole Date de mise à jour：2025-08-18 03:48:01

Le client de la base de données universelle apprend le programme de connexion de la base de données universel. Ce client de base de données peut être considéré comme un client de base de données universel qui prend en charge la couverture de la base de données et toutes les bases de données que nous pouvons voir. Connaissez-vous donc le programme de connexion de la base de données universelle? Laissez l'éditeur de The Foot New Technology Channel vous emmener en savoir plus à ce sujet!

INTRODUCTION: Connexion de différents types de bases de données et de fonctions pour les opérations de base de données

Le programme suivant peut être considéré comme un programme de connexion de base de données universel qui peut se connecter à presque toutes les bases de données MS. Veuillez l'utiliser pour la recherche vous-même (ce programme est dans le livre "ASP Web Page Production Tutorial" - un bon livre):

'---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Fonction getMDBConnection (nom de fichier)

Fournisseur DIM, DBPATH

Provider = "provider = Microsoft. Jet.oledb.4.0;"

Dbpath = "data source =" & server.mappath (nom de fichier)

Définir getMDBConnection = GetConnection (fournisseur et DBPath)

Fonction finale

Fonction getSecuredMDBConnection (nom de fichier, mot de passe)

Fournisseur DIM, DBPATH

Provider = "provider = Microsoft. Jet.oledb.4.0;"

Dbpath = "data source =" & server.mappath (nom de fichier)

Set getSecuredMdbConnection = getConnection (fournisseur & dbPath & "; Jet oledb: la base de données mot de passe =" & mot de passe)

Fonction getdbcconnection (nom de fichier)

Pilote DIM, SourceType, DBPATH

Driver = "Driver = {Microsoft Visual FoxPro Driver};"

SourceType = "SourceType = DBC;"

Dbpath = "SourcedB =" & server.mappath (nom de fichier)

SET GetDBCConnection = GetConnection (Driver & SourceType et DBPath)

Fonction finale

Fonction getdbfconnection (répertoire)

Pilote DIM, SourceType, DBPATH

Driver = "Driver = {Microsoft Visual FoxPro Driver};"

SourceType = "SourceType = DBF;"

Dbpath = "SourcedB =" & server.mappath (répertoire)

SET GetDBFConnection = GetConnection (Driver & SourceType & DBPath)

Fonction finale

Fonction getExcelConnection (nom de fichier)

Dim Driver, DBPath

Driver = "Driver = {Microsoft Excel Driver (* .xls)};"

Dbpath = "dbq =" & server.mappath (nom de fichier)

Définir GetExcelConnection = GetConnection (Driver & "readonly = 0;" & dbPath) Fonction finale

Fonction getTextConnection (répertoire)

Dim Driver, DBPath

Driver = "Driver = {Microsoft Text Driver (* .txt; * .csv)};"

Dbpath = "dbq =" & server.mappath (répertoire)

Set getTextConnection = getConnection (Driver & DBPath)

Fonction finale

Fonction getSQLServerConnection (ordinateur, userId, mot de passe, db)

Dim Params, Conn

Set getSQlServerConnection = rien

Params = "provider = sqloledb.1"

Params = params & "; data source =" & ordinateur

Params = params & "; user id =" & userId

Params = params & "; mot de passe =" & mot de passe

Params = params & "; catalogue initial =" & db

Définir Conn = Server.CreateObject ("Adodb.Connection")

Conn.Open PARAMS

Set getSQlServerConnection = Conn

Fonction finale

Fonction getmdbrecordset (nom de fichier, source)

Set getmdbrecordset = getmdbrs (nom de fichier, source, 2, "")

Fonction finale

Fonction getmdbstatingrecordset (nom de fichier, source)

SET GETMDBSTATICRECORDSET = GETMDBRS (nom de fichier, source, 3, "")

Fonction finale

Fonction getSecuredMdBrecordSet (nom de fichier, source, mot de passe)

Set getSecuredMdBrecordSet = getMDBRS (nom de fichier, source, 2, mot de passe)

Fonction getSecuredMDBStaticRecordSet (nom de fichier, source, mot de passe)

Set getSecuredMdbStatingRecordSet = getMDBRS (nom de fichier, source, 3, mot de passe) Fonction finale

Fonction getdbfrecordSet (répertoire, SQL)

SET GetDBFRecordSet = Getotherrs ("DBF", répertoire, SQL, 2)

Fonction finale

Fonction getDBFStaticRecordSet (répertoire, SQL)

SET GetDBFStaticRecordSet = GetAtherrs ("DBF", répertoire, SQL, 3)

Fonction finale

Fonction getDBCRecordSet (nom de fichier, SQL)

SET GetDBCRecordSet = Getotherrs ("DBC", nom de fichier, SQL, 2)

Fonction finale

Fonction getDBCStaticRecordSet (nom de fichier, SQL)

SET GetDBCStaticRecordSet = GetAtherrs ("DBC", nom de fichier, SQL, 3)

Fonction finale

Fonction getExcelRecordSet (nom de fichier, SQL)

SET GETEXCELRECORDSET = GETOTHERRS ("Excel", FileName, SQL, 2)

Fonction finale

Fonction getExcelStaticRecordSet (nom de fichier, SQL)

SET GETEXCELSTATICRECORDSET = GETOTHERRS ("EXCEL", FileName, SQL, 3)

Fonction finale

Fonction getTextreCordSet (répertoire, SQL)

SET GetTexTRecordSet = Getotherrs ("Text", répertoire, SQL, 2)

Fonction finale

Fonction getTextStaticRecordSet (répertoire, SQL)

Set getTextStatingRecordSet = getotherrs ("texte", répertoire, SQL, 3)

Fonction finale

Fonction getSQLServerRecordSet (Conn, source)

Rs sombre

Set rs = server.createObject ("adodb.recordSet")

Rs.Open Source, Conn, 2, 2

Set getSQLServerRecordSet = Rs

Fonction finale

Fonction getSQLServerStaticRecordSet (Conn, Source)

Rs sombre

Set rs = server.createObject ("adodb.recordSet")

Rs.Open Source, Conn, 3, 2

Set getSQLServerStaticRecordSet = RS

Fonction finale

Fonction getConnection (param)

Tabar

Sur l'erreur reprendre ensuite

Set getConnection = rien

Définir Conn = Server.CreateObject ("Adodb.Connection")

Si err.number <> 0 alors la fonction de sortie

Conn.Open Param

Si err.number <> 0 alors la fonction de sortie

Définir getConnection = Conn

Fonction finale

Fonction getMDBRS (nom de fichier, source, curseur, mot de passe)

Dim Conn, RS

Sur l'erreur reprendre ensuite

Définissez getmdbrs = rien

Si Len (mot de passe) = 0 alors

Définir Conn = getMDBConnection (nom de fichier)

Autre

Définir Conn = GetSecuredMDBConnection (nom de fichier, mot de passe)

Terminer si

Si Conn n'est rien, sortez la fonction

Set rs = server.createObject ("adodb.recordSet")

Si err.number <> 0 alors la fonction de sortie

Rs.Open Source, Conn, curseur, 2

Si err.number <> 0 alors la fonction de sortie

Définir getMDBRS = RS

Fonction finale

Fonction Getotherrs (DataType, Path, SQL, Cursor)

Dim Conn, RS

Sur l'erreur reprendre ensuite

Set Getotherrs = Rien

Sélectionnez le type de données de cas

Cas "DBF"

Définir Conn = getDBFConnection (chemin)

Cas "dbc"

Définir Conn = GetDBCConnection (Path)

Cas "Excel"

Définir Conn = GetExcelConnection (chemin)

Cas "texte"

Définir Conn = getTextConnection (Path)

Fin de sélection

Si Conn n'est rien, sortez la fonction

Set rs = server.createObject ("adodb.recordSet")

Si err.number <> 0 alors la fonction de sortie

Rs.Open SQL, Conn, curseur, 2

Si err.number <> 0 alors la fonction de sortie

Définir Getotherrs = Rs

Fonction finale

Fonction getSQLSerVerrs (ordinateur, utilisateur, mot de passe, db, source, curseur)

Dim Conn, RS

Sur l'erreur reprendre ensuite

Set getSQlSerVerrs = rien

Définir Conn = GetSQLServerConnection (ordinateur, userId, mot de passe, db)

Si Conn n'est rien, sortez la fonction

Set rs = server.createObject ("adodb.recordSet")

Si err.number <> 0 alors la fonction de sortie

Rs.Open Source, Conn, curseur, 2

Si err.number <> 0 alors la fonction de sortie

Set getSQlServerrs = Rs

Fonction finale

Ce qui précède est une introduction détaillée au programme de connexion de la base de données universelle. Pour plus de contenu, veuillez continuer à faire attention à la mauvaise chaîne de nouvelles technologies!