select vazio

[Marc 0]

Galera, estou usando o código abaixo para selecionar do banco todos os valores contidos na tabela voto.

 

<% Dim Conn, BD, SQL, RSBD=Server.MapPath("clicks.mdb")SET Conn = Server.CreateObject("ADODB.Connection")Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & BD 	SQL="SELECT * FROM Click_voto ORDER BY voto DESC" 	SET RS=Conn.Execute(SQL)response.write sql%>

Mas o Select está vindo vazio.

 

com essa resposta.

 

SELECT * FROM Click_voto ORDER BY voto DESC

salva aí moçada.

 

valeu

[Marc 0]

Por favor, alguém para dar um socorro.

[Marhault 1]

HUAHUAHUAHUHAU Olha oq você escreveu no response.write:

 

<% Dim Conn, BD, SQL, RS

 

BD=Server.MapPath("clicks.mdb")

 

SET Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & BD

 

SQL="SELECT * FROM Click_voto ORDER BY voto DESC"

SET RS=Conn.Execute(SQL)

 

response.write sql

%>

 

você mandou ele escrever o SQL.... você tem q mandar ele escrever o recordset... Assim:

 

<% Dim Conn, BD, SQL, RS

 

BD=Server.MapPath("clicks.mdb")

 

SET Conn = Server.CreateObject("ADODB.Connection")

Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & BD

 

SQL="SELECT * FROM Click_voto ORDER BY voto DESC"

SET RS=Conn.Execute(SQL)

 

response.write RS("NOMEDOCAMPO")

%>

 

No lugar de NOMEDOCAMPO você coloca o nome do campo (damnnn) q você quer exibir....

Deu pra entender?

[dimarcinho 0]

melhor ainda:

 

While Not RS.EOFresponse.write RS("NOMEDOCAMPO") & "<br>"Wend

[Marhault 1]

melhor ainda:

While Not RS.EOFresponse.write RS("NOMEDOCAMPO") & "<br>"Wend

Só coloquei o q ele pediu.... :huh: