4 replies to this topic

[ZoiudO]

Olá povo, bom dia!

Pesquisei no forum sobre isso e não encontrei,
por isso posto aqui minha dúvida.

Estou fazendo um gerenciador de conteúdo
em ASP, só para estudar mesmo (mas naquelas,
se eu conseguir fazer o sistema inteiro, vamos
apresentar a alguns clientes), e me veio a questão:

Existe a possibilidade de um trazer de um
banco de dados, os conteúdos para o campo SELECT
de um formulário?

Ex.

<select name="select">
<option>AA</option>
<option>BB</option>
<option>CC</option>
<option>DD</option>
</select>

Só que ao invés de eu estipular os dados no HTML,
ele traria do BD, capitche?rs


Aproveitando para tirar outra Dúvida minha:
(vou explicar mostrando o que acontece ok?)

Por exemplo, eu selecionei o "BB" do Campo acima.
Assim que eu selecionar, automaticamente abre
o conteúdo dele logo abaixo da lista. Que raios é isso?


Antes de qualquer coisa, obrigado!!

[sk15]

Bem selecionar os campos de um banco de dados e jogar em um select é facio ... o problema e exibir embaixo do select .... você poderá fazer isso de 4 formas

1- Usar Ajax para carregar o conteudo e mostrar abaixo do select (o mais recomendavel)
2- Carregar tudo e esconder em uma "DIV" e dpois ativar via o select
3- Colocar um IFRAME abaixo que quando seleciona o select carrega emabixo
4- Carrega totalmente a página com uma query string mostrar os dados

Escolha a que vc achar melhor, mas patra mostrar um select faça assim é façil ...

' Faz a Conexão ...

' Executa uma Query Qualquer
Set rs = Conexao.Execute("SELECT * FROM Cidades ORDER BY Nome ASC")

' Faz a Listagem das CIdades em um Select
Responde.Write "<select name=""cidades"" size=""1"">"
While Not rs.Eof
 Responde.Write "<option value=""" & rs("ID") & """>" & rs("Nome") & "</option>" & vbCrLf
 rs.MoveNext 
Wend
Responde.Write "</select>"

[ZoiudO]

Opa Sk15!

obrigado por ter respondido!

vou aplicar aqui...valeu as dicas!!


Mas eu vou por esse codigo aonde? antes de iniciar o html
ou no meio do form?

para abrir a conexão, eu to usando o seguinte:

<%
cnpath="DBQ=" & Server.MapPath("bd.mdb")
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath

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

Conn.Open DataSource
%>

tá ok?

abração!!

Edição feita por: ZoiudO, 08/03/2007, 13:31.

[sk15]

Em qualquer lugar, desde que ele conecte primeiro antes de fazer a seleção SQL tipo assim

CERTO

' Faz a Conexão ...
cnpath="DBQ=" & Server.MapPath("bd.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open DataSource

' Executa uma Query Qualquer
Set rs = Conn.Execute("SELECT * FROM Cidades ORDER BY Nome ASC")

' Faz a Listagem das CIdades em um Select
Responde.Write "<select name=""cidades"" size=""1"">"
While Not rs.Eof
Responde.Write "<option value=""" & rs("ID") & """>" & rs("Nome") & "</option>" & vbCrLf
rs.MoveNext 
Wend
Responde.Write "</select>"

ERRADO

' Executa uma Query Qualquer
Set rs = Conn.Execute("SELECT * FROM Cidades ORDER BY Nome ASC")

' Faz a Listagem das CIdades em um Select
Responde.Write "<select name=""cidades"" size=""1"">"
While Not rs.Eof
Responde.Write "<option value=""" & rs("ID") & """>" & rs("Nome") & "</option>" & vbCrLf
rs.MoveNext 
Wend
Responde.Write "</select>"

' Faz a Conexão ...
cnpath="DBQ=" & Server.MapPath("bd.mdb") 
DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
Set Conn = Server.CreateObject("ADODB.Connection") 
Conn.Open DataSource

É isso a conexão vem primeiro de tudo!

Edição feita por: sk15, 08/03/2007, 15:26.

[ZoiudO]

VAAAAAALEU!

muito obrigado!