Conexão com banco de dados

[faezinha 0]

Oi gente,to com um problema. Coloquei um site no ar , uma pagina loginx.asp e nessa pagina chama o banco de dados teste.mdb só que quando mando logar dá essa mensagem óh: ADODB.Connection error '800a0e7a' Provider cannot be found. It may not be properly installed. /loginx.asp, line 19 sei que é na linha de abre cone~xão com o banco de dados e está assim:con.Open ("Provider = Microsoft.Jet.OLEDB.3.51;Data Source = caminho do banco........\teste.mdb")oque poderia ser?Alguém pode me ajudar?Obrigada!Abraços

[chacalAM 0]

manda o código da página login.asp

[faezinha 0]

AI ESTA o CODIGO QUER PEDIU.TEM MAIS UMA PAGINA A DE ARQUIVOS PERMITIDOS. QUER QUE EU MANDE?<%@ Language=VBScript %><% dim con dim rsLogin dim rsSenha dim rsCodUsuario dim strSql dim login dim senha dim codUsuario set con = CreateObject("ADODB.connection") set rsLogin = CreateObject("ADODB.recordset") set rsSenha = CreateObject("ADODB.recordset") set rsCodUsuario = CreateObject("ADODB.recordset") set login = Request.Form ("login") set senha = Request.Form ("senha") con.Open ("Provider = Microsoft.Jet.OLEDB.3.51;Data Source = CAMINHO........\db\teste.mdb") strSql = "SELECT LoginUsuario FROM tbl_Usuarios " & _ "WHERE (((tbl_Usuarios.LoginUsuario)='"& login &"'))" rsLogin.Open strSql, con if rsLogin.EOF then rsLogin.Close con.Close set con = nothing set rsLogin = nothing Response.Redirect "download.asp?Erro=1" end if strSql = "SELECT tbl_Usuarios.LoginUsuario, tbl_Usuarios.SenhaUsuario FROM tbl_Usuarios " &_ "WHERE (((tbl_Usuarios.LoginUsuario)='"& login &"') AND ((tbl_Usuarios.SenhaUsuario)='"& senha &"'))" rsSenha.Open strSql, con if rsSenha.EOF then rsLogin.Close rsSenha.Close con.Close set con = nothing set rsLogin = nothing set rsSenha = nothing Response.Redirect "download.asp?Erro=2" end if strSql = "SELECT tbl_Usuarios.LoginUsuario, tbl_Usuarios.SenhaUsuario, tbl_Usuarios.CodUsuario " &_ "FROM tbl_Usuarios WHERE (((tbl_Usuarios.LoginUsuario)='"& login &"') AND " &_ "((tbl_Usuarios.SenhaUsuario)='"& senha &"'));" rsCodUsuario.Open strSql, con codUsuario = rsCodUsuario("CodUsuario") rsLogin.Close rsSenha.Close rsCodUsuario.Close con.Close set con = nothing set rsLogin = nothing set rsSenha = nothing set rsCodUsuario = nothing Response.Redirect "arquivospermitidos.asp?CodUs="& codUsuario %>

[chacalAM 0]

tente:con.Open ("driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("CAMINHO........\db\teste.mdb"))

[faezinha 0]

Colega eu fiz oque você faloue eolha oque ele respondeu,óh:Server.MapPath() error 'ASP 0172 : 80004005' Invalid Path /loginx.asp, line 20 The Path parameter for the MapPath method must be a virtual path. A physical path was usedsabe oque pode ser?Ah e obrigada pelo codigo que enviou>Fico no aguardo, valeu!

[chacalAM 0]

qual a linha 20?manda a 19,20,21

[chacalAM 0]

você ta rodando o sistema no server(net)?

[faezinha 0]

Oi chacal. A linha é essa con.Open ("driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("caminho.................\db\teste.mdb ")) to testando no servidor. Tá no ar já.

[chacalAM 0]

tente deixar o mdb junto com a página ASPcon.Open ("driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("teste.mdb "))

[faezinha 0]

OOObbbaaaaa, Chacal, funcionou valeu!!! Valeu mesmo obrigada pela atenção e tempo disperdiçados, hehehe.Qualquer coisa precisando pra alguma coisa tamos ae!Brigadão denovo!Abração!

[chacalAM 0]

beleza faezinha...!!! B)