olá gente...

Sou novato no Visual Basic e por isso estou com algumas dúvidas.

Como tenho pouca base, utilizo o Visual Data Manager para acessar banco de dados.

Gostaria de saber se alguem pode me ajudar a localizar um registro.

Eu consegui fazer a inclusão, a exclusão, a alteração e consegui fazer com que salvasse os dados. Mas não estou conseguindo localizar. Será que alguem pode me ajudar a localizar um registro usando o Visual Data Manager?

 

Se pudessem me ajudar, ficaria grato...

Abraços e até a próxima.

meu eu tb sou novato por isso entendo bastante de coisa de novato....

 

 

mas vamos ao que enteressa

 

se você estiver usando o onjeto DataControl faz assim.

 

Private Sub cmdPesquisar_Click()

Pesquisa = InputBox("Digite o Nome >")

 

If Pesquisa = "" Then

 

Exit Sub
   
End If

Data1.Recordset.FindMin "NomeTabela='" & Pesquisa & "'"

 

If Data1.Recordset.NoMatch Then

 

MsgBox "Registro não encontrado!"

 

End If

 

End Sub

 

 

* O NomeTabela você deverá substituir por um campo dentro da sua tabela....por exemplo eu tenho uma tabela chamada carros e dentro dessa tabela chamada carros eu tenho o campo Marca, então eu substituiria o NomeTabela por Marca...

 

Blz, se precisar posta mais vezes....

 

 

t++

 

Um Abraço!

JackAss, tentei fazer mas não deu certo...

Aparece a mensagem de erro " Run-time error '438':

  Object doesn´t support this property or method.

 

Coloquei do jeito que você disse. O nome da Tabela é Razao Social.

 

Ah, quando coloca clientes.recordset.findMin, ele não aparece essa opção... Será por isso que deu erro?

 

Aparece FindMin, FindMax, FindNext e FindPrevious...

Segue o código....

 

Dim pesquisa As String
  pesquisa = InputBox("Digite o nome")
   If pesquisa = "" Then
     Exit Sub
   End If
   datClientes.Recordset.findMin "Razao Social='" & pesquisa & "'"
 If datClientes.Recordset.NoMatch Then
  MsgBox "Nao encontrado"
 End If

 

Podem me ajudar?

Desculpe é que eu errei mas no lugar de findmim coloque FindMin='" & pesquisa & "'"...

 

Foi malz pelo erro!