Sou programador novo em VB e estou com um problema relativamente simples,
mas ainda dificil para o meu nivel de conhecimento.
Ficarei grato pela ajuda prestada....

Estou criando um sistema simples de consulta, onde o usuario vai digitar
um codigo, o programa ira busca-lo na base de dados e informar ao usuario
se aquele codigo existe ou nao, e se existir ira exibir os dados na tela.
Para melhor informa-los, o campo do form que ira receber a digitação,
será o 'txt_codigo' e o campo no banco de dados será o 'codigo'

usei os seguintes codigo para abrir o banco e para pesquisar....

'no módulo criei estas duas variaveis
    Public db As DataBase
    Public rsprodutos As RecordSet

'no meu MDIForm abri o banco de dados
    If Right(App.Path, 1) = "" Then
        Set db = OpenDatabase(App.Path + "dados.mdb")
    Else
        Set db = DBEngine.OpenDatabase(App.Path + "dados.mdb")
    End If

'no form estoque abri a tabela
    Set rsprodutos = db.OpenRecordset("produtos")

'dai o comando de pesquisa foi
    rsprodutos.MoveMin
    rsprodutos.FindMin "codigo ='" & txt_codigo.Text & "'"
    If rsprodutos.NoMatch Then
        MsgBox "Código não encontrado... Redigite!", VbInformation
    Else
        MsgBox "Código encontrado...Aguarde a exibição em tela!", vbInformation
    End If

Quando tento isso, o vb gera uma tela de erro dizendo:

Run-Time Error '3251'
Operação não suportada para este objeto

 

Por favor, alguem me ajude...
Estou precisando com muita urgencia disso para cumprir meus prazos...

Desde já muito obrigado.

Fernando Cesar Vaini
vaini@ig.com.br

Utilize o "Select" é mais prático e seguro.

 

Ex.: Select * From [NomeDaTabela] Where [Código] = " & txtCódigo & " Order By...

Desculpe a ignorancia, mas poderia me dar um help sobre como usar o select...como disse acima, sou novato em vb. Ate peguei alguma materia sobre select, mas nao dei conta de acompanhar sozinho....Ou pelo menos o que significa cada item do comando que voce me indicou....

 

Muito obrigado pela colaboração.

Dim vSQL As String
    vSQL = "Select * FROM BDCLIENT WHERE CL_NOME Like '*" & Txt_Consulta.Text & "*' order by CL_NOME"
    Data1.RecordSource = vSQL ' Execulta a consulta
    Data1.Refresh ' Atualiza os dados no DBGrid

Vou mandar um exemplo com o esquema que vc precisa usando conexao ADO e Consulta Select e ao enves de text InputBox (é mais pratico)

Obrigado a todos os que responderam as perguntas e tiveram a boa vontade de ajudar.

Enfim, consegui resolver o problema colocando o parametro dbOpenDynaset ao abrir o banco de dados e ao abrir a tabela. Dessa forma o metodo FindMin funciona.

 

Mesmo assim, muitíssimo obrigado a todos.