Ir para conteúdo

POWERED BY:

Arquivado

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

Martinsrj

[Resolvido] Erro desconhecido

Por , em ASP Clássico

Recommended Posts

Martinsrj    0

Martinsrj
Postado

Ola pessoal, estou comecando em ASP e estou encontrando algumas dificuldades... rsrsrsrsr

Estou realizando um teste de conexão com o Banco MySQL e ao mesmo tempo que exiba todos os dados da tabela.

Codigo da conexão:

conexao.asp

<%
sub AbreConexao
Dim Servidor, usuario, senha, banco, string
 servidor = "localhost"
 usuario  = "root"
 senha	= "7elohim"
 banco	= "bd_gd1"

 string = "driver={MySQL ODBC 5.1 Driver};server=" & servidor & ";"
 string = string & "uid=" & usuario & ";"
 string = string & "pwd=" & senha & ";"
 string = string & "database=" & banco

 Set conbd_gd1 = Server.CreateObject("ADODB.Connection")
 conbd_gd1.ConnectionString = string
 conbd_gd1.Open
end sub

sub FechaConexao
conbd_gd1.close
set conbd_gd1 = nothing
end sub
%>
teste_resp.asp

<%
Option Explicit
%>
<!--#Include file="conexao.asp"-->
<%
Dim conbd_gd1, rsDados, strSQL
strSQL = "SELECT status, id, sistema, descricao, observacao, fase, plano_entrega FROM tab_dados"
Call AbreConexao
Set rsDados = conexaodb.Execute(strSQL)

%>
<html>
<head>
<title>Acessando dados de Portabilidade</title>
</head>
<body>
<font face="arial" size="3" color="red"><b>Dados do Grupo</font></b><br>
<table width="98%" border="1" cellpadding="0" cellspacing="0" bordercolor="#000000">
  <tr>
	<td>Status</td>
	<td>ID</td>
	<td>Sistema</td>
	<td>Descrição / Impacto</td>
	<td>Observações</td>
	<td>Fase</td>
	<td>Plano de Entrega</td>
  </tr>
<%
Do While Not rsDados.Eof
%>
  <tr>
	<td><% = rsDados.Fields("status") %></td>
	<td><% = rsDados.Fields("id") %></td>
	<td><% = rsDados.Fields("sistema") %></td>
	<td><% = rsDados.Fields("descricao") %></td>
	<td><% = rsDados.Fields("observacao") %></td>
	<td><% = rsDados.Fields("fase") %></td>
	<td><% = rsDados.Fields("plano_entrega") %></td>
  </tr>
<%
rsDados.MoveNext
Loop
rsDados.Close
Call FechaConexao
Set rsDados = Nothing
%>
</table>
</body>
</html>
Aqui segue a tela da conexão do ODBC:

Imagem Postada

Imagem Postada

Imagem Postada

 

Aqui segue a tabela para a consulta:

cod_dados		  int(10)		   (NULL)			   NO	PRI	(NULL)		   
status				varchar(100)  utf8_general_ci	YES			 (NULL)					
id					  varchar(10)	utf8_general_ci	YES			 (NULL)					
sistema			  varchar(20)   utf8_general_ci	YES			 (NULL)					
descricao		   text			   utf8_general_ci	YES			 (NULL)					
cod_grupo		 varchar(12)	utf8_general_ci	YES			 (NULL)					
observacao		text			   utf8_general_ci	YES			 (NULL)					
fase				  varchar(20)	utf8_general_ci	YES			 (NULL)					
plano_entrega	text			   utf8_general_ci	YES			 (NULL)					
dt_inc			   datetime		 (NULL)				 YES			 (NULL)
Desde já agradeço pela ajuda de todos.

Abraços.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Mano faça isso

 

Troque este

 

Set rsDados = conexaodb.Execute(strSQL)

por este

 

Set rsDados = conbd_gd1.Execute(strSQL)

O problema esta aqui

 

Set rsDados = conexaodb.Execute(strSQL)

 

o conexaodb não existe.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

ao inves de usar o método execute do objeto connection, uma dica você pode usar o objeto recordset atraves do método open do recordset, você tem mais gerenciamento, propriedades e opcoes...

mas bem observado pelo pratike, você precisa usar a variavel k foi declarada na sub...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Pocha... era isso mesmo, falta de atencao minha. Muito obrigado!

Agora pessoal, nao existe uma configuracao caso como erro acima apareca no IE um codigo de erro do ASP.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

beleza...

 

só naun entendi o

Agora pessoal, nao existe uma configuracao caso como erro acima apareca no IE um codigo de erro do ASP

você ker fazer o tratamento de erro, caso exista ?!?!?!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Deixa eu explicar melhor. O erro que eu cometi acima foi que coloquei a variavel errado, nao teria como exibir isso em tela.

Estava navegando agora pouco no site superasp e tem em uma parte do site que possui os codigos de erros, exemplo:

Microsoft OLE DB Provider for SQL Server error '80040e37'

 

Invalid object name 'glossario_asp'.

 

/glossario_asp.asp, line 20

 

 

beleza...

 

só naun entendi o

Agora pessoal, nao existe uma configuracao caso como erro acima apareca no IE um codigo de erro do ASP

você ker fazer o tratamento de erro, caso exista ?!?!?!

 

Compartilhar este post

Link para o post
Compartilhar em outros sites

Patrique    0

Patrique
Postado

Tente assim

 

On Error Resume Next

Dim ErroNumero, ErroDescricao
ErroNumero = err.number
ErroDescricao = err.Description

Response.Write("Numero do erro: " & ErroNumero & "<br />Descricao do erro: " & ErroDescricao)

Compartilhar este post

Link para o post
Compartilhar em outros sites

scorpio    7

scorpio
Postado

Pocha... era isso mesmo, falta de atencao minha. Muito obrigado!

Agora pessoal, nao existe uma configuracao caso como erro acima apareca no IE um codigo de erro do ASP.

Ferramentas > Opções | Aba avançada

 

Desmarque a opção Mostrar mensagem de erros http amigáveis.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Martinsrj    0

Martinsrj
Postado

Valeu Scorpio!

Funcionou!!!

 

Pocha... era isso mesmo, falta de atencao minha. Muito obrigado!

Agora pessoal, nao existe uma configuracao caso como erro acima apareca no IE um codigo de erro do ASP.

Ferramentas > Opções | Aba avançada

 

Desmarque a opção Mostrar mensagem de erros http amigáveis.

 

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