Erro na pesquisa no VB

[Thiago Caires]

Eu preciso fazer outra pesquisa.....

preciso fazer ele me trazer o resultado se o preso é

primario ou reincidente.

parece ser simples.....

mas na base de dados do Access ele grava assim...

TEM A COLUNA "PRIMARIO"

se o preso for primario vai estar o valor SIM

se o preso for reincidente vai estar o valor NÃO

se o preso for primario vai estar o valor SIM

se o preso for reincidente vai estar o valor NÃO

E assim por diante....

agora me ajuda a pensar como eu posso fazer essa pesquisa

ele trazendo o resultado no "list"

exemplo : 50 primarios

90 reincidentes

OLha eu já montei uma programação....

mas ele esta me repetindo o resultado na lista um monte de vezes.... sai um lista grande

sendo que era para sair apenas

Existem "valor" Reeducandos primarios

Existem "valor" Reeducandos reincidentes

OLha o código:

Private Sub cmdpesquisar_Click()

estado.RecordSource = "select * from qualificativa"
estado.Refresh

List1.Clear

Dim rel As String
Dim Sim As Currency
Sim = 0
Dim Não As Currency
Não = 0
Dim stotal As String
stotal = 0

While Not estado.Recordset.EOF

rel = estado.Recordset.Fields("primario") & ""

qualificativa.RecordSource = "select * from qualificativa where esta='SIM'"
qualificativa.Refresh

Dim relig As String

While Not qualificativa.Recordset.EOF
relig = qualificativa.Recordset.Fields("primario") & ""

If relig = rel Then
Sim = Sim + 1
Não = Não + 1
End If

qualificativa.Recordset.MoveNext
Wend

List1.AddItem "Existem: " & Format(Sim, "00") & " Reeducandos primarios " & rel
stotal = stotal + Sim
Sim = 0

List1.AddItem "Existem: " & Format(Não, "00") & " Reeducandos Reincidentes " & rel
stotal = stotal + Não
Não = 0

estado.Recordset.MoveNext
Wend

End Sub

Private Sub Data_Validate(Action As Integer, Save As Integer)

End Sub

Private Sub Form_Load()

var0b = Conexao(estado, caminho_bd, "qpalzmMZN", False)
var0b = Conexao(qualificativa, caminho_bd, "qpalzmMZN", False)

End Sub

Se alguém puder me ajudar agradeço muito!

Thiago Caires

Editado Março 30, 2009 por kuroi
Adicionar tag CODE

[kuroi]

tenta isso:

Private Sub cmdpesquisar_Click()

estado.RecordSource = "select Count(*) As Conta from qualificativa"
estado.Refresh

List1.Clear

qualificativa.RecordSource = "select Count(*) As Conta from qualificativa where esta='SIM'"
qualificativa.Refresh

List1.AddItem "Existem: " & qualificativa.Recordset.Fields("Conta") & " Reeducandos primarios"
List1.AddItem "Existem: " & estado.Recordset.Fields("Conta") - qualificativa.Recordset.Fields("Conta") & " Reeducandos Reincidentes"

End Sub[/code]
mas não entendi o q é a variavael rel.

[Thiago Caires]

Deu certo....

mas sóh tem um problema.... eu preciso que ele me de esse resultado, levando em conta a data do dia...

e não todos os reeducandos que já passaram na unidade....

realmente eu coloquei uma váriavel a mais...

uma igual a outra.... e com a mesma função....

agora que eu reparei também....

será que você poderia me ajudar nisso...

Grato!!

Thiago Caires

[kuroi]

você tem no banco de dados um campo q guarda a data não?? ai é so filtrar por ele:

estado.RecordSource = "select Count(*) As Conta from qualificativa Where NOME_DO_SEU_CAMPO_DATA = #" & Format(Date, "YYYY-MM-DD") & "#"

[Thiago Caires]

OLha eu encontrei como fazer fazer ele me dá a quantidade correta....

tem um campo que os funcionários preenchem...

se o reeducando se encontra na unidade ou não....

se o campo que se chama "ESTA" dentro da tabela "QUALIFICATIVA" for = SIM...

ai conta agora se for igual a NÃO... ai ele não conta....

AGORA ALGUÉM PODE ME DAR UMA IDEIA DE COMO EU POSSO FAZER BATER ESSAS INFORMAÇÕES?

Agradeço desde já

Thiago Caires

[kuroi]

não entendi nd do q você quer