El cliente de base de datos Universal aprende el programa de conexión de base de datos Universal. Se puede decir que este cliente de base de datos es un cliente de base de datos universal que admite la cobertura de la base de datos y todas las bases de datos que podemos ver. Entonces, ¿conoces el programa de conexión de base de datos universal? ¡Deje que el editor de The Foot New Technology Channel lo lleve a aprender más al respecto!
Introducción: Conectando varios tipos de bases de datos y funciones para operaciones de bases de datos
Se puede decir que el siguiente programa es un programa de conexión de base de datos universal que puede conectarse a casi todas las bases de datos de MS. Úselo para investigar usted mismo (este programa está en el libro "Tutorial de producción de la página web ASP" - Un buen libro):
<%
'-------------------------------------------------------------------------------------------------------------------------
Función getMdbConnection (nombre de archivo)
Proveedor Dim, DBPath
Provider = "Provider = Microsoft.Jet.OLEDB.4.0;"
Dbpath = "data source =" & server.mappath (nombre de archivo)
Establecer getMdbConnection = getConnection (proveedor y dbpath)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función se obtiene en la función MDBConnection (nombre de archivo, contraseña)
Proveedor Dim, DBPath
Provider = "Provider = Microsoft.Jet.OLEDB.4.0;"
Dbpath = "data source =" & server.mappath (nombre de archivo)
Establecer GetSeCuredMDBConnection = GetConnection (Provider & Dbpath & "; Jet OLEDB: Database Password =" & Password) FINAL
'-------------------------------------------------------------------------------------------------------------------------
Función getDBCConnection (nombre de archivo)
Dim Driver, SourceType, DBPath
Controlador = "controlador = {Microsoft Visual FoxPro Driver};"
SourCeType = "SourceType = dbc;"
Dbpath = "Sourcedb =" & Server.Mappath (nombre de archivo)
Establecer getDBCConnection = getConnection (controlador y SourCetype & dbpath)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getDbfconnection (directorio)
Dim Driver, SourceType, DBPath
Controlador = "controlador = {Microsoft Visual FoxPro Driver};"
SourCeType = "SourCetype = dbf;"
Dbpath = "Sourcedb =" & Server.Mappath (directorio)
Establecer getDbfconnection = getConnection (controlador y SourCetype & DBPath)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getExcelconnection (nombre de archivo)
Dim Driver, DBPath
Controlador = "controlador = {Microsoft Excel Driver (*.xls)};"
Dbpath = "dbq =" & server.mappath (nombre de archivo)
Establecer getExCelConnection = getConnection (controlador y "readonly = 0;" & dbpath) Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getTextConnection (directorio)
Dim Driver, DBPath
Controlador = "controlador = {Microsoft Text Driver ( *.txt; *.csv)};"
Dbpath = "dbq =" & server.mappath (directorio)
Establecer getTextConnection = getConnection (controlador y dbpath)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getsqlServerConnection (computadora, ID de usuario, contraseña, DB)
Dim Params, Conn
Set getsqlServerConnection = nada
Params = "proveedor = sqloledb.1"
Params = params & "; data source =" y computadora
Params = params & "; user id =" & userid
Params = params & "; contraseña =" y contraseña
Params = params & "; catálogo inicial =" & db
Establecer conn = server.createObject ("ADODB.Connection")
Conn.open Params
Set getsqlServerConnection = Conn
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getMdBrecordSet (nombre de archivo, fuente)
Establezca getMdBrecordSet = getMdbrs (nombre de archivo, fuente, 2, "")
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getMdBstaticRecordSet (nombre de archivo, fuente)
Establecer getMdBstaticRecordSet = getMdbrs (nombre de archivo, fuente, 3, "")
Función final
'-------------------------------------------------------------------------------------------------------------------------
La función se obtiene de MDBRecordSet (nombre de archivo, fuente, contraseña)
Establecer GetSeCedMDBRecordSet = getMDBRS (nombre de archivo, fuente, 2, contraseña) Función final
'-------------------------------------------------------------------------------------------------------------------------
La función se obtiene de mdbstaticRecordSet (nombre de archivo, fuente, contraseña)
Establecer GetSeCuredMdBstaticRecordSet = getMdbrs (nombre de archivo, fuente, 3, contraseña) Función final
'-------------------------------------------------------------------------------------------------------------------------
Function getDBFrecordSet (Directorio, SQL)
Establezca getDBFrecordSet = getOrTerrs ("dbf", directorio, sql, 2)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getDbfstaticRecordSet (Directorio, SQL)
Establecer getDbfstaticRecordSet = getOrterrs ("dbf", directorio, sql, 3)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getDbcrecordSet (nombre de archivo, SQL)
Establezca getDBCRecordSet = getOrTerrs ("DBC", nombre de archivo, SQL, 2)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Function getDBCstaticRecordSet (nombre de archivo, SQL)
Establecer getDbcstaticRecordSet = getOrTerrs ("dbc", nombre de archivo, sql, 3)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getExcelRecordSet (nombre de archivo, SQL)
Establezca getExcelRecordSet = getOrterrs ("Excel", nombre de archivo, SQL, 2)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getExcelstaticRecordSet (nombre de archivo, SQL)
Establecer getExcelstaticRecordSet = getOrterrs ("Excel", nombre de archivo, SQL, 3)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getTextrecordSet (directorio, SQL)
Establezca getTextrecordSet = getotherrs ("texto", directorio, sql, 2)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getTextStaticRecordSet (Directory, SQL)
Establecer getTextStaticRecordSet = getOrterrs ("Text", Directory, SQL, 3)
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getSqlServerRecordSet (Conn, fuente)
Dim RS
Establecer rs = server.createObject ("ADODB.Recordset")
Rs. Opreen Source, Conn, 2, 2
Set getsqlServerRecordSet = RS
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getSqlServerstaticRecordSet (Conn, fuente)
Dim RS
Establecer rs = server.createObject ("ADODB.Recordset")
Rs. Opreen Source, Conn, 3, 2
Set getSqlServerStaticRecordSet = RS
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getConnection (param)
Dim CONN
En el currículum de error siguiente
Establecer getConnection = nada
Establecer conn = server.createObject ("ADODB.Connection")
Si err.number <> 0, entonces salga de la función
Conn.open Param
Si err.number <> 0, entonces salga de la función
Establecer getConnection = Conn
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getMDBRS (nombre de archivo, fuente, cursor, contraseña)
Dim Conn, RS
En el currículum de error siguiente
Establecer getmdbrs = nada
Si len (contraseña) = 0 entonces
Establecer conn = getMdbConnection (nombre de archivo)
Demás
Establecer Conn = GetSecuedMDBConnection (nombre de archivo, contraseña)
Final si
Si Conn no es nada, entonces salga de la función
Establecer rs = server.createObject ("ADODB.Recordset")
Si err.number <> 0, entonces salga de la función
Rs. Opreen Source, Conn, cursor, 2
Si err.number <> 0, entonces salga de la función
Establecer getMdbrs = RS
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función GetOrterrs (DataType, Rath, SQL, cursor)
Dim Conn, RS
En el currículum de error siguiente
Establecer getotherrs = nada
Seleccionar el tipo de datos de casos
Caso "DBF"
Establecer conn = getDBFConnection (ruta)
Caso "DBC"
Establecer conn = getDBCConnection (ruta)
Caso "Excel"
Establecer conn = getExcelconnection (ruta)
Caso "texto"
Establecer conn = getTextConnection (ruta)
Final seleccionar
Si Conn no es nada, entonces salga de la función
Establecer rs = server.createObject ("ADODB.Recordset")
Si err.number <> 0, entonces salga de la función
Rs.open SQL, Conn, cursor, 2
Si err.number <> 0, entonces salga de la función
Establecer getotherrs = RS
Función final
'-------------------------------------------------------------------------------------------------------------------------
Función getsqlServerrs (computadora, ID de usuario, contraseña, DB, fuente, cursor)
Dim Conn, RS
En el currículum de error siguiente
Set getsqlServerrs = nada
Establecer Conn = GetsqlServerConnection (computadora, INERSEDID, contraseña, DB)
Si Conn no es nada, entonces salga de la función
Establecer rs = server.createObject ("ADODB.Recordset")
Si err.number <> 0, entonces salga de la función
Rs. Opreen Source, Conn, cursor, 2
Si err.number <> 0, entonces salga de la función
Set getSqlServerrs = RS
Función final
%>
Lo anterior es una introducción detallada al programa de conexión de base de datos Universal. Para obtener más contenido, ¡continúe prestando atención al nuevo canal de tecnología incorrecto!