Selecionando Campos Da Tabela

[Curry]

Como posso crirar um select que chame apenas os campos da minha tabela que são sim/não ??

pensei mais ou menos assim:

<%
for each (criterio para selecionar os campos true/false) = true
response.write "<option>" & (campo da tabela que está true) & "</option>"
loop
%>

Estou no caminho certo ??

[.Andreia.]

a idéia é:

sql = "select * from TABELA where campo = true"

[Curry]

Mas o que eu preciso é que todos os campos que sejam booleanos apareçam, não quero selecionar um campo que seja true, mas TODOS os campos que estiverem true para incluí-los no select....

[.Andreia.]

ue, mas ai não tá marcado que é só um campo. Se você faz uma consulta com where como marquei e depois percorrer os resultados (while not...) todos os campos que atenderem a SQL, aparecerao

[Curry]

Então onde você colocou a palavra "campo" eu substituo pelo que ??

Desculpe, mas não acompanhei teu raciocínio

[.Andreia.]

eu passei somente um exemplo porque não conheço tua tabela. Campo é o nome do campo que tem os valores booleanos.

[Curry]

Esse é o problema, eu queria pegar todos que tem valor TRUE. Tem como eu especificar somente buscar campos pelo valor deles ao invés de selecionar um campo como critério

[JCMPJ]

O que você quer é o nome dos campos que tem como valor "TRUE"?

A sua tabela só tem um registro?

Se for isso, um jeito pode ser:

<%
rs.Open "SELECT * FROM suatabela", suaconexao
For each campo IN rs.fields
     If campo.Value = true Then
          response.write "<option>" & campo.Name & "</option>"
     End If
Next
%>

Deve funcionar.Se não for isso, explica ai o que é que você vai fazer.

[Curry]

Isso mesmo, JCMPJ, mas sem abusar, como eu excluo um dos campos que vai aparecer desta busca ??

[Curry]

Pensei da seguinte forma:

<%

for each campo in rsInf.fields

if campo.value = true then

if campo.name = "cto" then

(aqui eu teria que colcoar um comando para quebrar o loop antes de entrar esse campo que é o último)

end if

response.write "<option>" & UCase(campo.name) & "</option>"

end if

next

%>

Esse último campo é o último da tabela, e que eu não quero mostrar, como eu quebro o loop antes dele exibir este campo

[Jony Walker]

Tenta assim:

for each campo in rsInf.fields
     if campo.value = true then
     if campo.name = "cto" then
     exit for
     end if
     response.write "<option>" & UCase(campo.name) & "</option>"
     end if
next

[.Andreia.]

Curry, desculpa, eu não tinha entendido sua duvida!