Инкапсулируйте код подключения к базе данных в функции и вызывайте эту функцию, когда требуется чтение. Ниже приведен код подключения SQL:
Скопируйте код кода следующим образом:
Функция Open_conn()
дим Конн,Стрконн
установите Conn=server.createobject(adodb.connection)
Strconn = Provider = Sqloledb; идентификатор пользователя = учетная запись для входа в базу данных; пароль = пароль для входа в базу данных; исходный каталог = имя базы данных;
Conn.open Strconn
установите Open_conn=Conn
Если Ошибка Тогда
Ошиб.Очистить
Conn.close:set Conn=ничего
Ответ.Написать Извините, ошибка подключения к базе данных.
Ответ.Конец
Конец, если
Конечная функция
Метод вызова:
заменить оригинал
Скопируйте код кода следующим образом:
RS.open SQL, подключение
Изменить на
Скопируйте код кода следующим образом:
rs.open sql, Open_conn()
Ниже приведен код подключения ACCESS:
Скопируйте код кода следующим образом:
Функция Open_conn()
дим Дбпат, Коннектикут
Dbpath=server.MapPath (путь к базе данных)
установите Conn=server.createObject(ADODB.connection)
Conn.open data source=&dbpath&;provider=microsoft.Jet.OLEDB.4.0;
установите Open_conn=Conn
Если Ошибка Тогда
Ошиб.Очистить
Conn.close:set Conn=ничего
Ответ.Написать Извините, ошибка подключения к базе данных.
Ответ.Конец
Конец, если
Конечная функция
Метод вызова:
заменить оригинал
Скопируйте код кода следующим образом:
RS.open SQL, подключение
Изменить на
Скопируйте код кода следующим образом:
rs.open sql, Open_conn()