Ir para conteúdo

POWERED BY:

Arquivado

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

gotaum

[Resolvido] Asp com exibição da tabela vinda de Mysql

Por , em ASP Clássico

Recommended Posts

gotaum    0

gotaum
Postado

Tenho um site com asp e mysql... Eu não consigo com que sejam exibidos na tela o conteúdo da tabela. É um cadastro de email e eu quero que o cliente tenha acesso ao banco de dados de cadastro deles... é só mesmo para a visualização.

Grato desde já

Compartilhar este post

Link para o post
Compartilhar em outros sites

gotaum    0

gotaum
Postado

qual a dificuldade?

 

dar erro é alguma coisa???

 

não dá erro eu simplesmente não consigo fazer e nem encontro como fazer...

o cadastro funciona e coloca os dados no mysql, mas eu não consigo fazer com que um html mostre a tabela completa, como se fosse em excel.

Compartilhar este post

Link para o post
Compartilhar em outros sites

gotaum    0

gotaum
Postado

terá que criar um grid com tabelas com o asp e fazer os loops necessários, poste seu código ai para análise

Mas é justamente o que eu venho procurando à dias.... "THE CODE".

Preciso de um código que simplesmente mostre o que eu tenho na tabela, pois todos os que eu consegui são com Access, e infelizmente eu não sei nada de programação Asp ou de banco de dados.

Ajudaria muito se fosse possível me passar um código mesmo que seja de uma tabela já pronta. Ai eu dou meu jeito aqui.

Valeu por responder.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado

Bom dia cara ... Então a estrutura é a mesma ... a única coisa q vai alterar é a conexão do Acess para MySql ... segue abaixo uma estrutura simples:

 

<% sql = "SELECT * FROM tabela "
set rs = cnn.execute(sql) %> 

<table>
<tr>
<td>Registro1</td>
<td>Registro2</td>
</tr>
<tr>
<td><%=rs("campo1")%></td>
<td><%=rs("campo2")%></td>
</tr>
</table>

Só terá q usar a sua conexão com o MySql .. e mandar selecionar a tabela

Compartilhar este post

Link para o post
Compartilhar em outros sites

gotaum    0

gotaum
Postado 

<%
'Declarando variáveis
Dim adoCon, strconn
Dim servidor, banco, usuario, senha
'Definindo valores de acesso
  servidor = "888888888888"
  usuario  = "espiritosanta"
  senha	= "8888888"
  banco	= "espiritosanta"
'Definindo string de conexão
  strconn = "driver={MySQL ODBC 3.51 Driver};server=" & servidor & ";"
  strconn = strconn & "uid=" & usuario & ";"
  strconn = strconn & "pwd=" & senha & ";"
  strconn = strconn & "database=" & banco
%>

<html>
<head>
<title>Consulta</title>


</head>

<body>
<% sql = "SELECT * FROM newsletter "
set rs = cnn.execute(sql) %>

<table>
<tr>
<td>Nome</td>
<td>Email</td>
<td>Dia</td>
<td>Mês</td>
<td>Ano</td>
<td>Sexo</td>
<td>DDD</td>
<td>Telefone</td>
<td>Como Soube?</td>
</tr>
<tr>
<td><%=rs("newsletter_nome")%></td>
<td><%=rs("newsletter_email")%></td>
<td><%=rs("newsletter_dia")%></td>
<td><%=rs("newsletter_mes")%></td>
<td><%=rs("newsletter_ano")%></td>
<td><%=rs("newsletter_sexo")%></td>
<td><%=rs("newsletter_ddd")%></td>
<td><%=rs("newsletter_telefone")%></td>
<td><%=rs("newsletter_como")%></td>
</tr>
</table>
</body>
</html>

eu testei e deu um erro!

Microsoft VBScript runtime error '800a01a8'

 

Object required: ''

 

/novosite/consulta/index.asp, line 26

a linha de erro é essa:

set rs = cnn.execute(sql) %>

 

E agora... eu não sei nada de asp!!!!!!! http://forum.imasters.com.br/style_emo...fault/wacko.gif

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado 

<%

'Declarando variáveis

Dim adoCon, strconn

Dim servidor, banco, usuario, senha

'Definindo valores de acesso

servidor = "888888888888"

usuario = "espiritosanta"

senha = "8888888"

banco = "espiritosanta"

'Definindo string de conexão

strconn = "driver={MySQL ODBC 3.51 Driver};server=" & servidor & ";"

strconn = strconn & "uid=" & usuario & ";"

strconn = strconn & "pwd=" & senha & ";"

strconn = strconn & "database=" & banco

%>

 

<html>

<head>

<title>Consulta</title>

 

 

</head>

 

<body>

<% sql = "SELECT * FROM newsletter "

set rs = strconn.execute(sql) %>

 

<table>

<tr>

<td>Nome</td>

<td>Email</td>

<td>Dia</td>

<td>Mês</td>

<td>Ano</td>

<td>Sexo</td>

<td>DDD</td>

<td>Telefone</td>

<td>Como Soube?</td>

</tr>

<tr>

<%while not tab.eof%>

<td><%=rs("newsletter_nome")%></td>

<td><%=rs("newsletter_email")%></td>

<td><%=rs("newsletter_dia")%></td>

<td><%=rs("newsletter_mes")%></td>

<td><%=rs("newsletter_ano")%></td>

<td><%=rs("newsletter_sexo")%></td>

<td><%=rs("newsletter_ddd")%></td>

<td><%=rs("newsletter_telefone")%></td>

<td><%=rs("newsletter_como")%></td>

<%tab.MoveNext

Wend%>

</tr>

</table>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

gotaum    0

gotaum
Postado

Cara eu crio a página cadastro.asp com o script que você me passou ai em cima... mas dá esse erro....

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'driver={MySQL ODBC 3'

 

/novosite/cadastro.asp, line 27

deve estar faltando alguma coisa...

 

Desculpa a demora em responder tinha outras tarefas antes dessa.

 

Valeu pelas respostas rápidas!!! :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Você não criou a conexão com o banco de dados, você apenas informou a string de conexão.

 

Verifique isso.

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Exemplo:

Set conexao = Server.CreateObject("ADODB.Connection")
strConexao = strconn 
conexao.Open strConexao

Compartilhar este post

Link para o post
Compartilhar em outros sites

hargon    64

hargon
Postado

Poste como está seu código nesse momento.

Compartilhar este post

Link para o post
Compartilhar em outros sites

gotaum    0

gotaum
Postado 

<%
'Declarando variáveis
Dim adoCon, strconn
Dim servidor, banco, usuario, senha
'Definindo valores de acesso
  servidor = "******"
  usuario  = "******"
  senha	= "******"
  banco	= "******"
'Definindo string de conexão
  strconn = "driver={MySQL ODBC 3.51 Driver};server=" & servidor & ";"
  strconn = strconn & "uid=" & usuario & ";"
  strconn = strconn & "pwd=" & senha & ";"
  strconn = strconn & "database=" & banco

%>

<html>
<head>
<title>Consulta</title>


</head>

<body>
<%
Set conexao = Server.CreateObject("ADODB.Connection")
strConexao = strconn
conexao.Open strConexao
sql = "SELECT * FROM newsletter "
set rs = strconn.execute(sql)
%>

<table>
<tr>
<td>Nome</td>
<td>Email</td>
<td>Dia</td>
<td>Mês</td>
<td>Ano</td>
<td>Sexo</td>
<td>DDD</td>
<td>Telefone</td>
<td>Como Soube?</td>
</tr>
<tr>
<%while not rs.eof%>
<td><%=rs("newsletter_nome")%></td>
<td><%=rs("newsletter_email")%></td>
<td><%=rs("newsletter_dia")%></td>
<td><%=rs("newsletter_mes")%></td>
<td><%=rs("newsletter_ano")%></td>
<td><%=rs("newsletter_sexo")%></td>
<td><%=rs("newsletter_ddd")%></td>
<td><%=rs("newsletter_telefone")%></td>
<td><%=rs("newsletter_como")%></td>
<%rs.MoveNext
  Wend%>
</tr>
</table>
</body>
</html>

tai o código...

 

o erro:

 

Microsoft VBScript runtime error '800a01a8'

 

Object required: 'driver={MySQL ODBC 3'

 

/novosite/cadastro.asp, line 31

 

a linha:

 

set rs = strconn.execute(sql)

A luz:

 

???????????

Compartilhar este post

Link para o post
Compartilhar em outros sites

Jow Xavier    0

Jow Xavier
Postado 

porta = "3306"

strconn.Open("driver={MySQL ODBC 3.51 Driver};server=" & servidor & ";"

strconn = strconn & "port=" & porta & ";"

strconn = strconn & "user=" & usuario & ";"

strconn = strconn & "password=" & senha & ";"

strconn = strconn & "database=" & banco & ";")

Compartilhar este post

Link para o post
Compartilhar em outros sites

gotaum    0

gotaum
Postado 

porta = "3306"
  strconn.Open("driver={MySQL ODBC 3.51 Driver};server=" & servidor & ";"
  strconn = strconn & "port=" & porta & ";"
  strconn = strconn & "user=" & usuario & ";"
  strconn = strconn & "password=" & senha & ";"
  strconn = strconn & "database=" & banco & ";")

 

Onde eu coloco isso?!!?!?!?!?1

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