Mudar Conexao De Mdb Para Mysql

[ViniciusJau]

olá pessoal.... estou tentando mudar uma conexão de um banco do acess par aum do mysql...

porém eu ahco que algumas funções não são aceitas....

meu codigo:

<%

Option Explicit

Response.Expires = 0

Dim objConn, strQuery, sql_query, RsQuery, campo, sql, autonum

Dim Justificativa, Data, Hora, ObjRs

Justificativa = Request.Form("justificativa")

if Justificativa = "" then

  Justificativa = " "

end if

autonum = Request.Form("autonum")

data = date

hora = time

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

'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...

objConn.Open "DBQ=" & Server.MapPath("../amarconsultoria.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strQuery = "UPDATE justificativa SET justificativa = '"&justificativa&"', Data = '"&Data&"', hora = '"&hora&"' WHERE autonum ="&autonum

'Caso ocorra um erro esta função de erro será chamada

On error Resume Next

Set ObjRs = objConn.Execute(strQuery)

'Fecha o Objeto de Conexão

objConn.close

'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn

Set objRs = Nothing

Set objConn = Nothing

if err = 0 Then

'Redireciona o usuário caso não tenha ocorrido erro na transação

response.redirect "enviado.htm"

end if

%>

eu tentei mudar a linha:

objConn.Open "DBQ=" & Server.MapPath("../amarconsultoria.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

para:

objConn.Open "driver=Mysql;server=200.152.241.200;uid=LOGIN;pwd=SENHA;database=amarconsultoria"

mais deu erro...

oque eu preciso mudar nele ????

[cyberalexxx]

uma conexão minha de exemplo:

SET conexao=Server.CreateObject("adodb.connection")
  conexao.Open "Driver={mySQL}; Server=localhost; Port=3306; Option=0; Socket=; Stmt=; Database=dados; Uid=xxxx; Pwd=xxxxxx;"
  SQL = "select frase from textos order by rand() limit 0,1"
  SET RS = Server.CreateObject("ADODB.Recordset")
  RS.Open SQL,conexao,3

[ViniciusJau]

valeu alexxxx

no meu ficou assim:

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

objConn.Open = "driver=Mysql;server=200.152.241.200;uid=amarconsultoria;pwd=70xp43;database=amarconsultoria"

hehe porém agora deu outro erro.... eu mudei de db para mysql e eu usava um comando assim por exemplo:

SELECT * FROM justificativa WHERE Conferida=false AND Central='Apae Jaú'

dai ele me deu esse erro:

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[TCX][MyODBC]Unknown column 'false' in 'where clause'

/restrito/teste/sistema/justificativa.asp, line 12

na verdade esse campo Conferida é uma caixa pra marcar sim ou não... dai ele só exibe os que não estão marcados....

esse FALSE muda qunado eu passo para mysql ???

[cyberalexxx]

Pressupondo que voce tenha exportado o banco e esteja usando um campo do tipo TINYINT no mysql, voce deve fazer a consulta assim:

SELECT * FROM justificativa WHERE Conferida=0 AND Central='Apae Jaú'

No Mysql é usado 0 para desmarcado e 1 para marcado.

[ViniciusJau]

Legal... funfou

como eu faço pra saber essas "pequenas" mudanças ??

será que é legal eu usar algum programa pra converter a estrutura do banco ou é melhor eu pegar uma tabela... ?

eu lembro que tinha um tópico aqui falando disso das principais mudanças do MDB pro mysql..... mais nem achei mais....

o importante é q funfou

[cyberalexxx]

Para testar as consultas (mais avançadas), eu faço a simulação através do MySql Query Browser, ajuda bastante, só passo para o script quando a consulta estiver do jeito q eu quero.

[Developer]

Para testar as consultas (mais avançadas), eu faço a simulação através do MySql Query Browser, ajuda bastante, só passo para o script quando a consulta estiver do jeito q eu quero.

Isso... Deve ser assim mesmo...

Uma vez eu estava fazendo um site para um cliente... Eu bobo não teste, fiz tudo sem testar...Ai quando eu coloco pra funcionar vem um erro loco Demorei horas para achar esse erro.... Ainda bem que eu achei...hehhee... se não eu não taria aqui