domingo, 14 de julho de 2002

De Tabela Para FORM <Select>

Rotina que le todos os registro de uma tabela e monta um combo select com seus registros


OBS: Nao esqueça de chamar a funcao dentro de um select :)


ex:


<SELECT NAME=nomedoselect>


<% call db2select("nome-da-tabela", "campo-onde-estava-o-valor", "campo-onde-estara-o-nome", "campo-ordenador", valor-a-vir-selecionado %>


</SELECT>


<%


Sub db2select(Tabela, Valor, Nome, Ordenador, Selected)


 Set objconex = Server.CreateObject("ADODB.Connection") : objconex.Open strconex
 Set RecSet = objconex.execute("SELECT * FROM " & Tabela & " ORDER BY " & Ordenador)


 if (Not RecSet.EOF) then
  RecSet.MoveFirst
  Do While Not RecSet.EOF
   If (RecSet.Fields.Item(valor) = Selected) then
    Response.Write("<option value=" & RecSet.Fields.Item(valor) & " selected>" & RecSet.Fields.Item(nome)) & "</option>" & chr(13))
   else
    Response.Write("<option value=" & RecSet.Fields.Item(valor) & ">" & RecSet.Fields.Item(nome)) & "</option>" & chr(13))
   end if
   RecSet.MoveNext
  Loop
 End If


 RecSet.Close : Set RecSet = Nothing : objconex.close : Set objconex = Nothing


End Sub


%>



Esta matéria foi postada originalmente no ASP4Developers por Daniel Passos (site), que na época era "Consultor de TI com fortes conhecimentos nas linguagens HTML, JavaScript, Perl, ASP e PHP. Conhecimentos básicos de Java (Swing, JSP & Servlets), orientação a objetos e UML, Banco de dados MySQL, SQL Server e Oracle.". Hoje, vai saber...

0 comentários: