16 replies to this topic

[Operador]

Galera estou com um pequeno problema, estou tentando mostrar a quantidade de fotos em um determinado evento, olha como seria:


Foto - [27/10/2005] - Evento teste
Local: teste
Descrição: testando festa
Foto: ? (ai não consigo)

olha o código na página:

todas.asp

Caminho="DBQ=" & Server.MapPath("/coberturas/baladas/bd/bd_baladas.mdb")
  Set Conex=Server.CreateObject("ADODB.Connection")
  Conex.Open Caminho & ";Driver={Microsoft Access Driver (*.mdb)}","",""
 
  Set rsfotos=Server.CreateObject("ADODB.Recordset")
  rsfotos.Open "select * From tbl_eventos order by id desc", Conex, 3,3
  rsfotos2.Open "select count AS Total From tbl_fotos,tbl_eventos order by id desc", Conex, 3,3

  rsfotos.PageSize=9
 
  If rsfotos.EOF Then
    response.write "Não existem registros para exibição..."
  Else
 
  rsfotos.AbsolutePage = Cint(n_page)
   
    contador=0
    While not rsfotos.EOF AND contador < rsfotos.PageSize
   
     Set rsMostraFoto = Conex.Execute("select top 5 * from tbl_fotos where EventoID=" & rsFotos("ID"))
     sFoto = rsMostraFoto("Foto")
    rsMostraFoto.Close
    Set rsMostraFoto = Nothing
    %>

e aqui a parte onde irá mostrar a quantidade de fotos:

<%
  if session("total") = "" then
  response.write ""& rsFotos2("total")
  else
  response.write ""& session("total")
  end if
  %>

Acho que esqueci de dizer que meu banco de dados tem a tbl_eventos e tbl_fotos onde a tabela eventos são gravados as festas e a tbl_fotos onde são armazenadas as fotos com os campos FotoID e EventoID.
Da uma forcinha ae galera...

Edição feita por: Operador, 28/10/2005, 17:43.

[Luis Otávio]

não consegue pq? da erro? ou naum soma?

[Operador]

dá o seguinte erro:

Tipo de erro:
Erro de tempo de execução do Microsoft VBScript (0x800A01A8)
Objeto necessário: ''
/coberturas/baladas/todas.asp, line 34

a linha 34:

rsfotos2.Open "select count AS Total From tbl_fotos,tbl_eventos order by id desc", Conex, 3,3

Edição feita por: Operador, 28/10/2005, 20:51.

[getpaulo]

Você esqueceu de setar o recordset 2.


Caminho="DBQ=" & Server.MapPath("/coberturas/baladas/bd/bd_baladas.mdb")
Set Conex=Server.CreateObject("ADODB.Connection")
Conex.Open Caminho & ";Driver={Microsoft Access Driver (*.mdb)}","",""

Set rsfotos=Server.CreateObject("ADODB.Recordset")
Set rsfotos2=Server.CreateObject("ADODB.Recordset") rsfotos.Open "select * From tbl_eventos order by id desc", Conex, 3,3
rsfotos2.Open "select count AS Total From tbl_fotos,tbl_eventos order by id desc", Conex, 3,3

rsfotos.PageSize=9

If rsfotos.EOF Then
response.write "Não existem registros para exibição..."
Else

rsfotos.AbsolutePage = Cint(n_page)

contador=0
While not rsfotos.EOF AND contador < rsfotos.PageSize

Set rsMostraFoto = Conex.Execute("select top 5 * from tbl_fotos where EventoID=" & rsFotos("ID"))
sFoto = rsMostraFoto("Foto")
rsMostraFoto.Close
Set rsMostraFoto = Nothing
%>

[Operador]

Agora deu um outro tipo de erro:

Tipo de erro:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.
/coberturas/baladas/todas.asp, line 35

a linha é a mesma, acho que teria que fazer alguma coisa que está faltando no select pra buscar as fotos do evento tal e fazer a soma...

[Generation]

Muito estranho esse seu select kd o criterio do evento ?

não seria assim ?

"Select Count(*) As Total From tbl_fotos where EventoID =" & rs("IDEvento")"

[Operador]

Fiz assim:

rsfotos2.Open "Select Count(*) As Total From tbl_fotos where EventoID =" & rsfotos2("IDEvento") & "", Conex, 3,3

e deu erro:

Tipo de erro:
ADODB.Recordset (0x800A0CC1)
O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado.
/coberturas/baladas/todas.asp, line 35

[Holy Demons]

Faz um teste ai

rsfotos2.Open "select count AS Total From tbl_fotos,tbl_eventos order by id desc"

[Operador]

desta forma já havia tentando e da erro:

Parâmetros insuficientes. Eram esperados 1.

[Holy Demons]

e desta forma

rsfotos2.Open "Select Count(*) As Total From tbl_fotos where EventoID ='" & rsfotos2("IDEvento") & "'", Conex, 3,3

[Operador]

Vc apenas repetiu o que já tinha feito anteriormente logo acima pode prestar atenção e da o mesmo erro...

Isso está me tirando o juizo

[Generation]

Voce tem uma tabela de eventos com a id do evento e tudo +, e outra tabela com todas as fotos desse evento, correto ?Me diga :

Quais os campos da tabela de eventos ?
Quais os campos da tabela de fotos ?

[Operador]

Na tabela (tbl_eventos) tem apenas o campo ID.
Na tabela (tbl_fotos) tem o campo FotoID e um outro campo com o nome EventoID

[Generation]

Set rs  = Server.CreateObject("ADODB.RecordSet")
SQL = "Select * From tbl_eventos ORDER By ID Desc"
Set rs = Conex.Execute(SQL)
If Not rs.EOF Then
   Set rs1  = Server.CreateObject("ADODB.RecordSet")
   SQL1 = "Select Count(*) As Total From tbl_fotos where EventoID =" & rs("ID")
   Set rs1 = Conex.Execute(SQL1)
   IF rs1.EOF Then
      Response.write "Existem "&rs1("Total")&" Fotos neste Album"
   Else
      Response.Write "Album sem Fotos"
   End IF
Else
   Response.Write "Não existem Eventos"
End If

Tente

[Operador]

Vai direto para album sem fotos...

lembrando que eu não clico em nada para fazer a busca e sim é uma página de todos os eventos cadastrados.