Programa de conexão de banco de dados universal

Autor：Eve Cole Data da Última Atualização：2025-08-18 03:48:01

O cliente de banco de dados universal aprende o programa de conexão do Universal Database. Pode -se dizer que esse cliente de banco de dados é um cliente de banco de dados universal que suporta cobertura de banco de dados e todos os bancos de dados que podemos ver. Então você conhece o programa de conexão de banco de dados universal? Deixe o editor do The Foot New Technology Channel levar você para saber mais sobre isso!

Introdução: Conectando vários tipos de bancos de dados e funções para operações de banco de dados

Pode -se dizer que o programa a seguir é um programa universal de conexão de banco de dados que pode se conectar a quase todos os bancos de dados do MS. Por favor, use -o para pesquisar você mesmo (este programa está no livro "ASP Web Page Production Tutorial" - um bom livro):

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

Função getMdbConnection (nome do arquivo)

Provedor escuro, DBPath

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

Dbpath = "Data Source =" & Server.mappath (nome do arquivo)

Definir getMdBConnection = getConnection (provedor & dbpath)

Função final

Função GetSeSeREDMDBConnection (nome do arquivo, senha)

Provedor escuro, DBPath

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

Dbpath = "Data Source =" & Server.mappath (nome do arquivo)

SET getSeSeREDMDBConnection = getConnection (provedor & dbpath & "; jet oledb: database senha =" & senha) Função final

Função getdbcconnection (nome do arquivo)

Driver escuro, SourceType, DBPath

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

SourceType = "sourceType = dbc;"

Dbpath = "Sourcedb =" & Server.mappath (nome do arquivo)

Definir getdbcConnection = getConnection (Driver & SourceType & DBPath)

Função final

Função getdbfconnection (diretório)

Driver escuro, SourceType, DBPath

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

SourceType = "SourceType = dbf;"

Dbpath = "Sourcedb =" & Server.mappath (diretório)

Definir getDbfConnection = getConnection (Driver & SourceType & DBPath)

Função final

Função getExcelConnection (nome do arquivo)

Driver escuro, DBPath

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

Dbpath = "dbq =" & server.mappath (nome do arquivo)

Definir getExcelConnection = getConnection (driver & "readonly = 0;" & dbpath) Função final

Função getTextConnection (diretório)

Driver escuro, DBPath

Driver = "driver = {driver de texto da Microsoft ( *.txt; *.csv)};"

Dbpath = "dbq =" & server.mappath (diretório)

Definir getTextConnection = getConnection (driver & dbpath)

Função final

Função getsqlServerConnection (computador, UserID, senha, DB)

Dim Params, Conn

Set getsqlServerConnection = nada

Params = "provider = sqloledb.1"

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

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

Params = params & "; senha =" & senha

Params = params & "; catálogo inicial =" & db

Definir Conn = Server.CreateObject ("Adodb.Connection")

Conn.Open params

Set getsqlServerConnection = Conn

Função final

Função getMdBrecordSet (nome do arquivo, fonte)

Definir getMdBrecordSet = getMdBrs (nome do arquivo, fonte, 2, "")

Função final

Função getMdbstaticRecordSet (nome do arquivo, fonte)

Definir getMdBstaticRecordSet = getMdBrs (nome do arquivo, fonte, 3, "")

Função final

Função GetSeSeReDMDBRecordSet (nome do arquivo, fonte, senha)

Set getSeSeReSDMDBreCordSet = getMdBrs (nome do arquivo, fonte, 2, senha)

Função GetSeSeREDMDBstaticRecordSet (nome do arquivo, fonte, senha)

Set getSeSeReDMDBstaticRecordSet = getMDBRS (nome do arquivo, fonte, 3, senha) Função final

Função getdbfrecordset (diretório, sql)

Definir getdbfRecordSet = getotherrs ("dbf", diretório, sql, 2)

Função final

Função getdbfstaticRecordSet (diretório, SQL)

Definir getdbfstaticRecordSet = getotherrs ("dbf", diretório, sql, 3)

Função final

Função getdbcrecordset (nome do arquivo, sql)

Definir getdbcrecordset = getotherrs ("dbc", nome do arquivo, sql, 2)

Função final

Função getdbcstaticRecordSet (nome do arquivo, SQL)

Definir getdbcstaticRecordSet = getotherrs ("dbc", nome do arquivo, sql, 3)

Função final

Função getExcelRecordSet (nome do arquivo, SQL)

Definir getExcelRecordSet = getotherrs ("Excel", nome do arquivo, SQL, 2)

Função final

Função getExcelStaticRecordSet (nome do arquivo, SQL)

Definir getExcelStaticRecordSet = getotherrs ("Excel", nome do arquivo, SQL, 3)

Função final

Função getTextRecordSet (diretório, SQL)

Definir getTextRecordSet = getotherrs ("text", diretório, sql, 2)

Função final

Função getTextStaticRecordSet (Diretório, SQL)

Definir getTextStaticRecordSet = getotherrs ("texto", diretório, SQL, 3)

Função final

Função getsqlserverRrecordset (Conn, fonte)

Dim Rs

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

Rs.Open Source, Conn, 2, 2

Set getsqlServerRecordSet = Rs

Função final

Função getsqlserververstaticRecordSet (Conn, fonte)

Dim Rs

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

Rs.Open Source, Conn, 3, 2

Set getsqlserververstaticrecordset = rs

Função final

Função getConnection (param)

Dim Conn

Em erro de erro em seguida

Definir getConnection = nada

Definir Conn = Server.CreateObject ("Adodb.Connection")

Se err.number <> 0, então a função de saída

Conn.Open param

Se err.number <> 0, então a função de saída

Definir getConnection = Conn

Função final

Função getMdbrs (nome do arquivo, fonte, cursor, senha)

Dim Conn, Rs

Em erro de erro em seguida

Definir getMdbrs = nada

Se Len (senha) = 0 então

Definir Conn = getMdBConnection (nome do arquivo)

Outro

Definir conn = getSerecuredMdBConnection (nome do arquivo, senha)

Final se

Se Conn não é nada, então a função de saída

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

Se err.number <> 0, então a função de saída

Rs.Open Source, Conn, Cursor, 2

Se err.number <> 0, então a função de saída

Definir getMdbrs = Rs

Função final

Função getotherrs (Datatype, Path, SQL, cursor)

Dim Conn, Rs

Em erro de erro em seguida

Definir getotherrs = nada

Selecione Datatype de casos

Caso "dbf"

Definir conn = getdbfconnection (caminho)

Caso "dbc"

Definir conn = getdbcConnection (caminho)

Caso "Excel"

Definir conn = getExcelConnection (caminho)

Caso "texto"

Definir conn = getTextConnection (caminho)

Final Selecione

Se Conn não é nada, então a função de saída

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

Se err.number <> 0, então a função de saída

Rs.Open SQL, Conn, Cursor, 2

Se err.number <> 0, então a função de saída

Definir getotherrs = rs

Função final

Função getsqlServerrs (computador, UserID, senha, banco de dados, fonte, cursor)

Dim Conn, Rs

Em erro de erro em seguida

Set getsqlserverrs = nada

Definir Conn = getSqlServerConnection (computador, UserID, senha, DB)

Se Conn não é nada, então a função de saída

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

Se err.number <> 0, então a função de saída

Rs.Open Source, Conn, Cursor, 2

Se err.number <> 0, então a função de saída

Set getsqlserverrs = rs

Função final

O acima exposto é uma introdução detalhada ao programa de conexão de banco de dados universal. Para mais conteúdo, continue prestando atenção ao novo canal de tecnologia errada!