Jump to content


Photo

Preciso De Ajuda !


  • Faça o login para participar
3 replies to this topic

#1 v!tiNh0

v!tiNh0

    Novato no fórum

  • Usuários
  • 6 posts
  • Sexo:Não informado

Posted 23/10/2003, 03:12

bom pessoal ai vai a pagina que esta dando o erro


infos.asp

<%
const cntCaminho ="C:\WINDOWS\Desktop\imobiliaria\banco.mdb"
Set conImobiliaria = Server.CreateObject("ADODB.Connection")
Set rsImoveis = Server.CreateObject("ADODB.Recordset")
conImobiliaria.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
codImovel= Request.QueryString("codigo")
strImoveis = "SELECT * FROM imoveis "
strImoveis = strImoveis & "WHERE id = " & codImovel
set rsImoveis = conImobiliaria.Execute(strImoveis)
rsImoveis.Open "imoveis", conImobiliaria

%>

<table width="550" border="0" cellspacing="10" cellpadding="0">
<tr>
<td width="25%"><img src="<%=rsImoveis("imagem")%>" width="178" height="162" border="0"></td>
<td width="75%" valign="top"> <p><font size="1"><strong><font face="Verdana, Arial, Helvetica, sans-serif"><%=rsImoveis("titulo")%>
&nbsp;</font></strong><font color="#999999" face="Verdana, Arial, Helvetica, sans-serif">&nbsp;id:
<%=rsImoveis("id")%></font></font></p>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"><%=rsImoveis("descricao")%>&nbsp;</font></p>
<p><font size="1" face="Verdana, Arial, Helvetica, sans-serif"> Local: <%=rsImoveis("local")%><br>
Pre&ccedil;o:<%=rsImoveis("preco")%></font></p>
<p>&nbsp;</p></td>
</tr>
</table>
<%
rsImoveis.close
conImobiliaria.close
%>
<p><strong><font size="2" face="Verdana, Arial, Helvetica, sans-serif">Para receber mais informa&ccedil;&otilde;es sobre este
im&oacute;vel preencha o formul&aacute;rio abaixo</font></strong></p>
<form name="form1" method="post" action="">
<table width="479" border="0" cellspacing="5" cellpadding="0">
<tr>
<td width="68"><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Nome:</font></td>
<td width="396"><input type="text" name="textfield"></td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Telefone</font></td>
<td><input name="textfield2" type="text"></td>
</tr>
<tr>
<td><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Celular:</font></td>
<td><input name="textfield3" type="text"></td>
</tr>
</table>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
<p>&nbsp;</p>

creio que o erro esta na linha em destake !!!


=============
o erro é o seguinte

na pagina.... infos.asp?codigo=1

ADODB.Recordset error '800a0e79'

Operação solicitada pelo aplicativo não permitida se o objeto estiver aberto.

/infos.asp, line 10


-------------------------

desde já obrigado a todos !!!

abraços ! :blink:

#2 v!tiNh0

v!tiNh0

    Novato no fórum

  • Usuários
  • 6 posts
  • Sexo:Não informado

Posted 23/10/2003, 17:11

ajuda eu pessoar :(

#3 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 23/10/2003, 17:15

o erro esta aqui

rsImoveis.Open "imoveis", conImobiliaria


olha 1º o correto seria imoveis nao "Imoveis" e 2º nao achei essa variavel no seu codigo
www.andrewsmedina.com.br

#4 Tarkan

Tarkan

    Powered by Linux - Que inglês! ;)

  • Ex-Admins
  • 651 posts
  • Sexo:Masculino
  • Localidade:Copacabana - RJ

Posted 23/10/2003, 18:16

const cntCaminho ="C:\WINDOWS\Desktop\imobiliaria\banco.mdb"
Set conImobiliaria = Server.CreateObject("ADODB.Connection")
Set rsImoveis = Server.CreateObject("ADODB.Recordset")
conImobiliaria.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
codImovel= Request.QueryString("codigo")
strImoveis = "SELECT * FROM imoveis "
strImoveis = strImoveis & "WHERE id = " & codImovel
set rsImoveis = conImobiliaria.Execute(strImoveis)
rsImoveis.Open "imoveis", conImobiliaria


Se você já abriu um recordset para listar os produtos, não precisa usar o comando .Execute...
Vai gerar uma espécie de conflito nos códigos, não só porque os dois basicamente fazem a mesma coisa como também porque você está usando variáveis idênticas para ambos os casos.

Escolha um dos caminhos abaixo, usando Recordset:

const cntCaminho ="C:\WINDOWS\Desktop\imobiliaria\banco.mdb"
Set conImobiliaria = Server.CreateObject("ADODB.Connection")
Set rsImoveis = Server.CreateObject("ADODB.Recordset")
conImobiliaria.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
codImovel= Request.QueryString("codigo")
strImoveis = "SELECT * FROM imoveis "
strImoveis = strImoveis & "WHERE id = " & codImovel
rsImoveis.Open strImoveis, conImobiliaria

ou usando o .Execute:

const cntCaminho ="C:\WINDOWS\Desktop\imobiliaria\banco.mdb"
Set conImobiliaria = Server.CreateObject("ADODB.Connection")
conImobiliaria.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & cntCaminho
codImovel= Request.QueryString("codigo")
strImoveis = "SELECT * FROM imoveis "
strImoveis = strImoveis & "WHERE id = " & codImovel
set rsImoveis = conImobiliaria.Execute(strImoveis)


Abraços, boa sorte!
Qualquer dúvida, volte a postar!

:D
' nome: gustavo veiga
' profissão: ALOG Data Centers do Brasil (analista de sistemas)
' publicidade: ALOG Data Centers do Brasil




1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

IPB Skin By Virteq