Conectanto banco de dados

[Cargomes 0]

Gostaria de saber como conectar o banco de dados na internet, no servidor local está rodando certo e quando jogo na net da erro.

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key 'Temporary (volatile) Jet DSN for process 0xae4 Thread 0x1654 DBC 0x2ce8324 Jet'.

 

/della/8_bdados_em_asp/adiciona2.asp, line 58

 

que alteração tenho que fazer ?

 

<%

Else

If Not IsEmpty(Request.Form("submit")) AND Trim(Request.Form("NOME")) <> "" AND Trim(Request.Form("RGM")) <> "" AND Trim(Request.Form("NOTA")) <> "" AND Trim(Request.Form("NUMERO")) <> "" AND Trim(Request.Form("DATA")) <> "" Then

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

Conexao.Open "DBQ=C:\inetpub\wwwroot\8_bdados_em_asp\db_folder\db_file.mdb;Driver={Microsoft Access Driver (*.mdb)};"

ComandoSQL = "INSERT INTO db_table (NOME, RGM, NOTA, NUMERO, DATA)"

ComandoSQL = ComandoSQL & " VALUES ("

ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("NOME")) & "',"

ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("RGM")) & ","

ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("NOTA")) & ","

ComandoSQL = ComandoSQL & "" & Server.HTMLEncode(Request.FORM("NUMERO")) & ","

ComandoSQL = ComandoSQL & "'" & Server.HTMLEncode(Request.FORM("DATA")) & "')"

Set bd = Conexao.Execute(ComandoSQL)

Conexao.Close

Set bd = Nothing

Set Conexao = Nothing

%>

 

 

Grato !!

[Maux 0]

cara eu uso um arquivo pra tudo q eu faço... esse codigo nunca deu problema comigo...este aqui é para quando é sem DNS:______________________________________________________________<%' Conecta-se ao Banco de Dadosurl_conexao = Server.MapPath("bancodedados.mdb")set conexao = Server.CreateObject("ADODB.Connection")conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao %>_______________________________________________________________no caso acima você vai usar a variavel conexao qndo for acessar o bancoeste aqui é com DNS:_______________________________________________________________<%on error resume nextdim connstrdim connconnstr = "DSN=NOME DO DNS AQUI;"Set conn = Server.CreateObject("ADODB.Connection")conn.Open connstrerrormsg="Erro ao tentar acessar o banco de dados"if err.number<>0 thenresponse.write errormsgresponse.endend if%>_________________________________________________________________neste caso você usa a variavel conn para acessar o banco de dados....para acessar uma tabela eu uso o seguinte:________________________________________________________________set rs = server.createobject("adodb.recordset")sql = "Select * from NomeDaTabela"rs.open sql,conexao -------------- ou --------------- rs.open sql,conn________________________________________________________________para armazenar:________________________________________________________________set rs = server.createobject("adodb.recordset")sql = "insert into NomeDaTablea (Campos,Da,Tabela) values ('"&variavel&"','"&que&"','"&contemovalor&"')"rs.open sql,conexao ----------------- ou -------------------- rs.open sql,conn________________________________________________________________tem mais instruções... caso precise poste ai.... tente adaptar isso de acordo com sua necessidade...flwespero ter ajudado.....abraços

[Filipe_Moraes 15]

Boa explicação, mas para ser mais preciso (tbm tive este problema recentemente), tens que colocar aquele codigo que o Maux deu, com DNS e colocar a database na mesma pasta que os templates, pk o teu codigo esta buscando a base de dados no servidor local (localhost, o seu pc) e não a do servidor, por isso da erro!!!

[Cargomes 0]

Boa explicação, mas para ser mais preciso (tbm tive este problema recentemente), tens que colocar aquele codigo que o Maux deu, com DNS e colocar a database na mesma pasta que os templates, pk o teu codigo esta buscando a base de dados no servidor local (localhost, o seu pc) e não a do servidor, por isso da erro!!!

Valeu Galera, muito obrigado !!!