Associar Duas Procuras No Banco De Dados

[The Lau]

Ai pessoal esse é f...

No banco de dados eu tenho hora data e código...e eu faço a procura através do Find....ai se ele retornar EOF então ele marca...até aí tudo bem....Mas isso não está funcionando....

Porque tanto a data como nome como o código podem ser incluidos...sem gerar erro de duplicidade...tem que ser assim....

Então o que eu pergunto é o seguinte....

Tem como associar uma procura no BD através da hora e do campo auto? Ou seja tem que procurar a data e se achar tem que achar o código auto numerado....

auto..data....................hora..codigo..nome..data

001....1-26/05/05..........5:30....002.....Ana...

002....1-26/05/05..........5:31....003.....Grilo...

003....2-26/05/05..........6:32....002.....Ana

004....2-26/05/05..........7:30....003......Grilo

Eu estava localizando pela data....ai não deu certo pois tem repetido

Eu estava localizando pela hora...vai que justo na hora ele insira outra...

Tenho um combo quebusca as avaliações da Ana...e elas são exibidas nesta ordem........................................1-26/05/05

..................................................2-26/05/05

e ao clicar nesta primeira COMO vou conseguir buscar justamente a linha dela?

COMO VOU CONSEGUIR ASSOCIAR NA BUSCA?????? SEM CONSTAR QUE ISSO É TUDO NO MEU PROJETO...SE ESSE BUSCA FALHAR EU TO FERRADO...alguém TEM UMA IDEIA MELHOR????????????????????

[Graymalkin]

Não entendi bem o que você quer... você quer procurar por dois campos ao mesmo tempo? Seria isso? Se for, é só associar as duas condições pelo operador AND.

Abraços,

Graymalkin

[The Lau]

Olha eu tentei...tinha esse código e tentei colocar o (And) hehe mas não deu certo....alguém tem idéia aí...Será que é problema library?

Private Sub LocalizarHora()

Dim criterio, marcador As Variant

cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _

App.Path & "\Imc.MDB"

TBImc.Index = "IndHora"

'Abre o Recordset

TBImc.CursorLocation = adUseClient

'TBImc.Open "Select Hora,Data,Nome From Imc", cnn, adOpenKeyset, adLockOptimistic, adCmdText

TBImc.Open "Select * From Imc", cnn, adOpenKeyset, adLockOptimistic, adCmdText

TBImc.MoveFirst 'eu coloquei

criterio = cboData.Text And cboNome.Text

' aqui dá erro: Run Time error 13 'type 'mismattch

'TBImc.Find criterio, 0, adSearchForward '''essa linha da erro tambem ai coloqui MoveFirst lá em cima...

If Not TBImc.EOF Then

marcador = TBImc.Bookmark

'MsgBox "Achei"

If Not IsNull(TBImc![Hora]) Then

lblHora = TBImc![Hora]

Else

lblHora = ""

'MsgBox " não achei"

End If

End If

TBImc.Close

cnn.Close

End Sub

[Graymalkin]

O critério tem que ser uma string com os campos e os respectivos valores. Portanto, o correto seria você fazer algo assim:

criterio = "DateValue(data)=DataValue('" & cboData.Text & "') AND nome='" & cboNome.Text & "'"
TBImc.Open "Select * From Imc WHERE " & criterio, cnn, adOpenKeyset, adLockOptimistic, adCmdText

E, você não precisará daquele Find, já que somente os registros que atenderem ao critério estarão em "TBImc".

Abraços,

Graymalkin

[The Lau]

Dim criterio, marcador

cnn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\Imc.MDB"

TBImc.Index = "IndHora"

TBImc.CursorLocation = adUseClient

criterio = "DateValue(data)=DataValue('" & cboData.Text & "') AND nome='" & cboNome.Text & "'"

TBImc.Open "Select * From Imc WHERE " & criterio, cnn, adOpenKeyset, adLockOptimistic, adCmdText '''Nesta linha deu esse erro....

RunTime error '2147217900(80040e14)' Undefened function "Data value 'in expression.

If Not TBImc.EOF Then

marcador = TBImc.Bookmark

MsgBox "Achei"

If Not IsNull(TBImc![Hora]) Then

lblHora = TBImc![Hora]

Else

lblHora = ""

End If

End If

TBImc.Close

cnn.Close

End Sub

E sinseramente eu não sei o que fazer...

[The Lau]

Como esse erro se referiu ao Data Value vale salientar que essa data esta funcionando como se fosse um numero aleatorio pois essa disposição 1 - 05/05/05

e atraves da concatenação do list count ... Não sei se ajudo mas...Agradeço desde já a gentileza...

[The Lau]

Tem algum problema de deixar assim o critério? Parece que funcionou...

TBImc.CursorLocation = adUseClient

criterio = "data=('" & cboData.Text & "') AND nome='" & cboNome.Text & "'"

[Graymalkin]

Ops... digitei uma letra errada. Não é DataValue e sim DateValue (igual ao primeiro). Perdão pela falha.

Abraços,

Graymalkin

[Guest Guest]

Vou testar essa ultima alteração...e ai te digo!

Independente disto!Você não tem noção de como me ajudou!

Agora posso dar continuidade...

Obrigado...