opa
como é que eu faco um combo box listar todo conteudo de uma tabela?
ja teneei e nao consegui...
valeu
Como Faco Um Combo Box Listar Todo Conteudo
Started By leanjo, 01/04/2005, 23:05
2 replies to this topic
#2
GuiSantos
-
- Usuários
-
- 235 posts
Eu sou bunito nao?
- Sexo:Não informado
- Localidade:Taquara-RS
Posted 02/04/2005, 00:22
Tenta isso:
Ve se da certo ae, to começando agora, então, se der erro, da um toque
<%
set DB = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.Mappath("teubanco.mdb")
DB.open constr
Set lista = Server.CreateObject("ADODB.Recordset")
%>
<%
strSQL = "SELECT * FROM tabela"
lista.Open strSQL,DB,3,1
%>
<select name="Lista">
<%
do While not lista.EOF
%>
<option value="<%=lista("id")%>"><%=lista("campo")%></option>
<%
lista.MoveNext
Loop
%>
</select>
Ve se da certo ae, to começando agora, então, se der erro, da um toque
To meio ausente ultimamente!
#3
leanjo
-
- Usuários
-
- 912 posts
Doutor
- Sexo:Não informado
- Interesses:...
Posted 02/04/2005, 00:51
perfeito
valeu
valeu
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)
