Senha No Bd

[pacokaca]

Galera.. vo colocar minha conexao inteira aqui pra ver se vocês conseguem me ajudar q eu num consigo descobri onde ta o erro

db=Server.MapPath("cadastro.mdb")

Set con = Server.CreateObject( "adodb.Connection" )

con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=cadastro.mdb;Uid=Admin;Pwd=testando;"

set rs=con.execute("select * from cadastros")

Detalhe qeu num sei u q é esse UID ai.. porque no access num tem usuario.. só senha..

e o erro ta aqui:

Tipo de erro:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)

[Microsoft][Driver ODBC para Microsoft Access]Erro geral Não é possível abrir a chave 'Temporary (volatile) Jet DSN for process 0xd3c Thread 0xe5c DBC 0x1155e5c Jet' do Registro.

/login.asp, line 8

Obrigado desde já pra quem psosa me ajudar..

[pacokaca]

aew galer.. só pra subir..por favor alguém tenta me ajuda ai.. ta fod descobri aqui

[felipefrancesco]

O erro dá na conexão ou na consulta ?

[ursolouco]

Experimenta aí..

db = server.mappath("cadastro.mdb")
strConn = "Provider = microsoft.jet.oledb.4.0; data source=" & db
set conn = server.createobject("adodb.connection")
conn.open strconn)
set rs = server.createobject("adodb.recordset")
csql = "select * from cadastros")
set rs = conn.execute(csql)

Abraços!!!

[pacokaca]

Galera.. aproveitei umas coisas q cs postaram ai.. com umas coisas q achei em outros posts.. e cheguei nesse codigo

db=Server.Mappath("cadastro.mdb")

strConn = ";Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password= testando ;"

set conn = server.createobject("adodb.connection")

conn.open (strconn)

set rs = server.createobject("adodb.recordset")

csql = "select * from cadastros"

set rs = conn.execute(csql)

parece q ta melhor.. porque agora o erro q da.. é de autenticação.. ( a senha eu já conferi.. esta certa..) seis tem ideia do q pode ser?

eu obserei q colocando um arquivo q não existe no lugar de cadastro.mdb ele da o mesmo erro.. achei estranhu.. valeu ai desde já

[ursolouco]

Galera.. aproveitei umas coisas q cs postaram ai.. com umas coisas q achei em outros posts.. e cheguei nesse codigo

db=Server.Mappath("cadastro.mdb")

strConn = ";Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password= testando ;"

set conn = server.createobject("adodb.connection")

conn.open (strconn)

set rs = server.createobject("adodb.recordset")

csql = "select * from cadastros"

set rs = conn.execute(csql)

parece q ta melhor.. porque agora o erro q da.. é de autenticação.. ( a senha eu já conferi.. esta certa..) seis tem ideia do q pode ser?

eu obserei q colocando um arquivo q não existe no lugar de cadastro.mdb ele da o mesmo erro.. achei estranhu.. valeu ai desde já

Senti um certo desprezo pela minha humilde ajuda...

mas tudo bem...

se é código que você quer.... código você vai ter... só não sei se vai dar certo

db=Server.Mappath("cadastro.mdb")
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db & ";User Id=Admin;Password=testando"
set conn = server.createobject("adodb.connection")
conn.open (strconn)
set rs = server.createobject("adodb.recordset")
csql = "select * from cadastros"
set rs = conn.execute(csql)

[pacokaca]

aff urso.. nada haver..

eu tinha ateh te agradecido aqui!

eu tinha psotado te agradecendo e teitei usar sua string.. só q eu num achei lugar pra senha.. ai inventei ali e num deu certo.. ehaiuhea.. ai eu peguei uns pedaco de outro tópico.. ai eu ia postar de novo aqui falando do meu avanç.. só q eu resolvi editar pra ng reclamar.. e apaguei o agreecimento foi mal mesmo cara..

vo tenta usa essa ai..

mas tipo.. esse UID ai precisa coloca mesmo? eu nem sabia q tinha isso..

Editando::

Ae urso.. serio mesmo.. num leva a mal não.. eu num desprezei tua ajuda não.. to ateh agora tentandu com seus codigo aqui...

eu taav tentnadu deu esse erro.. já mudou alguma coisa.. ehaheha

Tipo de erro:

Microsoft JET Database Engine (0x80040E4D)

Não é possível iniciar o aplicativo. O arquivo de informações do grupo de trabalho está faltando ou foi aberto em modo exclusivo por um outro usuário.

/login.asp, line 10

a linha 10 é a do coon.open (strconn)

bom.. achu q já to bem mais longe duq quando comecei.. se pah é algum errinhu de digitação agor.a. vo tenta procura.. se alguém souber onde ta o erro.. valeu desde já..

e urso.. serio mesmo.. valeu ai car.a.

[ursolouco]

brother!!!

você já viu as permissões de acesso so banco de dados... ou uma coisinha bem boba...

você não esta com o banco de dados aberto durante o acesso á pagina ?

[pacokaca]

vo ver isso de permissões de acesso.. mas elas só funcionam com senha? porque antes de eu por a senha funcionava normalmente.. e eu num to com ele aberto não.. eahhea eu cometia muito esse erro quando eu mechia com Vb.. aprendi.. eahiuehuhea.. u q eu já quebrei a cabeça por estar com o banco aberto.. valeus ai.. vo ve isso das permissões.. mas achu q num é não

[ursolouco]

Bom a senha é para garantir mais segurança..... mas nada relacionado de só funcionar com senha...

[pacokaca]

huum.. entaum antes funcionava.. antes da senha.. entaum achu q num tem problema com grupos.permissoes e tla.. e eu olhei la.. em permissoes ta tudo marcado

e em grupos

tem Utilizador(es) e Administrador(es)

valeu ai cara desde já

EDIT:

ow.. tava testando uma coisa.. qque rnome q eu colocar no lugar de cadastro.mdb..

mesmo q num exist.a. ele da o mesmo erro.. isso é normal?

[ursolouco]

huum.. entaum antes funcionava.. antes da senha.. entaum achu q num tem problema com grupos.permissoes e tla.. e eu olhei la.. em permissoes ta tudo marcado

e em grupos

tem Utilizador(es) e Administrador(es)

valeu ai cara desde já

EDIT:

ow.. tava testando uma coisa.. qque rnome q eu colocar no lugar de cadastro.mdb..

mesmo q num exist.a. ele da o mesmo erro.. isso é normal?

Há mais de 1 aplicação conectada no banco de dados ?

[pacokaca]

huum.. num tinha pensado nissu.. mas achu q não..

a não ser q o dreamweaver aberto na pagina q eu to fazendu conte..

oh eu vou dar uma reiniciiado no pc aqui

só falta tar aberto de outro pc na red.e. sei la.. meu pai é meio loko.. eahieuhea vo reinicia aqui.. ai eu volto pra tentar.. mas achu dificil ele estar aberto em algum lugar..

[ursolouco]

huum.. num tinha pensado nissu.. mas achu q não..

a não ser q o dreamweaver aberto na pagina q eu to fazendu conte..

oh eu vou dar uma reiniciiado no pc aqui

só falta tar aberto de outro pc na red.e. sei la.. meu pai é meio loko.. eahieuhea vo reinicia aqui.. ai eu volto pra tentar.. mas achu dificil ele estar aberto em algum lugar..

Acredito que sim... mas se for no Server. Deveria funcionar normalmente.... poste seu código inteiro aí... q dou um olhada...

OBS: faça isso, até as 14:00

[pacokaca]

Cara.. eu ateh criei outro banco.. com senha e tal.. pra ver se era ess eo problema.. e num era.. sera q é algo errado no meu access? num sei.. porque antes de eu por senha funcionava tudo normalmente..

bom.. como você pediu.. vou colar o codigo inteiro aqui.. valeuuuu mesmo cara..

<%@Language=VBScript%>

<%response.buffer="true"%>

<%

vlogin = request.form("login")

vsenha = request.form("senha")

db=Server.Mappath("cadastro.mdb")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db & ";User Id=Admin;Password=teste"

set conn = server.createobject("adodb.connection")

conn.open (strconn)

set rs = server.createobject("adodb.recordset")

csql = "select * from cadastros"

set rs = conn.execute(csql)

dim verify

verify = false

rs.movefirst

do while verify = false

if (lcase(vlogin) = rs.fields("login")) and (lcase(vsenha) = rs.fields("senha")) then

verify=true

session("logadonogremio")="sim"

response.cookies("Gremio")("Login") = vlogin

response.cookies("Gremio")("Senha") = vsenha

response.redirect "album.asp"

exit do

else

verify = false

rs.movenext

if rs.eof then

response.write"Senha ou Login inválido! Volte e tente novamente."

exit do

end if

end if

loop

%>

eu achu q ele num ta achando nenhum banco de dados.. deve ter algume rro no endereço do banco e pa.. só q eu num manjo o codigo pra arrumar.. eheheh

[pacokaca]

Urso.. eu consegui arrumar.. era no caminho para o BD mesmo.. valeu cara.. vo cola pra você a parte q eu mudei pra você ver.. valeu a ajuda ai..

db=Server.Mappath("banco.mdb")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& db &";Jet OLEDB:Database Password=teste;"