Encapsule o código de conexão do banco de dados em uma função e chame essa função quando a leitura for necessária. A seguir está o código de conexão SQL:
Copie o código do código da seguinte forma:
Função Open_conn()
dim Conn,Strconn
definir Conn=server.createobject(adodb.connection)
Strconn = Provedor = Sqloledb; ID do usuário = conta de login do banco de dados; Senha = senha de login do banco de dados = nome do banco de dados;
Conn.abrir Strconn
definir Open_conn=Conn
Se errar então
err.Limpar
Conn.close:set Conn=nada
Response.Write Desculpe, erro de conexão com o banco de dados.
Resposta.Fim
Terminar se
Função final
Método de chamada:
substitua o original
Copie o código do código da seguinte forma:
rs.open sql,conn
Mudar para
Copie o código do código da seguinte forma:
rs.opensql,Open_conn()
A seguir está o código de conexão ACCESS:
Copie o código do código da seguinte forma:
Função Open_conn()
dim Dbpath,Conn
Dbpath=server.MapPath (caminho do banco de dados)
definir Conn=server.createObject(ADODB.connection)
Fonte de dados Conn.open=&dbpath&;provider=microsoft.Jet.OLEDB.4.0;
definir Open_conn=Conn
Se errar então
err.Limpar
Conn.close:set Conn=nada
Response.Write Desculpe, erro de conexão com o banco de dados.
Resposta.Fim
Terminar se
Função final
Método de chamada:
substitua o original
Copie o código do código da seguinte forma:
rs.open sql,conn
Mudar para
Copie o código do código da seguinte forma:
rs.opensql,Open_conn()