7 replies to this topic

[soninha_fm]

Olá ppl!

Tou a ter um problema k não estou a conseguir resolver. É o seguinte: Tou a fazer uma pagina onde os clientes entram com uma password e sao redirecionados para a sua pagina pessoal. Nessa página pessoal, queria ter uma lista dos recibos que foram pagos e dos que ainda estao em divida.
Para isso fiz um querie no access onde me dava os pagos, e outro querie onde mostrava apenas os k estavam em divida.

A questao é que quando eu tento meter isso na pagina de ASP ele nao me aceita mais k um querie...e nao estou a perceber pk!! o erro que dá é [Could not use ''; file already in use. /iframes/costumer_profile.asp, line 30 ]

o erro no codigo é Recordset2_cmd.ActiveConnection = MM_conL_STRING

será que alguem me pode ajudar?

[JurisCode]

não tem mistério. faz assim

--- conexao ---
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("banco_de_dados.mdb")
mySQL = "select * fron tabela where id_usuario= request.querystring("id") AND coluna_situacao='"& pago &"'"& "order by coluna_produto asc"
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open(strconn)
Set RS = Conexao.Execute(mySQL)

If RS.EOF Then
Response.Write("não há nenhum documetno cadastrado com esse ID.")
Else
Do While Not RS.EOF
Response.Write("<tr><td>" & RS("coluna_user") & "</td><td>" & RS("coluna_produto") & "</td><td>" & RS("coluna_situacao") & "</td><td>")
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing

Agora vc vai criar outra SQL com nome diferente, de preferência

mySQLII = "select * fron tabela where id_usuario= request.querystring("id") AND coluna_situacao='"& pendente &"'"& "order by coluna_produto asc"
Set RSII = Conexao.Execute(mySQLII)

If RSII.EOF Then
Response.Write("não há nenhum documetno cadastrado com esse ID.")
Else
Do While Not RSII.EOF
Response.Write("<tr><td>" & RSII("coluna_user") & "</td><td>" & RSII("coluna_produto") & "</td><td>" & RSII("coluna_situacao") & "</td><td>")
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing

caso prefira, pode fechar a conexão no primeiro, que puxa os dados que estão pagos e, depois abrir de novo, mas com nome diferente na que busca por produtos não pagos.

o seu embaraço, aparentemente, foi que vc criou variáveis com nomes iguais

qqr coisa, mande seu codigo q a gente dá uma guaribada nele

Edição feita por: JurisCode, 13/07/2007, 14:23.

[soninha_fm]

não tem mistério. faz assim

--- conexao ---
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath("banco_de_dados.mdb")
mySQL = "select * fron tabela where id_usuario= request.querystring("id") AND coluna_situacao='"& pago &"'"& "order by coluna_produto asc"
Set Conexao = Server.CreateObject("ADODB.Connection")
Conexao.Open(strconn)
Set RS = Conexao.Execute(mySQL)

If RS.EOF Then
Response.Write("não há nenhum documetno cadastrado com esse ID.")
Else
Do While Not RS.EOF
Response.Write("<tr><td>" & RS("coluna_user") & "</td><td>" & RS("coluna_produto") & "</td><td>" & RS("coluna_situacao") & "</td><td>")
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing

Agora vc vai criar outra SQL com nome diferente, de preferência

mySQLII = "select * fron tabela where id_usuario= request.querystring("id") AND coluna_situacao='"& pendente &"'"& "order by coluna_produto asc"
Set RSII = Conexao.Execute(mySQLII)

If RSII.EOF Then
Response.Write("não há nenhum documetno cadastrado com esse ID.")
Else
Do While Not RSII.EOF
Response.Write("<tr><td>" & RSII("coluna_user") & "</td><td>" & RSII("coluna_produto") & "</td><td>" & RSII("coluna_situacao") & "</td><td>")
RS.MoveNext
Loop
End If
RS.Close
Set RS = Nothing

caso prefira, pode fechar a conexão no primeiro, que puxa os dados que estão pagos e, depois abrir de novo, mas com nome diferente na que busca por produtos não pagos.

o seu embaraço, aparentemente, foi que vc criou variáveis com nomes iguais

qqr coisa, mande seu codigo q a gente dá uma guaribada nele

Antes de mais um grandeeee obrigado pela resposta. E não querendo abusar...vou postar o codigo pk sinceramente não consigo corrigir o erro!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Connections/conL.asp" -->
<%
Dim rsRecibospagos__MMColParam
rsRecibospagos__MMColParam = "1"
If (Session("MM_Username") <> "") Then
rsRecibospagos__MMColParam = Session("MM_Username")
End If
%>
<%
Dim rsRecibospagos
Dim rsRecibospagos_cmd
Dim rsRecibospagos_numRows

Set rsRecibospagos_cmd = Server.CreateObject ("ADODB.Command")
rsRecibospagos_cmd.ActiveConnection = MM_conL_STRING
rsRecibospagos_cmd.CommandText = "SELECT * FROM qgestao WHERE Name_Company = ?"
rsRecibospagos_cmd.Prepared = true
rsRecibospagos_cmd.Parameters.Append rsRecibospagos_cmd.CreateParameter("param1", 200, 1, 50, rsRecibospagos__MMColParam) ' adVarChar

Set rsRecibospagos = rsRecibospagos_cmd.Execute
rsRecibospagos_numRows = 0
%>
<%
Dim rsDividas__MMColParam
rsDividas__MMColParam = "1"
If (Session("MM_Username") <> "") Then
rsDividas__MMColParam = Session("MM_Username")
End If
%>
<%
Dim rsDividas
Dim rsDividas_cmd
Dim rsDividas_numRows

Set rsDividas_cmd = Server.CreateObject ("ADODB.Command")
rsDividas_cmd.ActiveConnection = MM_conL_STRING
rsDividas_cmd.CommandText = "SELECT * FROM qgestaoNao WHERE Name_Company = ?"
rsDividas_cmd.Prepared = true
rsDividas_cmd.Parameters.Append rsDividas_cmd.CreateParameter("param1", 200, 1, 50, rsDividas__MMColParam) ' adVarChar

Set rsDividas = rsDividas_cmd.Execute
rsDividas_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
<link href="../estilos/folha.css" rel="stylesheet" type="text/css" />
</head>

<body>
<table width="89%" border="0" align="center">
<tr>
<td colspan="4" class="texto"><span class="tituloTabelas">Welcome</span> <span class="linkcontactos">
<% =session("MM_Username")%>
</span> </td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<tr>
<td colspan="4" class="tituloTabelas">Recibos pagos:</td>
</tr>
<tr>
<td width="19%" bgcolor="#E9E9E9" class="tituloTabelas"><div align="center">Data</div></td>
<td width="37%" bgcolor="#E9E9E9" class="tituloTabelas"><div align="center">Descrição</div></td>
<td width="24%" bgcolor="#E9E9E9" class="tituloTabelas"><div align="center">Amount</div></td>
<td width="20%">&nbsp;</td>
</tr>
<tr>
<td colspan="4"><table width="520" border="0" align="left">
<tr>
<td width="141" class="textoTabelas"><%=(rsRecibospagos.Fields.Item("Data").Value)%></td>
<td width="220" class="textoTabelas"><%=(rsRecibospagos.Fields.Item("Descricao").Value)%></td>
<td width="145" class="textoTabelas"><%=(rsRecibospagos.Fields.Item("Quantia").Value)%></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
<tr>
<td colspan="4" class="tituloTabelas">Em dívida:</td>
</tr>
<tr>
<td><%=(rsDividas.Fields.Item("Data").Value)%></td>
<td><%=(rsDividas.Fields.Item("Descricao").Value)%></td>
<td><%=(rsDividas.Fields.Item("Quantia").Value)%></td>
<td>&nbsp;</td>
</tr>
<tr>
<td colspan="4">&nbsp;</td>
</tr>
</table>
</body>
</html>
<%
rsRecibospagos.Close()
Set rsRecibospagos = Nothing
%>
<%
rsDividas.Close()
Set rsDividas = Nothing
%>

Se me puderem ajudar agradeço imenso!

[Generation]

A mensagem do erro diz que o arquivo esta em uso por isso nao consegue executar.esse é o erro ainda ou mudou a descrição?

[]'s

[soninha_fm]

A mensagem do erro diz que o arquivo esta em uso por isso nao consegue executar.esse é o erro ainda ou mudou a descrição?

[]'s

nao...o erro continua o mesmo! :S

[Generation]

Veja se o arquivo MDB do banco nao esta corrompido ou aberto quando voce executa, tem o link no ar??

[]'s

[soninha_fm]

Veja se o arquivo MDB do banco nao esta corrompido ou aberto quando voce executa, tem o link no ar??

[]'s

Com o ficheiro MDB está tudo bem e não se encontra aberto sempre k eu executo a pagina, o link é http://www.countycle...uk/costumer.asp mas para entrar precisa da pass e do log que podes usar

user: maria
pass: 311

[Generation]

Qual o conteudo dessa pagina : <!--#include file="../Connections/conL.asp" -->?

vamos ver se não é o path do banco.

[]'s