Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Web Design Valdeci

[Resolvido] Problemas com Asp e Mysql

Por , em ASP Clássico

Recommended Posts

Web Design Valdeci    0

Web Design Valdeci
Postado

Bom DIa Pessoal,

 

Estou me aventurando no mysql e gostaria de saber se na consulta ao banco muda alguma coisa no código, eu estava utilizando access. Criei as tabelas la no mysql crei a conexao parece q esta certa, so q apareceu o erro na consulta

 

ADODB.Recordset error '800a0bb9'

 

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

 

/sql/noticias.asp, line 5

 

 

. alguem pode me ajudar? valeu

 

Código de conexao:

CODE
<%

dim strcon

sub abre_conexao

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

strcon.open "driver=MySQL ODBC 3.51 Driver;server=ipservidor;uid=[usuarioBanco];pwd=[senhaBanco];database=[NomeBanco

]"

end sub

Sub fecha_conexao

strcon.close

set strcon = nothing

end sub

 

%>

 

Consulta ao banco:

 

CODE

 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<!--#include file="assets/conexao/conexao.asp" -->

<%

Set cs_listar2 = Server.CreateObject("ADODB.Recordset")

cs_listar2.ActiveConnection = strcon

cs_listar2.Source = "SELECT * FROM NOTICIAS ORDER BY DATA_ADD DESC"

cs_listar2.CursorType = 0

cs_listar2.CursorLocation = 3

cs_listar2.LockType = 1

cs_listar2.Open()

 

%>

<html>

<head>

<title>Notícias</title>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<style type="text/css">

<!--

body {

margin-left: 0px;

margin-top: 0px;

margin-right: 0px;

margin-bottom: 0px;

}

-->

</style>

<link href="assets/css/estilo.css" rel="stylesheet" type="text/css">

</head>

 

<body>

<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">

<tr bgcolor="#F9F9F9">

<td width="25"> </td>

<td class="txt_laranja_11_bold">.:: Notícias</td>

<td width="25"> </td>

</tr>

<tr>

<%

While (Not cs_listar2.EOF)

var_titulo = cs_listar2.Fields.Item("titulo").Value

var_chamada = cs_listar2.Fields.Item("chamada").Value

var_id = cs_listar.Fields2.Item("id").Value

%>

<td width="25"> </td>

<td class="txt_cinza_11_bold"><div align="justify">• <%=var_titulo%></div></td>

<td width="25"> </td>

</tr>

<tr>

<td width="25"> </td>

<td><div align="left" class="txt_cinza_11">

<div align="justify"><%=var_chamada%></div>

</div></td>

<td width="25"> </td>

</tr>

<tr>

<td width="25"> </td>

<td><div align="right"><a href="exibir_noticia.asp?id=<%=var_id%>" class="link_cinza_under">Leia mais...</a></div></td>

<td width="25"> </td>

</tr>

<tr>

<td> </td>

<td><div align="center" class="txt_cinza_11">.............................................................................

.................................</div></td>

<td> </td>

</tr>

<%

cs_listar2.MoveNext()

Wend

%>

</table>

<br>

<br>

</body>

</html>

 

Valeu

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Conforme o Salgado disse em um outro tópico, os drivers atuais do MYSQL não dão um bom suporte ao ADODB.RecordSet.

 

O seu problema parece ser justamente esse.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Tem sim. É só fazer sem utilizar ADODB.RecordSet.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Web Design Valdeci    0

Web Design Valdeci
Postado

Testei este scrpit:

 

<%
' Conecta a base de dados...
strConnection = "DSN=xxxxxxxx; DB=[banco];UID=[banco]; PWD=[123456]"
Set adoDataConn = Server.CreateObject("ADODB.Connection")
adoDataConn.Open strConnection

' Faz uma consulta...
strQuery	 = "SELECT * FROM NOTICIAS"
Set rsResult = adoDataConn.Execute(strQuery)
%>

<table>
 <tr>
  <td>Campo 1</td>
  <td>Campo 2</td>
 </tr>
  
<%
' Para cada registro encontrado...
While Not rsResult.EOF
%>
 
 <tr>
  <td><%=rsResult("titulo")%></td>
  <td><%=rsResult("chamada")%></td>
 </tr>

<%
rsResult.MoveNext
wend 
%>

</table>

e retornou isso

 

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

 

/sql/noticias2.asp, line 6

 

 

então falta o driver mesmo né?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Cara você tem q baixar o Driver Myodbc 3.51 ... e fazer a ponte de conexão com a base de dados. Eu uso Mysql com ASP minha conexão é DNS ... com esse script, qd eu executo na minha máquina:

 

<%
dim cnn
sub abre_conectar
set cnn=server.CreateObject("adodb.connection")
cnn.open "basededados" 
end sub
sub fecha_conectar
	 cnn.close
	 Set cnn = nothing
end sub 
%>
Na WEB a conexão é esta:

<%
dim cnn
sub abre_conectar
set cnn=server.CreateObject("adodb.connection")
cnn.Open("DRIVER={MySQL ODBC 3.51 Driver};SERVER=[enderecodabasededados];PORT=3306;DATABASE=[nomedabasededados];USER=[nomedabasededados];PASSWORD=[senha];OPTION=3;") 
end sub
sub fecha_conectar
	 cnn.close
	 Set cnn = nothing
end sub 
%>

E funciona corretamente hehehe ... isso

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito