Shopping Hospedagem Fórum Contato
     
   O portal do desenvolvedor ASP Florianópolis-SC, Segunda-feira - 12 de Novembro de 2018  
Busca

Menu do site
Efetuar Login
Usuário:

Senha:

 Esqueceu a senha?
Login automático

 Cadastre-se
Encher uma ComboBox com dados de uma Base de Dados
Avaliações: 25   -   Minha nota: Média Geral: 5  

Encher uma combo box com dados da Base de Dados é algo que normalmente os programadores de ASP precisam muito. Este código apresenta-nos um exemplo de como o fazer. É algo que todo o iniciante deve de ler e implementar.

Primeiro abrimos a base de dados, executamos a declaração de SQL, e guardamos o resultado num recordset. Assim que temos o recordset, fazemos um loop que põe os dados dentro da Combo Box. A estrutura da BD usada para este exemplo é muito simples e apresenta-se a seguir :

Topic
ID Number
Name Text


Aqui está o código, muito simples de se perceber.

<%
' o objecto para a conexão
Dim objConnection
' o objecto para o recordset
Dim objRecordset

' criação do objecto para a conexão
Set objConnection = Server.CreateObject("ADODB.Connection")
' abrir a conexão por DSN
objConnection.Open

' criação do objecto recordset
Set objRecordset = Server.CreateObject("ADODB.Recordset")


' criar a declaração de SQL
Dim strSQL
strSQL = "SELECT ID, NAME FROM TOPIC"

' executar a declaração de SQL desejada
' Esta deverá de retornar toda a informação pretendida
' para dentro da Combo Box
objRecordset.Open strSQL, objConnection
%>

<HTML>
<BODY>
<FORM ACTION="umurl.asp" METHOD=POST>
Choose from the combo:
select name="lstTopic" size="1">
<%
' enquanto não chegamos ao fim dos dados
Do While Not objRecordset.EOF
'pomos o valor do Id
' muito importante para tabelas linkadas
%>
<option VALUE="<%=objRecordset("ID")%>">
<!-- Aqui é o que aparece na Combo -->
<%=objRecordset("NAME")%></option>
<%
' Movemos para os dados seguintes do recordset...
objRecordset.MoveNext
Loop ' continuamos o Loop
%>

</SELECT>
</FORM>

</BODY>
</HTML>


<%
' fechar o objecto do recordset
objRecordset.Close

' limpar o objecto do recordset
Set objRecordset = Nothing
%>






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