none
Erro ao exibir resultado de pesquisa com asp.net e Mysql RRS feed

  • Pergunta

  • Ola,

        estou inicial aprendizagem com asp e Mysql, no Visual Web developer 2010 express só que não consigo retornar o resultado de uma consulta simples que fiz como teste. Quando mando gerar a consulta tenho como retorno dos 84 registro que tenho no banco só que o resultado é "System.__ComObject" seguinte resultado.

      se alguem puder me ajudar ficarei muito grato.

      Uso o código abaixo.

    <%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" aspcompat="true"  %>
    <% Response.Charset="ISO-8859-1" %>
    <%@ import Namespace="System.Data" %> 
    <%@ import Namespace="MySql.Data.MySqlClient" %>  

    <% 
            Dim strDataBase, strDataSoure As String
            Dim strUser, strPWD As String
            
            Dim strQuery, strConexao As String
            Dim rs As Object
            Dim objConn As Object
            
            'Variáveis com os valores de sua base de dados. 
            strDataSoure = "localhost" 'colocar a localização de sua base de dados,preferenciamente o dominio, tipo dbmy0002.whservidor.com
            strDataBase = "arbrp" 'Colocar o nome da base 
            strUser = "root" 'colocar nome do usuário 
            strPWD = "admin" 'colocar a senha 
     
    'Geramos a query SQL que irá acessar os dados na base de dados 
    'Conforme alteração 1 
    ' Fazer select em tabela teste2, que contem os campos: id (int(11) e texto(varchar(50))
            strQuery = "select * from jogos"
     
    ' Definir String de conexao para base MySQL
    strConexao = "Driver={MySQL ODBC 3.51 Driver};SERVER=" & strDataSoure 
    strConexao = strConexao & "; DATABASE=" & strDataBase 
    strConexao = strConexao & ";Uid="& strUser 
    strConexao = strConexao & ";Pwd="& strPWD 
     
    ' Criar objeto de conexão com a base de dados e executar a Query na tabela teste2
            objConn = Server.CreateObject("ADODB.Connection")
            objConn.open(strConexao)
            rs = Server.CreateObject("ADODB.RecordSet")
            rs.Open(strQuery, strConexao)
    do until rs.EOF

                Response.Write(rs("equipe1").ToString)
                Response.Write("<br>")
                rs.MoveNext()
            Loop
     
    objConn.close 
            rs = Nothing
            objConn = Nothing
    %>

    Obrigado pela atenção

    terça-feira, 17 de fevereiro de 2015 02:13

Respostas

Todas as Respostas