PASSAR CONSULTA PARA COMBOBOX

SNNIFFER 05/06/2010 10:01:44
#343944
Estou usando este códgo, onde faço uma consulta na tabela e passo o resultado para um Combobox, só que, por exemplo:

Na tabela tenho 10 registros, com campos, Nome e Sexo, selecionando no Form a opção Masculino, eu quero que ele filtre na tabela todos com nome masculino e preencha a ComboBox.

Estou tentando usar.

If prs.RecordCount = 0 Then
cmdOK.Enabled = False
Else
cmbNome.Clear
prs.MoveFirst
prs.Find [Ô]Sexo like [ô]*[Ô] & cmbSexo.Text & [Ô]*[ô][Ô]
While (prs.EOF = False)
cmbNomes.AddItem prs.Fields([Ô]Nomes[Ô]), 0
prs.MoveNext
Wend
End If

O problema é que o Comando MoveNext, passa para o proximo registro, assim, preenchedo a combo com todos os nome, não só com os Masculinos.


Vlw
LIZANDER 05/06/2010 10:09:55
#343945 Resposta escolhida
Porque vc não tenta:


If prs.RecordCount = 0 Then
cmdOK.Enabled = False
Else
cmbNome.Clear
prs.MoveFirst
While not prs.EOF
if prs([Ô]NOIMEDOCAMPOSEXO[Ô]) = conteudoquedefineosexoselecionado then
cmbNomes.AddItem prs.Fields([Ô]Nomes[Ô]), 0
end if
prs.MoveNext
loop
End If
EDERMIR 05/06/2010 10:15:34
#343947
Sua consulta deve ter o filtro:

prs.open [Ô]select * from TABELA where Sexo like [ô]*[Ô] & cmbSexo.Text & [Ô]*[ô][Ô]
If prs.RecordCount = 0 Then
        cmdOK.Enabled = False
Else
        cmbNome.Clear
        prs.MoveFirst
        While (prs.EOF = False)
                cmbNomes.AddItem prs.Fields([Ô]Nomes[Ô]), 0
                prs.MoveNext
        Wend
End If
SNNIFFER 05/06/2010 10:19:11
#343948
Funfou blz, vlw galera!!
Tópico encerrado , respostas não são mais permitidas
Voltar