Jump to content

  2. → Viewing Profile: Posts: soninha_fm

soninha_fm

Member Since 25/06/2007
Offline Last Active 17/07/2007, 12:32
-----

Posts I've Made

In Topic: Access / Asp

15/07/2007, 15:28

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

In Topic: Access / Asp

15/07/2007, 15:18

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

In Topic: Access / Asp

13/07/2007, 14:40

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! :blink:

<%@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!

In Topic: Dreamweaver/base De Dados Access

25/06/2007, 15:25

Olá.. olha, provavelmente esta faltando configurar o servidor p/ gravar no bd;
d 1 olhada nessas dicas:
http://forum.wmonlin...mp;#entry613971

verifique tb se vc configurou a pasta como "Compartilhada"
no Windows Explorer..

qqer coisa, volte ai e passe as versões dos seus programas (Windows, IIS, Dream, Access)
q fica + facil t ajudar.. até..



Olá, antes de mais, muito obrigado por me responder!;)
è assim...eu nao uso o IIS, pk estou ligada a um servidor (onde tenho o site alojado).
Tou usando o XP, dremweaver CS3 e Access 2002
o erro que dá quando tento inserir os dados é o seguinte

Microsoft JET Database Engine error '80004005'

Operation must use an updateable query.

/iframes/register_costumer.asp, line 42


Quando vou verificar a linha de código que dá erro esta contem apenas contem..." MM_editCmd.Execute"



Sinceramente nao sei mesmo o k eide fazer para resolver o assunto! :wacko:

  1. Fórum WMO
  2. → Viewing Profile: Posts: soninha_fm
  3. Privacy Policy
  4. Regras ·
IPB Skin By Virteq