USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (ActiveX/Controles/DLL)

Título da Dica:  Como carregar um combo em uma unica linha passando um SQL
Postada em 14/7/2007 por Jailton Sampaio      Clique aqui para enviar email para o autor  jailton_sampaio@hotmail.com
'Como Chamar
CarregarComboBoxExtra "Select...", "CampoDescricao", "CodigoTabela", NomeDoCombo, , , "", "campoPraOrdenar"
  
Public Sub CarregarComboBoxExtra(SQL As String, nmCampo As String, cdCampo As String, Pcmb As ComboBox, Optional SetarInicio As Boolean, Optional ComTodos As Boolean, Optional TextoInicial As String)
    Dim rs As ADODB.Recordset
    '*--- Procedure criada para carregar combobox
    ' ligando ampulheta
    Screen.MousePointer = vbHourglass
    ' motando sql
    glSql = SQL
    ' executando
    Set rs = cnConn.Execute(glSql)
    Pcmb.Clear
    ' se quiser acrescentar <TODOS>
    If ComTodos Then Pcmb.AddItem "<TODOS>"
    If Len(TextoInicial) > 0 Then Pcmb.AddItem TextoInicial
    While Not rs.EOF
        ' Nome do registro
        Pcmb.AddItem rs.Fields(nmCampo).Value
        ' Chave do registro
        Pcmb.ItemData(Pcmb.NewIndex) = rs.Fields(cdCampo).Value
        rs.MoveNext
    Wend
    ' setando pra o primeiro
    If SetarInicio Then If Pcmb.ListCount > 0 Then Pcmb.ListIndex = 0
    ' desligando ampulheta
    Screen.MousePointer = vbNormal
    rs.Close
End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2021   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página