Ir para conteúdo

POWERED BY:

Arquivado

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

criacaoi7

Erro na conexão com o DB

Por , em ASP Clássico

Recommended Posts

criacaoi7    0

criacaoi7
Postado

Oi pessoal, tudo bem.

 

Pessoal estou tentando usar o admin de notícias de um site, e estou tendo este erro:

 

ADODB.Recordset erro '800a0bb9'

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

/paginas/admin/noticias/Default.asp, line 56

 

Na linha 56 eu tenho isso: (Veja em vermelho)

 

<%
	  dim rsNoticias, strQuery
	  dim intRegPagina, intPagina
	  
	  intRegPagina = 10
	  
	  if Request.QueryString("p") = "" then intPagina = 1 else intPagina = Request.QueryString("p")
	  
	  
	  Set rsNoticias = Server.CreateObject("ADODB.Recordset")
	  rsNoticias.CursorLocation = 3
	  
								  
	  strQuery = "select n.id, c.categorias, n.descricao, n.titulo, n.data, n.hora from Noticias N "
	  strQuery = strQuery & " inner join Categorias C on  c.ID = n.categoria order by n.id desc"
								  
	  [color="#FF0000"]rsNoticias.Open strQuery, Dados[/color]
	  
	  rsNoticias.AbsolutePage = intPagina
	  rsNoticias.CacheSize = intRegPagina
	  rsNoticias.PageSize = intRegPagina						   
	  %>
									<table width="100%" border="0" cellspacing="0" cellpadding="2" class="edicao">
									  <tr> 
										<th colspan="4">Cadastro de Notícias - 
										  <a href="incluir.asp"><img src="/admin/images/incluir.gif" border="0" title="Incluir"></a></th>
									  </tr>
									  <tr> 
										<th>Título</th>
										<th>Data/Hora de Cadastro</th>
										<th>Categoria</th>
										<th>Opções</th>
									  </tr>
									  <%
	   for i = 1 to intRegPagina
	   %>
									  <tr> 
										<td><%=rsNoticias("Descricao")%></td>
										<td><%=rsNoticias("Data")%> às <%=rsNoticias("Hora")%></td>
										<td><%=rsNoticias("categorias")%></td>
										<td align="center"> <a href="editar.asp?idNoticia=<%=rsNoticias("id")%>"><img src="/admin/images/alterar.gif" border="0" title="Editar"></a> 
										  <a href="acao.asp?idNoticia=<%=rsNoticias("id")%>&acao=e"><img src="/admin/images/excluir.gif" border="0" title="Excluir"></a> 
										</td>
									  </tr>
									  <%
		rsNoticias.MoveNext
	   next
	   %>
									  <tr> 
										<th colspan="4" align="right" class="paginacao"><p><br>
										  <form>
											Página <%=intPagina%> de <%=rsNoticias.PageCount%> 
											<a href="?p=<%=intPagina + 1%>">>></a> 
											<input type="text" name="p" size="3" title="Digite a página e precione Enter">
										  </form></th>
									  </tr>
									</table>
									<%
	  rsNoticias.Close
	  set rsNoticias = nothing
	  %>

 

 

Esta página chama uma config e na config eu tenho isso:

 

<%
Dados = Application("Connection")



' Titulo do Site
TS = "Admin - Notícia Regional"
%>

Para se conectar ao Banco de dados a página usa um arquivo Global.asa

 

'Inicia as variaveis de aplicação
Sub Application_onStart()
 
 ' - - - -Conexao com o banco de dados - -- - -- - -- --- - -  - - --  
 Application("Connection") = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=c:\web\olimpiadaconsespcombr\database\noticias.mdb;"
		 Application("connString") = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\noticiaregional\banco\acesso.mdb"
End Sub



Sub Session_OnEnd
 set conn = Server.CreateObject ("ADODB.Connection")
 conn.Open Application("connString")
 ' Update the record when the user logout and write the logout time plus it sets the user as OFFLINE.
 query = "UPDATE User_LogTime SET Logout_Time=#" & now() & "#, offline=True WHERE offline=False AND SID=" & Session.SessionID & " AND user_id=" & Session("member")
 conn.Execute (query)
 conn.Close
 set conn = Nothing 
End Sub



Sub Session_onStart()
 Session.Timeout = 20 
 Session.LCID = 1046 
End Sub

 

Gsotaria de resolver o problema, e também deixar de usar o Global.asa, usando uma conexão diretamente na página. Como consigo isso?

 

Jr.

 

Obrigado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Anderson Roberto    0

Anderson Roberto
Postado

Tem algum problema com sua Query.

Crie uma pagina ASP que vai fazer a conexão com o banco de dados, nao se esqueça de incluir a pagina de conexão em todas as paginas que vao fazer uso do banco de dados.

Compartilhar este post

Link para o post
Compartilhar em outros sites

criacaoi7    0

criacaoi7
Postado

Anderson... eu criei uma página, conexao.asp que contém este código:

 

<%
set conexao = createobject("adodb.connection")
conexao.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\web\olimpiadaconsespcombr\database\noticias.mdb"
Session.LCID = 1046
%>

Aí eu inseri este código na default que deveria exibir as notícias, inseri no topo:

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

 

Fica dando este erro agora:

 

Páginas do Active Server erro 'ASP 0126'

Arquivo de inclusão não encontrado

/paginas/admin/noticias/Default.asp, line 1

O arquivo de inclusão '/conexao.asp' não foi encontrado.

Achei estranho porque a include topo funciona normal... mas esta não...

 

Obrigado.

 

Jr.

Compartilhar este post

Link para o post
Compartilhar em outros sites

criacaoi7    0

criacaoi7
Postado

Ted a include resolveu... mas tem outro erro:

 

ADODB.Recordset erro '800a0bb9'

 

Os argumentos são incorretos, estão fora do intervalo aceitável ou estão em conflito.

 

/paginas/admin/noticias/Default.asp, line 57

 

Na linha 57 eu tenho isso:

rsNoticias.Open strQuery, Dados

 

Código completo da página:

 

<!--#include file="conexao.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Notícia Regional</title>
<link rel="stylesheet" type="text/css" href="estilo.css">
<link rel="stylesheet" type="text/css" href="/admin/estilos.css">
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="685" height="314" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
	<td height="314" align="center" valign="top"> <table width="99%" border="0" cellspacing="0" cellpadding="0">
		<tr> 
		  <td align="center"> 
			<!--#include virtual="/topo.asp"-->
		  </td>
		</tr>
		<tr> 
		  <td><table width="680" border="0" cellspacing="0" cellpadding="4">
			  <tr> 
				<td align="center"> <table width="493" border="0" cellspacing="0" cellpadding="4">
					<tr> 
					  <td width="485"><font face="Verdana" size="1">  </font> 
						<table width="481" border="0" cellspacing="0" cellpadding="0">
						  <tr> 
							<td width="481"> 
							  <!--#include virtual="/Paginas/admin/config.asp"-->
							  <table border="0" cellpadding="2" cellspacing="0" width="450" bordercolor="#999999" align="center">
								<tr> 
								  <td align="center" bgcolor="#CCCCCC"> <table width="96%" border="0" cellspacing="0" cellpadding="0">
									  <tr> 
										<td align="center"><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif"><strong><%=name1%></strong></font></td>
									  </tr>
									</table></td>
								</tr>
								<tr> 
								  <td bgcolor="#FFFFFF"> 
									<%
						dim rsNoticias, strQuery
						dim intRegPagina, intPagina
						
						intRegPagina = 10
						
						if Request.QueryString("p") = "" then intPagina = 1 else intPagina = Request.QueryString("p")
						
						
						Set rsNoticias = Server.CreateObject("ADODB.Recordset")
						rsNoticias.CursorLocation = 3
						
													
						strQuery = "select n.id, c.categorias, n.descricao, n.titulo, n.data, n.hora from Noticias N "
						strQuery = strQuery & " inner join Categorias C on  c.ID = n.categoria order by n.id desc"
													
						rsNoticias.Open strQuery, Dados
						
						rsNoticias.AbsolutePage = intPagina
						rsNoticias.CacheSize = intRegPagina
						rsNoticias.PageSize = intRegPagina						   
						%>
									<table width="100%" border="0" cellspacing="0" cellpadding="2" class="edicao">
									  <tr> 
										<th colspan="4">Cadastro de Notícias - 
										  <a href="incluir.asp"><img src="/admin/images/incluir.gif" border="0" title="Incluir"></a></th>
									  </tr>
									  <tr> 
										<th>Título</th>
										<th>Data/Hora de Cadastro</th>
										<th>Categoria</th>
										<th>Opções</th>
									  </tr>
									  <%
							for i = 1 to intRegPagina
							%>
									  <tr> 
										<td><%=rsNoticias("Descricao")%></td>
										<td><%=rsNoticias("Data")%> às <%=rsNoticias("Hora")%></td>
										<td><%=rsNoticias("categorias")%></td>
										<td align="center"> <a href="editar.asp?idNoticia=<%=rsNoticias("id")%>"><img src="/admin/images/alterar.gif" border="0" title="Editar"></a> 
										  <a href="acao.asp?idNoticia=<%=rsNoticias("id")%>&acao=e"><img src="/admin/images/excluir.gif" border="0" title="Excluir"></a> 
										</td>
									  </tr>
									  <%
								rsNoticias.MoveNext
							next
							%>
									  <tr> 
										<th colspan="4" align="right" class="paginacao"><p><br>
										  <form>
											Página <%=intPagina%> de <%=rsNoticias.PageCount%> 
											<a href="?p=<%=intPagina + 1%>">>></a> 
											<input type="text" name="p" size="3" title="Digite a página e precione Enter">
										  </form></th>
									  </tr>
									</table>
									<%
						rsNoticias.Close
						set rsNoticias = nothing
						%>
								  </td>
								</tr>
								<tr> 
								  <td bgcolor="#CCCCCC"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
									  <tr> 
										<td align="center"><a href="java script:self.history.go(-1)"><b><font color="#000000" size="1" face="Verdana, Arial, Helvetica, sans-serif">voltar</font></b></a></td>
									  </tr>
									</table></td>
								</tr>
							  </table>
							  <br>  </td>
						  </tr>
						</table></td>
					</tr>
				  </table>
				  <p><br>
				  </p></td>
			  </tr>
			</table></td>
		</tr>
		<tr> 
		  <td><div align="center"> 
			  <!--#include virtual="/base.asp"-->
			</div></td>
		</tr>
	  </table></td>
  </tr>
</table>
<script LANGUAGE="javascript">
<!--
var strMsg = '<%=request("m")%>';
if(strMsg!=''){
	alert(strMsg);
}
//-->
</script>

</body>
</html>

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