Universal Datenbankverbindungsprogramm

Autor：Eve Cole Aktualisierungszeit：2025-08-18 03:48:01

Der Universal Database Client lernt das allgemeine Datenbankverbindungsprogramm. Dieser Datenbank -Client kann als universeller Datenbankclient bezeichnet werden, der die Datenbankabdeckung und alle Datenbanken, die wir sehen können, unterstützt. Kennen Sie das Universal Database Connection -Programm? Lassen Sie den Herausgeber des Foot New Technology Channel Sie dazu bringen, mehr darüber zu erfahren!

Einführung: Verbinden verschiedener Arten von Datenbanken und Funktionen für Datenbankoperationen

Das folgende Programm kann als universelles Datenbankverbindungsprogramm bezeichnet werden, das eine Verbindung zu fast allen MS -Datenbanken herstellt. Bitte verwenden Sie es für die Forschung selbst (dieses Programm befindet sich im Buch "ASP Webseitenproduktion Tutorial" - ein gutes Buch):

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

Funktion getMdbConnection (Dateiname)

Dim Provider, DBPath

Provider = "provider = microsoft.jet.oledb.4.0;"

Dbpath = "data source =" & server.mappath (Dateiname)

Set getMdbConnection = getConnection (Anbieter & DBPath)

Endfunktion

Funktion GetSecuredMdbConnection (Dateiname, Passwort)

Dim Provider, DBPath

Provider = "provider = microsoft.jet.oledb.4.0;"

Dbpath = "data source =" & server.mappath (Dateiname)

Set getSecuredMdbConnection = getConnection (Anbieter & DBPath & "; Jet OLEDB: Datenbank Passwort =" & Passwort) Endfunktion

Funktion getdbcconnection (Dateiname)

Dunkeler Treiber, Sourcetyp, DBPath

TRAVER = "DRAVER = {Microsoft Visual FoxPro Treiber};"

Sourcetype = "Sourcetype = DBC;"

DbPath = "Sourcedb =" & server.mappath (Dateiname)

Setzen Sie GetDbcConnection = GetConnection (Driver & Sourcetype & DBPath)

Endfunktion

Funktion getdbfConnection (Verzeichnis)

Dunkeler Treiber, Sourcetyp, DBPath

TRAVER = "DRAVER = {Microsoft Visual FoxPro Treiber};"

Sourcetype = "Sourcetype = DBF;"

DbPath = "Sourcedb =" & server.mappath (Verzeichnis)

Setzen Sie getdbfConnection = getConnection (Treiber & Sourcetype & DBPath)

Endfunktion

Funktion getExcelConnection (Dateiname)

Dimer Treiber, dbPath

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

Dbpath = "dbq =" & server.mappath (Dateiname)

Setzen Sie GetExcelConnection = getConnection (Treiber & "Readonly = 0;" & dbPath) Endfunktion

Funktion getTextConnection (Verzeichnis)

Dimer Treiber, dbPath

Triver = "driver = {microsoft text treiber ( *.txt; *.csv)};"

Dbpath = "dbq =" & server.mappath (Verzeichnis)

Setzen Sie GetTextConnection = getConnection (Treiber & DBPath)

Endfunktion

Funktion GETQLSERVERCONNECTION (Computer, BenutzerID, Kennwort, DB)

Dim Params, conn

Set GotsQlServerConnection = nichts

Params = "Provider = SQLOLEDB.1"

Params = params & "; Data Source =" & Computer

Params = params & "user id =" & userId

Params = params & "; password =" & Passwort

Params = params & "; anfängskatalog =" & db

Setzen Sie conn = server.createObject ("adodb.Connection").

Conn.open Params

Set GotsQlServerConnection = conn

Endfunktion

Funktion getMdBrecordset (Dateiname, Quelle)

Setzen Sie GetMdBreCordSet = getMdbrs (Dateiname, Quelle, 2, "")

Endfunktion

Funktion getMdbstaticRecordset (Dateiname, Quelle)

Setzen Sie GetMdbstaticRecordSet = getMdbrs (Dateiname, Quelle, 3, "")

Endfunktion

Funktion GetSecuredMdBrecordSet (Dateiname, Quelle, Passwort)

SET GETECUREDMDBRECORDSET = GETMDBRS (Dateiname, Quelle, 2, Passwort) Endfunktion

Funktion GetSecuredMdbstaticRecordSet (Dateiname, Quelle, Passwort)

SET GETECUREDMDBSTATICRECORDSET = GETMDBRS (Dateiname, Quelle, 3, Passwort) Endfunktion

Funktion getdbffrecordset (Verzeichnis, SQL)

Setzen Sie GetDbFfRecordSet = Getotherrs ("DBF", Verzeichnis, SQL, 2)

Endfunktion

Funktion getdbfstaticRecordset (Verzeichnis, SQL)

Setzen Sie GetDBFstaticRecordset = Getotherrs ("DBF", Verzeichnis, SQL, 3)

Endfunktion

Funktion getdbCrecordSet (Dateiname, SQL)

Setzen Sie getDbCreCordSet = Getotherrs ("DBC", Dateiname, SQL, 2)

Endfunktion

Funktion getdbcstaticRecordset (Dateiname, SQL)

Setzen Sie getDbcStaticRecordset = Getotherrs ("DBC", Dateiname, SQL, 3)

Endfunktion

Funktion getExcelRecordset (Dateiname, SQL)

Setzen Sie GetExcelRecordset = Getotherrs ("Excel", Dateiname, SQL, 2)

Endfunktion

Funktion getExcelstaticRecordset (Dateiname, SQL)

Set getExcelstaticRecordset = Getotherrs ("Excel", Dateiname, SQL, 3)

Endfunktion

Funktion getTtexTrecordSet (Verzeichnis, SQL)

Setzen Sie GetTexTrecordSet = Getotherrs ("Text", Verzeichnis, SQL, 2)

Endfunktion

Funktion getTextStaticRecordset (Verzeichnis, SQL)

Setzen Sie GetTextStaticRecordset = Getotherrs ("Text", Verzeichnis, SQL, 3)

Endfunktion

Funktion GETQLSERVERRECORDSET (Conn, Quelle)

Dim Rs

Setzen Sie rs = server.createObject ("adodb.recordset")

Rs.open Source, Conn, 2, 2

Set GotsQlServerRecordset = Rs

Endfunktion

Funktion GetQlServerstaticRecordset (Conn, Quelle)

Dim Rs

Setzen Sie rs = server.createObject ("adodb.recordset")

Rs.open Source, Conn, 3, 2

Set GotsQlServerstaticRecordset = Rs

Endfunktion

Funktion getConnection (Param)

Dim Conn

Bei der nächsten Fehleraufnahme als nächstes

Setzen Sie GetConnection = nichts

Setzen Sie conn = server.createObject ("adodb.Connection").

Wenn err.number <> 0 dann beenden Sie die Funktion

Conn.open Param

Wenn err.number <> 0 dann beenden Sie die Funktion

Setzen Sie GetConnection = conn

Endfunktion

Funktion getMdbrs (Dateiname, Quelle, Cursor, Passwort)

Dim Conn, Rs

Bei der nächsten Fehleraufnahme als nächstes

Set getMdbrs = nichts

Wenn Len (Passwort) = 0 dann

Setzen Sie conn = getMdbConnection (Dateiname)

Anders

Setzen Sie conn = getSecuredMdbConnection (Dateiname, Passwort)

Ende wenn

Wenn Conn nichts ist, beenden Sie die Funktion

Setzen Sie rs = server.createObject ("adodb.recordset")

Wenn err.number <> 0 dann beenden Sie die Funktion

Rs.open Source, Conn, Cursor, 2

Wenn err.number <> 0 dann beenden Sie die Funktion

Set getMdbrs = rs

Endfunktion

Funktion Getotherrs (Datentyp, Pfad, SQL, Cursor)

Dim Conn, Rs

Bei der nächsten Fehleraufnahme als nächstes

Getotherrs einstellen = nichts

Wählen Sie den Falldatatyp

Fall "DBF"

Setzen conn = getdbfConnection (Pfad)

Fall "DBC"

Setzen conn = getdbcconnection (Pfad)

Fall "Excel"

Setzen conn = getExcelConnection (Pfad)

Fall "Text"

Setzen Sie conn = getTextConnection (Pfad)

Ende auswählen

Wenn Conn nichts ist, beenden Sie die Funktion

Setzen Sie rs = server.createObject ("adodb.recordset")

Wenn err.number <> 0 dann beenden Sie die Funktion

Rs.open SQL, Conn, Cursor, 2

Wenn err.number <> 0 dann beenden Sie die Funktion

Getotherrs = rs einstellen

Endfunktion

Funktion GETQLSERVERRS (Computer, BenutzerID, Kennwort, DB, Quelle, Cursor)

Dim Conn, Rs

Bei der nächsten Fehleraufnahme als nächstes

Set GotsQlServerrs = nichts

Setzen Sie Conn = getQlServerConnection (Computer, BenutzerID, Kennwort, DB)

Wenn Conn nichts ist, beenden Sie die Funktion

Setzen Sie rs = server.createObject ("adodb.recordset")

Wenn err.number <> 0 dann beenden Sie die Funktion

Rs.open Source, Conn, Cursor, 2

Wenn err.number <> 0 dann beenden Sie die Funktion

Set GotsQlServerrs = Rs

Endfunktion

Das obige ist eine detaillierte Einführung in das Universal Database Connection -Programm. Für weitere Inhalte achten Sie bitte weiter auf den falschen neuen Technologiekanal!