Localizando Registro

[daniel.itow]

Olá ! Estou com uma dúvida.....

Eu fiz um programa em vb6 q está conectado a um banco de dados em access. No programa do VB, eu utilizei o Visual Data Manager para configurar as tabelas. Assim, utilizo um campo Data para passar os registros (anterior, proximo, etc). Eu gostaria de saber como eu poderia localizar um registro no meu banco de dados. Por exemplo: O usuário poderia localizar um registro no banco de dados através do primeiro nome da pessoa......... como eu poderia fazer isso ??

Obrigado a todos.....

Daniel B)

[Graymalkin]

Um exemplo simples:

nnome=inputbox("Digite o nome:")
data1.recordset.findfirst "nome>='" & nnome & "'"

ok?

Graymalkin

[daniel.itow]

Eu coloquei esse codigo em um botao. Esse codigo faz com q apareça uma inputBox para q se digite o nome a ser procurado, mas assim q eu clico em OK novamente, a inputbox fecha e nada acontece, e o que era para ser localizado acaba não sendo.

Se puder me ajudar, agradeço.

Daniel. B)

[Graymalkin]

O que exatamente acontece após clicar no OK? E você tem certeza de que está digitando o início do nome que quer procurar?

Abraços,

Graymalkin

[William Rodrigues]

Brother !!!

você tem que informar na caixa do INPUT o mesmo nome que está no seu banco de dados cara...

Lembrando:

Se no seu banco de dados tá JOÃO SILVA, você vai ter que informar JOÃO SILVA na caixa do INPUT, pois se não sua busca vai dar errado, isso é, se sua busca foi simples, pois sabes que pode fazer com que seu programa busque pelo primeiro nome também (tipo o CRITÉRIO na Consulta do MS-Access)

Espero que tenha entendido o que eu quis dizer cara

Abraços,

William Rodrigues

[daniel.itow]

Eu já coloquei o código que vocês me passaram, mas dá erro quando eu o utilizo.

O código é o seguinte:

Dim nnome As Text
nnome = InputBox("Digite o nome:")
datCadastro.Recordset.FindFirst "datCadastro.Recordset.nome>='" & nnome & "'"

Dentro do meu banco de dados no access, possuo uma tabela com o nome de "Cadastro", o nome do meu campo Data é "datCadastro" (por isso o datCadastro.Recordset.FindFirst, e logo em seguida o datCadastro.Recordset.nome). E eu gostaria q quando o usuário pressionasse o botão ok, ele imprimisse o "resultado da pesquisa" apontando para o cadastro encontrado no programa, entendeu o meu problema ?? Eu estou tentando fazer isso mas não estou conseguindo. Qualquer ajuda, ficarei grato..... Vlw !!

[William Rodrigues]

Æ daniel.itow

cara, tenta colocar o seguinte (de acordo com a linha de código que passou!):

Dim nnome As String

nnome = InputBox("Digite o nome:")

datCadastro.Recordset.FindFirst "datCadastro.Recordset.nome>='" & nnome & "'"

Colocando o "nnome" como String seu programa saberá que "nnome" receberá uma cadeia de caracteres....E não informando que "nnome" é uma TEXT (Caixa de TextO).

Espero que tenha ajudado em seu código cara.....

Abraços,

William Rodrigues

[daniel.itow]

Eu fiz o que você disse pra fazer e a mensagem de erro q o vb me passa, é q ele não está reconhecendo "nome" como um campo válido. Sendo q o nome do campo é exatamente "nome" dentro da minha tabela "Cadastro".

Obrigado pela ajuda....

Qualquer ajuda..... pode postar.

Vlw !!

[daniel.itow]

Æ galera..... consegui resolver o problema..... com a ajuda de vocês tb, é claro !! Obrigado mesmo.

O codigo ficou assim:

Dim nnome As String
nnome = Text7.Text
datCadastro.Recordset.FindFirst "nome>='" & nnome & "'"

Obrigado a todos.... abraço.

:D :rolleyes: B)

[William Rodrigues]

Æ cara..

que bom que pude, particularmente, te ajudado....

e qualquer coisa cara, posta aí...

Abraços,

William Rodrigues