Como Criar Função Para Conexão Com Bd Access

[Marcos Remar]

Olá pessoal

eu gostaria da ajuda de vocês para criar uma função para fazer conexão com um bd access. Como eu tenho que abrir conexões toda hora isso ajudaria bastante a economizar linhas de código. Tem um tópico no forum sobre isso mas eu não entendi muito bem, e os exemplos eram em sql server. Use como exemplo esse código abaixo criando uma conexão usando include.

<%

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("comunidade.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="

set bd=Server.CreateObject("ADODB.recordset")

SQL = "SELECT nome "

SQL = SQL & " FROM perfil"

bd.Open SQL, conexao

If Not bd.EOF Then

Response.write "Nome: " & bd.Fields("nome")

End If

bd.Close

Set bd = Nothing

conexao.Close

Set conexao = Nothing

%>

[bareta]

crie uma include com a função da coenxão

veja http://www.itmnetworks.com.br/suporte/conectionstrings.php

ai tem strings para diversos tipod de bancos

[Marcos Remar]

crie uma include com a função da coenxão

veja http://www.itmnetworks.com.br/suporte/conectionstrings.php

ai tem strings para diversos tipod de bancos

Não é isso não, é tipo uma função mesmo, botar tudo dentro de uma sub ou function e depois chamar so a função

[bareta]

<%
function abre_conexao()

'ai poe a conn aqui

end function

function fecha()

conn.close
set conn=nothing

end function
%>

ai depois é so chmar

<%=abre_conexao%>
<%=fecha%>

[Marcos Remar]

<%
function abre_conexao()

'ai poe a conn aqui

end function

function fecha()

conn.close
set conn=nothing

end function
%>

ai depois é so chmar

<%=abre_conexao%>
<%=fecha%>

Dá uma olhada no codigo, ainda não pego.

Teste.asp

<!--#include file="config.asp"-->

<%

abre_conexao()

SQL = "SELECT nome "

SQL = SQL & " FROM perfil"

bd.Open SQL, conexao

If Not bd.EOF Then

Response.write "Nome: " & bd.Fields("nome")

End If

fecha()

%>

E a outra que é o include.

Config.asp

<%

Sub abre_conexao()

Set conexao = Server.CreateObject("ADODB.Connection")

conexao.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb") & ";Persist Security Info=False;Jet OLEDB:Database Password="

set bd=Server.CreateObject("ADODB.recordset")

End Sub

Sub fecha()

conexao.close

set conexao=nothing

End Sub

%>