Conexão com o banco de dados

[simas 0]

Olá pessoal, estou com um probleminha. A conexão com o banco de dados funciona normalmente quando rodo no meu computador. Mas não consigo funcioná-lo quando jogo na internet.

Eu fiz a conexão com um banco de dados do access 2000 através do dreamweaver mx.

 

Este é o código que o progarama produz:

<%

' FileName="Connection_ado_conn_string.htm"

' Type="ADO"

' DesigntimeType="ADO"

' HTTP="false"

' Catalog=""

' Schema=""

<%

' FileName="Connection_ado_conn_string.htm"

' Type="ADO"

' DesigntimeType="ADO"

' HTTP="false"

' Catalog=""

' Schema=""

Dim MM_cadastro_STRING

MM_cadastro_STRING = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ= c:\inetpub\wwwroot\academia\dados\cadastro.mdb"

%>

 

O servidor onde está o meu site dá este exemplo para conectar com o banco de dados:

 

<%

 

Dim db

 

db = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\hshome\seulogin\caminhoparaobanco\db1.mdb"

 

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

conexao.open db

 

%>

 

 

<%

 

conexao.close

Set conexao = Nothing

 

%>

 

Olhem o que eu fiz. Apaguei a partir da frase Dim MM_cadastro_STRING...

E coloquei o código do servidor, mas dá erro eu entro na página que é um formulário, quando clico em submit dá pág de erro.

 

Na página onde se encontra o formulário eu tenho que mudar alguma coisa, eu não mudei nada, apenas na pág onde se encontra o string de conexão.

 

Alguém por favor pode me ajudar.

 

Grato. :D

[a.crow 0]

evite usar caminho físico, use uma conexão mais simples com server.mappath

[simas 0]

Eu consegui resolver o problema acima com ajuda do Mori. Mas agora tenho outro.

 

O caso é o seguinte Eu tenho um script que é um guestbook, só consigo funcionar no dremweaver mx.

Quando jogo para a Internet não funciona dá o seguinte 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 0x5fc Thread 0x9d4 DBC 0x10e19024 Jet'.

 

/mural/conexao_mural.asp, line 11

 

O scripit que eu estou usando na conexão com o banco é o seguinte:

 

<%

'----------------------------------------------------------------------

Dim mural_conn, RS

'----------------------------------------------------------------------

'Abrir Mural

'----------------------------------------------------------------------

Sub AbrirMural()

 

mural_path = "DBQ=" & Server.MapPath("Mural.mdb")

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

mural_conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & mural_path

End Sub

'----------------------------------------------------------------------

'Fechar Mural

'----------------------------------------------------------------------

Sub FecharMural()

 

if mural_conn.state = 1 then

mural_conn.Close

Set mural_conn = Nothing

end if

 

End Sub

'----------------------------------------------------------------------

'Criar RecordSet

'----------------------------------------------------------------------

Sub OpenRS()

 

Set RS = Server.CreateObject("ADODB.RecordSet")

RS.Open argumento,mural_conn,3,3

 

End Sub

'----------------------------------------------------------------------

'Fechar RecordSet

'----------------------------------------------------------------------

Sub CloseRS()

 

RS.Close

Set RS = Nothing

End Sub

'----------------------------------------------------------------------

%>

 

A linha 11 é a que esta em negito e itálico.

Grato pela ajuda de todos. Realmente estou precisando deta ajuda.

[simas 0]

Eu consegui resolver o problema acima com ajuda do Mori. Mas agora tenho outro.

 

O caso é o seguinte Eu tenho um script que é um guestbook, só consigo funcionar no dremweaver mx.

Quando jogo para a Internet não funciona dá o seguinte 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 0x5fc Thread 0x9d4 DBC 0x10e19024 Jet'.

 

/mural/conexao_mural.asp, line 11

 

O scripit que eu estou usando na conexão com o banco é o seguinte:

 

<%

'----------------------------------------------------------------------

Dim mural_conn, RS

'----------------------------------------------------------------------

'Abrir Mural

'----------------------------------------------------------------------

Sub AbrirMural()

 

mural_path = "DBQ=" & Server.MapPath("Mural.mdb")

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

mural_conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & mural_path

End Sub

'----------------------------------------------------------------------

'Fechar Mural

'----------------------------------------------------------------------

Sub FecharMural()

 

if mural_conn.state = 1 then

mural_conn.Close

Set mural_conn = Nothing

end if

 

End Sub

'----------------------------------------------------------------------

'Criar RecordSet

'----------------------------------------------------------------------

Sub OpenRS()

 

Set RS = Server.CreateObject("ADODB.RecordSet")

RS.Open argumento,mural_conn,3,3

 

End Sub

'----------------------------------------------------------------------

'Fechar RecordSet

'----------------------------------------------------------------------

Sub CloseRS()

 

RS.Close

Set RS = Nothing

End Sub

'----------------------------------------------------------------------

%>

 

A linha 11 é a que esta em negito e itálico.

Grato pela ajuda de todos. Realmente estou precisando deta ajuda.

[a.crow 0]

verifique o endereço do banco.