Eu tenho meu sistema em asp que tinha o banco access, mais agora eu estou mudando o banco para mysql, eu já criei o banco as tabelas tudo igualzinho ao access, no mysql. está tudo certo no banco
Mas eu estou com um problema,
eu tenho um arquivo, que o codigo dele é o seguinte:
<% Session.LCID = 1046 %>
<%
Dim banco, conexao, rs
Set conexao = Server.CreateObject("ADODB.Connection")
Pergunta
qwert133
Ola pessoal,
Eu tenho meu sistema em asp que tinha o banco access, mais agora eu estou mudando o banco para mysql, eu já criei o banco as tabelas tudo igualzinho ao access, no mysql. está tudo certo no banco
Mas eu estou com um problema,
eu tenho um arquivo, que o codigo dele é o seguinte:
<% Session.LCID = 1046 %>
<%
Dim banco, conexao, rs
Set conexao = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
'"Driver={mySQL};Server=mySrvName;Option=16834;Database=mydatabase;"
conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb")
%<%
Session.timeout = 10' em minutos
Set rs = Server.CreateObject("ADODB.Recordset")
Mes = Month(Date)
rs.Open "SELECT * FROM m" & Mes & " WHERE dia=DAY(NOW())", conexao, 3, 3
If Not (Rs.EOF Or Rs.BOF) Then
NomeMes = MonthName(Mes)
While not rs.EOF
Response.Write "<font face= verdana size=1><b>Dia: </b>" & RS("dia") & " de " & NomeMes &"</fonte><br>"
Response.Write "<b>Texto: </b>" & RS("texto") & "<br>"
RS.movenext
wend
Else
Response.Write "<font face= verdana size=1><b>Dia: </b>Nenhum dia é comemorado hoje</fonte><br> "
End If
RS.Close
conexao.Close
Set RS = Nothing
Set conexao = Nothing
%>
________
Funciona perfeitamente, com o banco acess, mas quando eu mudei a string de conexão:
de:
conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("banco.mdb")
para:
conexao.open "driver={MySQL ODBC 3.51 Driver};Option=16834;server=dm01;uid=root;pwd=;database=banco"
ai éstá dando esse erro:
Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
O driver ODBC não oferece suporte para as propriedades solicitadas.
na linha:
rs.Open "SELECT * FROM m" & Mes & " WHERE dia=DAY(NOW())", conexao, 3, 3
se alguém souber algum jeito para que não de esse erro, posta ai;
Link para o comentário
Compartilhar em outros sites
4 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.