Shopping Hospedagem Fórum Contato
     
   O portal do desenvolvedor ASP Florianópolis-SC, Terça-feira - 23 de Outubro de 2018  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
ComboBox ou Listbox com dados de um banco de dados
Avaliações: 35   -   Minha nota: Média Geral: 6  
Vamos aprender neste artigo como preencher um ComboBox ou um Listbox com os dados de um banco de dados



Segue abaixo o script do exemplo:
 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
<%
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Data Source=C:\pasta\database.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
 
strQ = "SELECT * FROM UF ORDER BY nome ASC"
Set objRS = objCon.Execute(strQ)
 
Response.Write "<SELECT NAME='estado'>"
Response.Write "<OPTION VALUE='' SELECTED></OPTION>"
 
If Not objRS.EOF Then
  While Not objRS.EOF
    Response.Write "<OPTION VALUE='" & objRS("nome") & "'"
    If Request("estado") = objRS("nome") Then Response.Write " selected"
    Response.Write ">" & objRS("nome") & "</OPTION>"
    objRS.MoveNext
  Wend
End If
 
Response.Write "</SELECT>"
 
objCon.Close

Set objRS = Nothing
Set objCon = Nothing
%>


Nas linhas 2 e 3 é feita a conexão com o banco de dados.
Logo em seguida, nas linhas 5 e 6, são capturados todos os registros da tabela UF pela ordem crescente do nome

Na linha 8 inserimos o código HTML que inicia a criação de um ComboBox
Inserimos então uma opção em branco
pré-selecionada na linha 9

Na linha 11, verificamos se foram encontrados os registros
Criamos um loop na linha 12 para ler todos os registros encontrados

Na linha 13 criamos uma opção e inserimos o valor da mesma
A linha 14 serve para que possamos definir uma opção a ser selecionada por padrão
Neste caso, quando for igual a opçao vinda de um formulário anterior ou através da URL. Me refiro ao método Request.

Na linha 15 escrevemos o titulo e finalizamos a opção
Na linha 16 vamos para o proximo registro

Na linha 17 finalizamos o Loop.
Na linha 20 fechamos o combobox

Fechamos a conexão na linha 22, e abaixo liberamos as variaveis da memória.



O código acima ira gerar um ComboBox, para gerar um ListBox, como mostra a figura do topo, basta alterar a linha 8, incluindo o código em vermelho, como mostra abaixo:

Response.Write "<SELECT NAME='estado' SIZE=10>"


Espero que este exemplo lhe seja útil.


Um grande abraço!
Fabiano Dias
fabiano@superasp.com.br



Fabiano Dias
fabiano@superasp.com.br

www.superasp.com.br
O portal do desenvolvedor ASP




SuperASP do Brasil Ltda

03.066.522/0001-84
Av. Rio Branco 433 - Centro - Florianopolis - SC
Contato

© 2001/2008 - Superasp do Brasil Ltda. Todos os direitos reservados