[Resolvido] Conexão MDB com MySQL - ASP

[Gelado 0]

é possivel criar uma conexão de mdb com Mysql?

por que eu fiz um site para uma empresa, todo com banco de dados access, só que eu descobri agora que ele só da suporte para Mysqy.

Tem alguma maneira de usar o mesmo banco ou vou ter que fazer tudo outra vez?

 

o erro do servidor:

Microsoft JET Database Engine error '80004005'

 

'G:\inetpub\domains\m\marktime.com.br\private\dados\rpci.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.

 

/novo/inc_adodbs.asp, line 50

 

 

grato!

[hargon 64]

Dificilmente um servidor que da suporte a ASP não dará suporte a Access. Verifique se a pasta com o banco de dados access tem permissão e se você está conectando ao banco corretamente.

 

Para usar o MySQL você pode converter o banco de dados Access para MySQL. Mas saiba que a conversão vai muito além de migrar o banco de dados. Certamente você terá que alterar o código.

 

 

Tópico movido.

 

Origem: Outros bancos de dados http://forum.imasters.com.br/public/style_emoticons/default/seta.gif Destino: ASP

[xanburzum 169]

existe um guia de erro para Microsoft JET Database Engine error '80004005'

 

dá uma procurada pode te ajudar tb...

[Gelado 0]

eu conversei com o pessoal do suporte eles me disseram que o servidor de é compartilhado, por isso não da pra sabe o endereço físico do banco de dados. então dá pra fazer um outro tipo de conexão?

 

o arquivo que faz a conexão 'inc_adodbs.asp'

 

<%

	' Variavel
	Private DSN
	Private i
	Private sTemp
	Private n


	'Data base objects...
	Public db


	'Connection objects
	Public Conexao
	Public ConexaoSQL


	'Recordset objects
	Public rs
	public ss
	Public xs
	Public ws
	Public ys

	Const Cancelado = -1
	Const Aguardando = 0
	Const EmProcesso = 1
	Const Respondido = 2
	Const Resolvido = 3


	'Abertura simples de um objeto banco de dados

Sub OpenDB (ByRef Conexao, d)
	dim Dir, Path
   if right(d,4) <> ".mdb" then d = d & ".mdb"
	Dir = Request.ServerVariables("SCRIPT_NAME")
	Dir = StrReverse(Dir)
	Dir = Mid(Dir, InStr(1, Dir, "/"))
	Dir = StrReverse(Dir)
	Path = Server.MapPath(Dir) & "\"
	if LCase(Request.ServerVariables("Server_Name")) = "notebook" then
		DSN = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=G:\inetpub\domains\m\marktime.com.br\private\dados\" & d & ";"  
	else
		DSN = "Provider=Microsoft.Jet.OleDB.4.0;Data Source=G:\inetpub\domains\m\marktime.com.br\private\dados\" & d & ";"  
	end if
	
	Set Conexao = Server.CreateObject("ADODB.Connection")
	Conexao.Open DSN
End Sub





Sub OpenSQL ()
	Set ConexaoSQL = Server.CreateObject("ADODB.Connection")
	'Conexao.Open "Provider=SQLOLEDB.1;SERVER=200.213.197.187;DATABASE=betasoft;UID=betasoft;PWD=pviibe5080;" 
	ConexaoSQL.Open "Provider=SQLOLEDB.1;SERVER=127.0.0.1;DATABASE=betasoft;UID=betasoft;PWD=pviibe5080;" 
End Sub




	
'Converte qualquer data para dia/mes/ano
Function CDia(ydata)
   ydata=cdate(ydata)
   dia=day(ydata)
   if dia <10 then dia= "0" & cstr(dia)
   mes=month(ydata)
   if mes<10 then mes="0" & cstr(mes)
   ano=year(ydata)
   if ano <1900 then ano = ano + 1900
   CDia=cstr(dia)& "/" & cstr(mes)& "/" & cstr(ano)
End function


'Fecha e destroi todos os objetos abertos
Sub CloseAll()
on error resume next
rs.close
ss.close
xs.close
ws.close
ys.close

set rs = nothing
set ss = nothing
Set xs= nothing
set ws = nothing
set ys = nothing


set Conexao = nothing
set ConexaoEdit = nothing

End sub



'Conta quantas linhas existem em uma string
Function CLines(strTexto)
Dim A,B
A = 1
B = strTexto
    Do While InStr(B, Chr(13))
        A = A + 1
        B = Mid(B, InStr(B, Chr(13)) + 1)
    Loop
    CLines = A
End Function



'Funcao que formata cnpj, cpf, cep, telefone para banco de dados
Function FormatForDB(sString)
 sTemp = ""
 
 For i = 1 to len(sString)
 if isnumeric(mid(sString,i,1)) then sTemp = sTemp & mid(sString,i,1)
 Next
 
 FormatForDb = sTemp
End Function


%>

[xanburzum 169]

neste arquivo você tem 3 tipo de conexoes, DSN.Access,SQLserver qual ira usar ???

 

se for access mdb, você pode ter uma pasta chamada db com o arequivo dentro e um arquivo com este conteudo

 

<% 
sub abreconexao
constring="provider=microsoft.JET.OLEDB.4.0;Data Source=" & Server.MapPath("db/nome_seu_bd.mdb")
Set conexao=Server.CreateObject("ADODB.Connection")
conexao.open constring
end sub

sub fechaconexao
set conexao=nothing
end sub
%>

k depois você chama ele atraves de include no seu codigo, assim naun precisa ficar repetindo codigo

 

<!--#include file="conn/conexao1.asp"-->
<%
 call abreconexao

se for SQLServer, pode usar o

Sub OpenSQL ()      
  Set ConexaoSQL = Server.CreateObject("ADODB.Connection") 
  ConexaoSQL.Open "Provider=SQLOLEDB.1;SERVER=127.0.0.1;DATABASE=betasoft;UID=betasoft;PWD=pviibe5080;"
   End Sub

e lembre-se sempre k postar conexao com SQLserver altere o user e senha....

esta mostrando

[Gelado 0]

Problema resolvido!!

obrigado pela ajuda.. =D