Клиент Universal Database изучает программу Universal Database Connection. Можно сказать, что этот клиент базы данных является универсальным клиентом базы данных, который поддерживает покрытие базы данных и все базы данных, которые мы можем увидеть. Итак, вы знаете программу подключения к базе данных Universal? Позвольте редактору нового технологического канала Foot, чтобы узнать больше об этом!
Введение: подключение различных типов баз данных и функций для операций базы данных
Можно сказать, что следующая программа является универсальной программой подключения к базе данных, которая может подключаться почти к всем базам данных MS. Пожалуйста, используйте его для исследования сами (эта программа представлена в книге «Учебник по производству веб -страницы ASP» - хорошая книга):
<%
'-------------------------------------------------------------------------------------------------------------------------
Функция getMdbConnection (имя файла)
DIM Provider, DBPath
Provider = "Provider = microsoft.jet.oledb.4.0;"
Dbpath = "source =" & server.mappath (имя файла)
Установить getMdbConnection = getConnection (поставщик и dbpath)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getSecuredmdbconnection (имя файла, пароль)
DIM Provider, DBPath
Provider = "Provider = microsoft.jet.oledb.4.0;"
Dbpath = "source =" & server.mappath (имя файла)
SET GETECUNDMDBConnection = GetConnection (Provider & DBPATH & "; Jet OLEDB: PARSHASE PARSHASE =" & Password) End Function
'-------------------------------------------------------------------------------------------------------------------------
Функция getDbcConnection (имя файла)
Dim Driver, Sourcetype, DBPath
Driver = "Driver = {Microsoft Visual Foxpro Driver};"
SourceType = "sourceType = dbc;"
Dbpath = "SourceDb =" & server.mappath (имя файла)
Установить getDbcConnection = getConnection (Driver & SourceType & DBPath)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getDbfConnection (каталог)
Dim Driver, Sourcetype, DBPath
Driver = "Driver = {Microsoft Visual Foxpro Driver};"
SourceType = "sourceType = dbf;"
Dbpath = "SourceDb =" & server.mappath (каталог)
Установить getDbfConnection = getConnection (Driver & SourceType & DBPath)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getExcelConnection (имя файла)
Dim Driver, DBPath
Driver = "Driver = {Microsoft Excel Driver (*.xls)};"
Dbpath = "dbq =" & server.mappath (имя файла)
Установить getExcelconnection = getConnection (Driver & "readonly = 0;" & dbpath) конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getTextConnection (каталог)
Dim Driver, DBPath
Driver = "Driver = {Microsoft Text Driver ( *.txt; *.csv)};"
Dbpath = "dbq =" & server.mappath (каталог)
Установить getTextConnection = GetConnection (Driver & DBPath)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getSqlServerConnection (компьютер, UserId, пароль, DB)
Dim Params, Conn
Set getSqlServerConnection = ничего
Params = "Provider = sqlOLEDB.1"
Params = params & "; data source =" & computer
Params = params & "; user id =" & userid
Params = params & "; password =" & password
Params = params & "; начальный каталог =" & db
Установить conn = server.createObject ("adodb.connection")
Conn.Open Params
Set getSqlServerConnection = conn
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getMdBrecordSet (имя файла, источник)
Установить getmdbrecordset = getmdbrs (имя файла, источник, 2, "")
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getMdbstaticRecordset (имя файла, источник)
Установить getmdbstaticRecordset = getMdbrs (имя файла, источник, 3, "")
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getSecuredmdbrecordset (имя файла, источник, пароль)
SET GETSECUEDMDBRECORDSET = GETMDBRS (имя файла, источник, 2, пароль) Функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getSecuredmdbstaticRecordset (имя файла, источник, пароль)
SET GETSECUEDMDBStaticRecordset = getMdbrs (имя файла, источник, 3, пароль) Функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getDbfrecordset (каталог, SQL)
SET GETDBFRECORDSET = GETOTHERRS ("DBF", Directory, SQL, 2)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getDbfstaticRecordset (каталог, SQL)
Установить getDbfstaticRecordset = getOtherrs ("dbf", каталог, SQL, 3)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getDbcRecordSet (имя файла, SQL)
Установить getDbcRecordSet = getOtherrs ("dbc", имя файла, SQL, 2)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getDbcStaticRecordSet (имя файла, SQL)
Установить getDbcStaticRecordset = getOtherrs ("dbc", имя файла, SQL, 3)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getExcelRecordSet (имя файла, SQL)
Установить getExcelrecordset = getOtherrs ("Excel", имя файла, SQL, 2)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getExcelstaticRecordset (имя файла, SQL)
Установить getExcelstaticRecordset = getOtherrs ("Excel", имя файла, SQL, 3)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getTexTrecordSet (каталог, SQL)
Установить getTexTrecordset = getOtherrs ("text", каталог, SQL, 2)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getTextStaticRecordSet (каталог, SQL)
Установить getTextStaticRecordset = getOtherrs ("Text", Directory, SQL, 3)
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция GetSqlServerRecordSet (conn, Source)
Dim Rs
Установить rs = server.createObject ("adodb.recordset")
Rs.Open Source, Conn, 2, 2
SET GETSQLSERVERRECORDSET = RS
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция GetSqlServerStaticRecordSet (conn, Source)
Dim Rs
Установить rs = server.createObject ("adodb.recordset")
Rs.Open Source, Conn, 3, 2
SET GETSQLSERVERSTATICRECORDSET = RS
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getConnection (param)
Dim Conn
При ошибке резюме следующим
Установить GetConnection = ничего
Установить conn = server.createObject ("adodb.connection")
Если err.number <> 0, то выход функции
Conn.Open Param
Если err.number <> 0, то выход функции
Установить getConnection = conn
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getMdbrs (имя файла, источник, курсор, пароль)
Dim Conn, Rs
При ошибке резюме следующим
Установить getmdbrs = ничего
Если len (пароль) = 0, тогда
Установить conn = getMdbconnection (имя файла)
Еще
Установить conn = getSecuredMdbConnection (имя файла, пароль)
Конец, если
Если Conn - ничего, то функция выхода
Установить rs = server.createObject ("adodb.recordset")
Если err.number <> 0, то выход функции
Rs.Open Source, Conn, Cursor, 2
Если err.number <> 0, то выход функции
Установить getmdbrs = rs
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция getOtherrs (DataType, Path, SQL, курсор)
Dim Conn, Rs
При ошибке резюме следующим
Установить getOtherrs = ничего
Выберите DATATYPE CASE
Дело "DBF"
Установить conn = getDbfConnection (path)
Дело "DBC"
Установить conn = getDbcConnection (path)
Дело "Excel"
Установить conn = getExcelConnection (Path)
Случай "текст"
Установить conn = getTextConnection (PATH)
Конец выбора
Если Conn - ничего, то функция выхода
Установить rs = server.createObject ("adodb.recordset")
Если err.number <> 0, то выход функции
Rs.open SQL, Conn, Cursor, 2
Если err.number <> 0, то выход функции
Установить getOtherrs = rs
Конечная функция
'-------------------------------------------------------------------------------------------------------------------------
Функция GetSqlServerrs (компьютер, иид пользователя, пароль, DB, источник, курсор)
Dim Conn, Rs
При ошибке резюме следующим
SET GETSQLSERVERRS = ничего
Установите conn = getSqlServerConnection (компьютер, иид пользователя, пароль, DB)
Если Conn - ничего, то функция выхода
Установить rs = server.createObject ("adodb.recordset")
Если err.number <> 0, то выход функции
Rs.Open Source, Conn, Cursor, 2
Если err.number <> 0, то выход функции
SET GETSQLSERVERRS = RS
Конечная функция
%>
Выше приведено подробное введение в программу Universal Database Connection. Для получения дополнительного контента, пожалуйста, продолжайте обращать внимание на неправильный новый канал технологии!