|
|
|
|
|
|
|
|
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
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
|
|
|
|
|
