Banco de Dados com Senha

[LeandroPakus 0]

Pessoal me ajudem.Tenho uma rotina de login que funciona perfeitamente, mas agora quero colocar alguma segurança, então resolvi por senha no banco, mas não consigo acessa o banco então.Esse é o CódigoSub AbreBanco () Dim strConexao strConexao = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath ("bancos/banco.mdb")&";Persist Security Info=False" Set ConnDB = Server.CreateObject ("ADODB.Connection") ConnDB.Open "dsn=ConnDB;pwd=qaz"Qual é o problema??se for o caso, alguem tem uma rotina melhor?AbraçosLeandro

[ska_ska 0]

um exemplo pra access... você naum precisa estipular o usuario, somente a senha... mas esse naum eh usando DSN...

ASP [/tr][tr]

Set bdSite = Nothing

Caminho = Server.MapPath("/bd/bd.mdb")

'---usando o caminho real se preferir... de preferencia antes de sua pasta WWW

'Caminho = "g:\inetpub\domains\domain.com\bd\bd-crystal.mdb"

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

bdSite.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Caminho,"","[senha]"

[/tr]

 

com DSN da pra usar esse aki

ASP [/tr][tr]

Set bdSite = Nothing

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

dsn = "basexxx_mysql"

user = "userxxxx"

pass = "senhaxxx"

bdSite.Open "dsn="& dsn,user,pass

[/tr]

[LeandroPakus 0]

Cara não funcionou!!!Deu esse erro!!Error Type:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xe4 Thread 0x510 DBC 0x1029b64 Jet'./2/conexao.asp, line 30 A programação: Set ConnDB = Nothing Caminho = Server.MapPath("bancos/dinitextil.mdb") Set ConnDB = Server.CreateObject("ADODB.Connection") ConnDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Caminho,"","[1234]"

[ska_ska 0]

hauahu.. tira esses colchetes dai... heheeh e veja se a base existe no local indicado... (variável caminho)... tente assim...

Caminho = Server.MapPath("/bancos/dinitextil.mdb") response.write "ver o diretorio "& caminhoresponse.flush()ConnDB.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Caminho,"","1234"

e tb veja se a base está nesse diretorio mesmo...

[LeandroPakus 0]

ver o diretorio c:\inetpub\wwwroot\bancos\dinitextil.mdb Microsoft VBScript runtime error '800a01a8' Object required: '' /2/conexao.asp, line 44 Deu esse erro aí!!!