[Resolvido]Alias no listbox modo lista de valores

Ola pessoal boa tarde gostaria de uma ajudinha no código abaixo para trazer junto com os dados acrescentar o nome do cabeçalho na lista.

idDeficiencia.RowSource = Empty
idDeficiencia.Requery

sSQL = "SELECT iddeficiencia, Deficiencia FROM tbldeficiencia Order By Deficiencia Asc;"
Call Conexao_Open(sSQL)

Do While Not Rs.EOF
idDeficiencia.AddItem "" & Rs("iddeficiencia") & ";" & Rs("Deficiencia") & ""
Rs.MoveNext
Loop

Rs.Close
Set Rs = Nothing

tentei de varias formas mais não veio alguém pode me da uma ajudinha.

Boa tarde,

idDeficiencia.RowSource = Empty
'idDeficiencia.Requery Não precisa dessa linha, pois vc está adicionando itens.
idDeficiencia.AddItem "Código";"Deficiência" 'Aqui é o cabeçalho: Código e Deficiência pode ser o que vc quiser.

sSQL = "SELECT iddeficiencia, Deficiencia FROM tbldeficiencia Order By Deficiencia Asc;"
Call Conexao_Open(sSQL)

Do While Not Rs.EOF
idDeficiencia.AddItem "" & Rs("iddeficiencia") & ";" & Rs("Deficiencia") & ""
Rs.MoveNext
Loop

Rs.Close
Set Rs = Nothing

Bom dia marcelo
Entao tentei coloca porem não deu certo meu amigo, da erro na escrita do select

Fala ai Marcelo...blza?

Aproveitando o gancho do amigo Marcelo David, faz assim:

Código:



dDeficiencia.RowSource = Empty
idDeficiencia.RowSourceType = "Value List"
idDeficiencia.Rowsource = "Código;Deficiência"

sSQL = "SELECT iddeficiencia, Deficiencia FROM tbldeficiencia Order By Deficiencia Asc;"
Call Conexao_Open(sSQL)

Do While Not Rs.EOF
idDeficiencia.AddItem "" & Rs("iddeficiencia") & ";" & Rs("Deficiencia") & ""
Rs.MoveNext
Loop

Rs.Close
Set Rs = Nothing


Boa sorte, man!!!
Abraço

Att,

Alexandre

grande alexandre como sempre ajudando agradeço a todos mais agora me apareceu outra situação queria fazer um filtro usando o like para pesquisar em qualquer parte do campo
no campo txtpesquisa tentei de varias formas porem sem sucesso sera que pode me da uma maozinha


Lista_Candidatos.RowSource = Empty
Lista_Candidatos.Requery

sSQL = "SELECT idcandidato, candidato, status FROM tblcandidato WHERE candidato like "& Me.txtpesquisa & " and STATUS='DISPONIVEL';"
Call Conexao_Open(sSQL)

Do While Not Rs.EOF
Lista_Candidatos.AddItem "" & Rs("idcandidato") & ";" & Rs("candidato") & ";" & Rs("status") & ""
Rs.MoveNext
Loop

Rs.Close
Set Rs = Nothing

Grande Marcelo !!!!

Vc tá usando MySQL, certo?

A instrução fica assim:

Código:


sSQL = "SELECT idcandidato, candidato, status FROM tblcandidato WHERE candidato like '%" & Trim(Me.txtpesquisa) & "%' AND STATUS='DISPONIVEL';"



Valeu !!!

Perfeito Alexandre funcionou certinho muito obrigado.

Valeu Marcelo...
Boa sorte !!!