[Resolvido] Caminho (Path) para fazer conexão com BD na Locaweb

[Douglas Riu 0]

Bom dia galera, precisava de uma ajuda urgente.. tenho um site em ASP para resolver um pepino, porém eu

conheço muito pouco da linguagem, aprendi a algum tempo e trabalho com PHP. Seguinte, transferimos o site para

a hospedagem da Locaweb e agora preciso mudar o caminho do BD no código, porém pelo que entendi, o arquivo *mdb

deve ficar dentro da pasta Dados, no servidor da locaweb enquanto o site fica na pasta Web.

Está retornando este erro:

Microsoft JET Database Engine error '80004005'

 

'C:\Domains\sagge.com.br\Dados\sagge.mdb' is not a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.

 

/library/conn.asp, line 10

 

Creio que o erro é no caminho que indica o banco, certo ? Alguem poderia me ajudar em qual o caminho exato para indicar ?

 

Imagino que o erro esteja apenas nesta linha de codigo:

 

ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Domains\sagge.com.br\Dados\sagge.mdb"

 

Segue o codigo da pagina:

 

<%
 Dim Conn, ConnString, nomeRS, sql, RS
 '******* String de conexão a ser modificada para cada site ****************
' LOCAWEB
 ConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Domains\sagge.com.br\Dados\sagge.mdb"
 
 '******* Conexão com o BD *************************************************
 Set Conn = CreateObject("ADODB.Connection")
 Conn.Open ConnString
 
 '**************************************************************************
 '****	Função para criar RecordSet			  *************************
 '****	nomeRS = string com o nome do recordset	***********************
 '****	sql  = string sql		*************************
 '****	Para leitura apenas.		   *************************
 '**************************************************************************
 Sub AbreRS(nomeRS,sql)
  If nomeRS="" Then nomeRS="RS"
  StrExec = "Set "&nomeRS&" = CreateObject(""ADODB.RecordSet""):"&_
  nomeRS&".CursorLocation = 3:"&_
  nomeRS&".Open """ & sql & """,Conn:"&_ 
  "Set "&nomeRS&".ActiveConnection = Nothing"
  Execute StrExec 
 End Sub
 
 '**************************************************************************
 '****	Função para criar RecordSet			  *************************
 '****	nomeRS = string com o nome do recordset	***********************
 '****	sql  = string sql		*************************
 '****	Recordset atualizavel		   *************************
 '**************************************************************************
 Sub AbreRsConn(nomeRS,sql)
  If nomeRS="" Then nomeRS="RS"
  StrExec = "Set "&nomeRS&" = CreateObject(""ADODB.RecordSet""):"&_
  nomeRS&".LockType = 2:"&_
  nomeRS&".Open """ & sql & """,Conn"
  Execute StrExec 
 End Sub
 
 Function Tratar_texto(texto)
  texto = Replace(texto,"'","''")
  texto = Replace(texto,chr(34),"""")
  Tratar_texto = texto
 End Function
 
 Function Tratar_data(data)
  lcid=Session.LCID
  Session.LCID = 1046
'  data = Year(data)&"-"&Month(data)&"-"&Day(data)
  data = Month(data)&"/"&Day(data)&"/"&Year(data)
  Session.LCID = lcid
  Tratar_data = data
 End Function 
 
 Function Quebra_linha(texto)
  Quebra_linha = Replace(texto,Chr(13),"<BR>")
 End Function
 'para INSERT, UPDATE, DELETE usar:
 'conn.execute sql,,128
 
 Function TestaNulo(texto)
  Dim blankStr
  blankStr = trim("" & texto)
 
  if blankStr = "" then
   TestaNulo = True
  else
   TestaNulo = False
  end if
 end function
 
 Function Nulo_zero(numero)
 If numero = "" OR IsNull(numero) Then
  Nulo_zero = 0
 Else
  Nulo_zero = numero
 End if
 End Function
 
 Function Virgula_ponto(numero)
  Virgula_ponto = Replace(numero,",",".")
 End Function
 
 Function Nulo_vazio(texto)
 If texto = "" OR IsNull(texto) Then
  Nulo_vazio = ""
 Else
  Nulo_vazio = texto
 End if
 End Function
 
 Function Virgula_ponto(numero)
  Virgula_ponto = Replace(numero,",",".")
 End Function
 
 Function GeraSenha(tamanho)
  Set fs = CreateObject("Scripting.FileSystemObject")
  For x = 1 to 3
	'Get just the filename part of the temp name path
	strTemp = fs.GetBaseName(fs.GetTempName)
  
	'Hack off the 'rad'
	strTemp = Right(strTemp, Len(strTemp) - 3)
	senha = senha & strTemp
  Next
  
  GeraSenha = Left(Lcase(senha),tamanho)
  Set fs = Nothing
  
 End Function
 
 Function NumeroAleatorio(min,max)
 randomize
  NumeroAleatorio=Int((max-min+1)*Rnd+min)
 End Function
 
 Function RotuloMarca(id_marca)
  sql_marca = "SELECT tbl_marca.* FROM tbl_marca WHERE id_marca = '" & id_marca & "';"
  AbreRS "RS_marca",sql_marca
   RotuloMarca = RS_marca("marca")
  RS_marca.close
  Set RS_marca = nothing
 End Function
 
 Function IDTipoProduto(cod_produto)
  sql_produto_tipo = "SELECT tbl_produto.cod_produto, tbl_produto_tipo.id_tipo FROM tbl_produto_tipo INNER JOIN tbl_produto ON tbl_produto_tipo.id_tipo = tbl_produto.id_tipo WHERE tbl_produto.cod_produto=" & cod_produto
  AbreRS "RS_produto_tipo",sql_produto_tipo
   IDTipoProduto = RS_produto_tipo("id_tipo")
  RS_produto_tipo.close
  Set RS_produto_tipo = nothing
 End Function
 
Function FechaConn
 conn.close
 Set conn = nothing
End Function
 
%>

Ja antecipo meus agradecimentos ;]

[Public2004 79]

No próprio site da Locaweb tem as explicações para essas dúvidas, para o caminho do banco, tem que ser assim:

"e:\home\seu_login\dados\seu_banco.mdb"

 

seu_login = geralmente o nome do domínio (sem o.com.br)

seu_banco.mdb = nome do arquivo .mdb

 

Abs.

[Douglas Riu 0]

No próprio site da Locaweb tem as explicações para essas dúvidas, para o caminho do banco, tem que ser assim:

"e:\home\seu_login\dados\seu_banco.mdb"

 

seu_login = geralmente o nome do domínio (sem o.com.br)

seu_banco.mdb = nome do arquivo .mdb

 

Abs.

Velho eh isso mesmo, deu certinho aqui

 

Valeuu mesmo, ajudou pra caramba \o

 

abçs!