Exibindo Informações do Banco de Dados

[Legionáriors]

Novamente...

Erro:

Microsoft VBScript runtime (0x800A01A8)

Object required: 'conn'

E agora amigo???

hehehehehehehe

[Ted k']

crie o objeto, mostre sua conexão ai

[Rafael Spilki]

Tem que especificar os objetos no início de seu codigo:

dim conn, rs, sql

entre outros, ok?

[]'s Rafael Spilki

[Legionáriors]

Galera tá complicado vocês tão falando grego pra mim eu não to entendendo...

Me desculpem mas é por isso que to aqui pedindo ajuda porque não sei como colocar o script pra funcionar...

Abraço.

<%
sql = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])"

SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb"

Set rs = objConn.Execute(sql)
%>

<%

'numero de colunas
col=5

'fazemos o select
sql="select * from tabela"
set rs=conn.execute(sql)

if not rs.eof then

' esta var armazena o numero de colunas

colu=1

'começamos a tabela
response.write "<table><tr><td>"

'iniciamos o loop´
while no rs.eof

response.write rs("campo")

'fazemos  a contagem das colunas e se tiver no limite faz outra linha
if colu=col then
response.write "</td><tr><td>"

'reinicia contagem
colu=1

else

' como não alcançou o limite fazemos outra coluna
response.write "</td><td>"

'somamos +1 na variavel colu
colu=colu+1

end if

'terminamos o loop
rs.movenext
wend

response.write "</td></tr></table>"

end if
rs.close

set rs=nothing

%>

[Rafael Spilki]

esse erro qwue deu aí é q você não declarou os objetos... repare agora a primeira linha do se codigo e verás como fazer isso:

<%
'declarando objetos
dim sql, objConn, rs

sql = "SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])"

SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb"

Set rs = objConn.Execute(sql)

'numero de colunas
col=5

if not rs.eof then

' esta var armazena o numero de colunas

colu=1

'começamos a tabela
response.write "<table><tr><td>"

'iniciamos o loop´
while no rs.eof

response.write rs("campo")

'fazemos  a contagem das colunas e se tiver no limite faz outra linha
if colu=col then
response.write "</td><tr><td>"

'reinicia contagem
colu=1

else

' como não alcançou o limite fazemos outra coluna
response.write "</td><td>"

'somamos +1 na variavel colu
colu=colu+1

end if

'terminamos o loop
rs.movenext
wend

response.write "</td></tr></table>"

end if
rs.close

set rs=nothing

%>

sacou? tenta assim e posta os resultados!

[]'s Rafael Spilki

[Legionáriors]

Ok,

Pelo menos agora não deu erro nenhum...rsrsrsrsrsrs

Mas ficou a tela branca não apareceu nada

Valeu!

[Rafael Spilki]

Tem certeza de quem tem coisas cadastradas no Banco de Dados?

Se sim, de um debug no seu select desta forma:

response.write sql
response.end
'exatamente antes da linha abaixo!
Set rs = objConn.Execute(sql)

[]'s Rafael Spilki

[Legionáriors]

beleza fiz o que você mandou e sim tenho certeza de que tem algo cadastrado no banco to usando ele para outras coisas.

Apareceu o seguinte agora...

SELECT TOP 6 * FROM produtos ORDER BY Rnd(Int(Now()*[cat_id])-Now()*[id])

Só isso impresso na tela.

[Rafael Spilki]

faça um teste assim:

<%
'declarando objetos
dim sql, objConn, rs

sql = "SELECT TOP 6 * FROM produtos"

SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb"

Set rs = objConn.Execute(sql)

'numero de colunas
col=5

if not rs.eof then

' esta var armazena o numero de colunas

colu=1

'começamos a tabela
response.write "<table><tr><td>"

'iniciamos o loop´
while no rs.eof

response.write rs("campo")

'fazemos  a contagem das colunas e se tiver no limite faz outra linha
if colu=col then
response.write "</td><tr><td>"

'reinicia contagem
colu=1

else

' como não alcançou o limite fazemos outra coluna
response.write "</td><td>"

'somamos +1 na variavel colu
colu=colu+1

end if

'terminamos o loop
rs.movenext
wend

response.write "</td></tr></table>"

end if
rs.close

set rs=nothing

%>

[]'s Rafael Spilki

[Legionáriors]

hummmmmm...

'declarando objetos dim sql, objConn, rs sql = "SELECT TOP 6 * FROM produtos" SET objConn = Server.CreateObject("AdoDB.Connection") objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb" Set rs = objConn.Execute(sql) 'numero de colunas col=5 if not rs.eof then ' esta var armazena o numero de colunas colu=1 'começamos a tabela response.write "" 'iniciamos o loop´ while no rs.eof response.write rs("campo") 'fazemos a contagem das colunas e se tiver no limite faz outra linha if colu=col then response.write "

" 'reinicia contagem colu=1 else ' como não alcançou o limite fazemos outra coluna response.write " " 'somamos +1 na variavel colu colu=colu+1 end if 'terminamos o loop rs.movenext wend response.write "

" end if rs.close set rs=nothing %>

Tudo isso agora...

Desculpe rafael eu me enganei porque to com outros códigos abertos aqui. Agora fiz certo e continua não aparecendo nada na tela...

Valeu!

[Rafael Spilki]

estranho... da novamente um debug nessa nova instrução do select, da mesma forma que fizemos antes e posta aqui os resultados!

[]'s Rafael Spilki

[Legionáriors]

Apareceu novamente:

SELECT TOP 6 * FROM produtos

??

[Rafael Spilki]

mais um teste:

<%
'declarando objetos
dim sql, objConn, rs


SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb"

sql = "SELECT * FROM produtos"

Set rs = objConn.Execute(sql)

'numero de colunas
col=5

if not rs.eof then

' esta var armazena o numero de colunas

colu=1

'começamos a tabela
response.write "<table><tr><td>"

'iniciamos o loop´
while no rs.eof

response.write rs("campo")

'fazemos  a contagem das colunas e se tiver no limite faz outra linha
if colu=col then
response.write "</td><tr><td>"

'reinicia contagem
colu=1

else

' como não alcançou o limite fazemos outra coluna
response.write "</td><td>"

'somamos +1 na variavel colu
colu=colu+1

end if

'terminamos o loop
rs.movenext
wend

response.write "</td></tr></table>"

end if
rs.close

set rs=nothing

%>

não esqueça tb de sempre setar a varivel do campo a ser impresso aqui:

response.write rs("campo")

[]'s Rafael Spilki

Editado Setembro 6, 2008 por Rafael Spilki

[Legionáriors]

Tela branca de novo e já fiz o debug e nada...

[Rafael Spilki]

cara eu testei aqui e funcionou legal... seus debugs estão certinhos tb... acho que você esta esquecendo de setar o nome do campo:

<%
'declarando objetos
dim sql, objConn, rs


SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\Inetpub\wwwroot\Sites\Projeto Lojas Adri\banco\loja.mdb"
sql = "SELECT TOP 6 * FROM produtos"

Set rs = objConn.Execute(sql)

'numero de colunas
col=5

if not rs.eof then

' esta var armazena o numero de colunas

colu=1

'começamos a tabela
response.write "<table><tr><td>"

'iniciamos o loop´
while not rs.eof

response.write rs("nome do seu campo do bd")

'fazemos  a contagem das colunas e se tiver no limite faz outra linha
if colu=col then
response.write "</td><tr><td>"

'reinicia contagem
colu=1

else

' como não alcançou o limite fazemos outra coluna
response.write "</td><td>"

'somamos +1 na variavel colu
colu=colu+1

end if

'terminamos o loop
rs.movenext
wend

response.write "</td></tr></table>"

end if
rs.close

set rs=nothing

%>

o nome do banco você seta aqui:

response.write rs("nome do seu campo do bd")

depois é so personalizar...

[]'s Rafael Spilki

Editado Setembro 6, 2008 por Rafael Spilki

[Legionáriors]

beleza funfou, mas e se a minha pasta de imagens estiver em outro lugar, ela não está na mesma pasta do banco como faço para acessa-las??

Valeuzão Rafael...

[Rafael Spilki]

aham! Legal... mas não esquece que o tuto é do Bareta, ok?

Cara pra acessar outra tabela do banco, uma forma bem fácil e tranquila é criar um outro select, tipo:

sql1 = "SELECT TOP 6 * FROM nome_da_outra_tabela"
Set rs1 = objConn.Execute(sql1)

Só na esqueça de declarar os novos objetos: sql1 e rs1 lá na dim! tá lembrado? na hora de resgatar os dados desta outra tabela, você pode criar uma nova condição de loop usando o while ou se for apenas um dado que lhe enteressa sem o while:

'começo do loop
while not rs1.eof

response.write rs1("nome do seu campo do bd")
'fim do loop
rs1.movenext
wend

'...

'lá no final do caso, fecha porta e limpa a casa
rs1.close
set rs1=nothing

sacou?

agora é dar umas brincadas aí e ir vendo o que acontece... vais apanhar um pouquinho no início mas é normal, não esquenta a cabeça... e qualquer dúvida posta aí!

[]'s Rafael Spilki

[Legionáriors]

Boa tarde Rafael,

Certo tá funcionando mas não consigo exibir as imagens que estão na pasta images só aparece o nome da mesma como devo proceder?

Abraço!

Editado Setembro 6, 2008 por Legionáriors

[Rafael Spilki]

Para exibir a imagem use:

<img src='diretoriodaimagem/pastadaimagem/<%=rs("FotoM") %>' width="160" border="0" />

sacou?

[]'s Rafael Spilki

[Legionáriors]

beleza Rafa,

Mas a linha fica desta forma?

response.write rs <img src='/images/<%=rs("imagem")%>' width="160" border="0"/>

Estava assim:

response.write rs ("imagem")

[Rafael Spilki]

no lugar de

response.write rs ("imagem")

coloque:

%>
<img src='/images/<%response.write rs ("imagem")%>' width="160" border="0"/>
<%

[]'s Rafael Spilki

[Legionáriors]

Cara,

Sei que to ficando chato já mas agora não tá fazendo o loop nas imagens tá estático mesmo quando se dá refresh na página.

O que pode estar errado?

Abraço.

Segue completo para não dificultar as coisas...

<%
'declarando objetos
dim sql, objConn, rs

SET objConn = Server.CreateObject("AdoDB.Connection")
objConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=D:\Backup\Sites\Projetos\Projetos em Aberto\Projeto Lojas Adri\banco\loja.mdb"
sql = "SELECT TOP 9 * FROM produtos ORDER BY imagem"

Set rs = objConn.Execute(sql)

'numero de colunas
col=3

if not rs.eof then

' esta var armazena o numero de colunas

colu=1

'começamos a tabela
response.write "<table><tr><td>"

'iniciamos o loop´
while not rs.eof

%>
<img src='images/<%response.write rs ("imagem")%>' width="160" border="0"/>
<%

'fazemos  a contagem das colunas e se tiver no limite faz outra linha
if colu=col then
response.write "</td><tr><td>"

'reinicia contagem
colu=1

else

' como não alcançou o limite fazemos outra coluna
response.write "</td><td>"

'somamos +1 na variavel colu
colu=colu+1

end if

'terminamos o loop
rs.movenext
wend

response.write "</td></tr></table>"

end if
rs.close

set rs=nothing

%>

[Legionáriors]

Rafael,

Já consegui amigo, tá beleza agora...

Valeu mesmo

Abraço.

[Rafael Spilki]

Q. bom... Parabéns...

qualquer. coisa posta aí, ok?

[]'s Rafael Spilki

[Legionáriors]

Bhá não tem jeito mesmo to apanhando pra valer deste script...

Olha só pra mostrar outros itens da mesma tabela é possivel?

Na tabela eu tenho imagem, nome, descricao estão todos na mesma tabela e gostaria de mostra-los junto com a imagem pode me ajudar amigo?

Obrigado!!!

[Rafael Spilki]

Claro... sempre que você quiser mostrar algo vindo desta tabela use:

response.write rs("nome do campo")

podes repetir isso com todos os campos... o importante é colocar este codigo sempre entre o loop que começa no while e termina no movenext... o importante aqui vai ser você agrupar isso dentro das suas tags de tabelas...

[]'s Rafael Spilki

Editado Setembro 6, 2008 por Rafael Spilki