• 0
Sign in to follow this  
Zegre

Banco De Dados

Question

Eu gostaria de saber qual a melhor maneira de contar quantas vezes aparece um mesmo nome numa base de dados, já experimentei várias situações mas o resultado é sempre o mesmo assim que ele encontra o 1º nome salta da procura eu quero ir até ao fim do campo a pesquisar. O código que eu uso é

Private Sub FindPerson(person As String)

Dim findRecord As Recordset

'Use a inputbox to get what person to find

person = InputBox("What person do you want to find?", "Find person")

'If nothing is entered, assume that user want's to abort

If person = "" Then Beep: Exit Sub

'if we want to use datacontrol

'set with block so we dont need to write dtaEmployment everytime

With dtaEmployment

'Search in Name field for person wanted

.Recordset.FindFirst "Name='" & person & "'"

If .Recordset.NoMatch Then Beep: Exit Sub

'we found our person

cont = cont + 1

End With

'mostra o nº de vezes que aparece o nome

Text1.Text = cont

End Sub

Se alguém me puder ajudar ficaria muito agradecido

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

o que é dtaEmployment?? é um datacontrol??

você deve por num loop, acho que seria tipo assim:

cont = 0
With dtaEmployment
     'Search in Name field for person wanted
     .Recordset.MoveFirst
     Do While Not .Recordset.EOF
          .Recordset.FindNext "Name='" & person & "'"

          'we found our person
          cont = cont + 1
     Loop
End With
If cont = 0 Then Beep: Exit Sub
'mostra o nº de vezes que aparece o nome
Text1.Text = cont[/code]

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this