Select com dados do banco de dados mysql

[rafaeldupalio 5]

Nao sei se fui explicativo no titulo entao vamos lá:

 

Nas minhas paginas html tenho alguns select's um exemplo pratico:

 

Windows:

<label for="windows"></label>

<select name="Windows" id="Windows">

<option value="<%=var_Windows%>" selected="selected"><%=var_Windows%></option>

<option value="N/D">N/D</option>

<option value="WINDOWS_BF_PT">Brasfels Português</option>

<option value="WINDOWS_BF_ENG">Brasfels Inglês</option>

<option value="WINDOWS_CYDER_PT">Cyder Português</option>

<option value="WINDOWS_CYDER_ENG">Cyder Inglês</option>

</select>

Como Faria para que puxasse do banco de dados essas informações? logo teria outra pagina para cadastrar os itens e assim teria real controle do itens no estoque.

[tianth 2]

Simples:

<%
dim strSQL: strSQL = "select campovalue, campoDescription from tabela"
dim rs: set rs = server.createObject("Adodb.recordset")
rs.open strSQL, conexaoAqui

if not(rs.eof) then
'Se houver registros...

'Escreve o label bunitinho (ficou meio gay isso velho)
response.write("<label for=""campo"">Meu label</label>")

'manda select 
response.write("<select name=""nome"" id=""idaqui"">")

do while not(rs.eof)
'Faça enquanto rs não chegar ao fim

 response.write("<option value=" & rs("campovalue") & ">" & rs("campodescription") & "</option>")

rs.movenext 'NUNCA esqueça o .moveNext!

loop 

response.write("</select>") 

end if 

set rs = nothing 'Feche o rs 
minhaConexao.close 'Caso termine aqui o uso da conexao

%>

[rafaeldupalio 5]

 

Simples:

<%
dim strSQL: strSQL = "select campovalue, campoDescription from tabela"
dim rs: set rs = server.createObject("Adodb.recordset")
rs.open strSQL, conexaoAqui

if not(rs.eof) then
'Se houver registros...

'Escreve o label bunitinho (ficou meio gay isso velho)
response.write("<label for=""campo"">Meu label</label>")

'manda select 
response.write("<select name=""nome"" id=""idaqui"">")

do while not(rs.eof)
'Faça enquanto rs não chegar ao fim

 response.write("<option value=" & rs("campovalue") & ">" & rs("campodescription") & "</option>")

rs.movenext 'NUNCA esqueça o .moveNext!

loop 

response.write("</select>") 

end if 

set rs = nothing 'Feche o rs 
minhaConexao.close 'Caso termine aqui o uso da conexao

%>

Veio eu consegui fazer mas ele lista td o banco até ae blz mas como nao repetir os resultados? exemplo:

placa de video:

geforce9800

geforce9800

geforce9800

so mostrar um

[tianth 2]

Como assim "todo o banco"? Se está repetindo resultados talvez seu select está errado, considere testa-lo no seu gerenciador de bando de dados primeiro: HEIDiSQL, sqlmanager, etc..

[rafaeldupalio 5]

Como assim "todo o banco"? Se está repetindo resultados talvez seu select está errado, considere testa-lo no seu gerenciador de bando de dados primeiro: HEIDiSQL, sqlmanager, etc..

<%

vSql = "SELECT * FROM TAB_QUADRO_BRASFELS ORDER BY CODIGO DESC"

Set myRst = Server.CreateObject("ADODB.Recordset")

myRst.Open vSql, conn, 3, 3

%>

 

Memória

<label for="memoria"></label>

<select name="Mem" id="memoria">

<%

do while not myRst.EOF

var_codigo = myRst.fields("codigo")

var_mem = myRst.fields("Mem")

%>

<option value="<%=var_mem%>"><%=var_mem%></option>

<% myRSt.MoveNext

loop

%>

</select>

esse é o codigo que eu tenho, faço um select no inicio da pagina como sao varios campos:

memoria,processador,hd etc... a ideia inicial era fazer um sleec full do banco e ir fazendo o do while nos option value mas ae vem os dados repetidos.