Mudei de ADO para DAO

[AndersonDutra 4]

Estava fazendo um programa em ADO, só que como não tenho muito conhecimento com ADO, tive alguns problemas que não estava conseguindo resolver, então achei melhor mudar para DAO. Só que a consulta dinamica que estava dando certo em ADO, não está mais dando certo em DAO.

Em ADO estava assim:

estoque.Open "SELECT * FROM Estoque WHERE Material LIKE '" &Text1.Text &"%'ORDER BY Material", Conexao

Agora como passei para DAO ele está assim

estoque.OpenRecordset "SELECT * FROM Estoque WHERE Material LIKE '" & Text1.Text & "%' ORDER BY Material", Conexao

O resto do código está certo é só a consulta mesmo que não dá certo.

[DyogoJAA 0]

Estava fazendo um programa em ADO, só que como não tenho muito conhecimento com ADO, tive alguns problemas que não estava conseguindo resolver, então achei melhor mudar para DAO. Só que a consulta dinamica que estava dando certo em ADO, não está mais dando certo em DAO.

Em ADO estava assim:

estoque.Open "SELECT * FROM Estoque WHERE Material LIKE '" &Text1.Text &"%'ORDER BY Material", Conexao

Agora como passei para DAO ele está assim

estoque.OpenRecordset "SELECT * FROM Estoque WHERE Material LIKE '" & Text1.Text & "%' ORDER BY Material", Conexao

O resto do código está certo é só a consulta mesmo que não dá certo.

<{POST_SNAPBACK}>

Se você estiver usando Access o Caracter curinga que você está utilizando é que está errado

 

O Correto seria o *

estoque.Open "SELECT * " & _                     "FROM Estoque " & _                     "WHERE Material LIKE '" & Text1.Text  & " *' ORDER BY Material", Conexao

assim fufa tanto no ADO ,quanto no DAO .

 

Espero ter ajudado

[luiz humberto 0]

estoque.OpenRecordset "SELECT * FROM Estoque WHERE Material LIKE '" & Text1.Text & "%' ORDER BY Material", Conexao

Você está abrindo o RecordSet de maneira errada, primeriamente tem que identifcar o banco de dados fazendo assim:

Dim BD  As DAO.DatabaseDim RS  AS DAO.RecordsetSet BD = DAO.Workspaces(0).OpenDatabase(BD,,Abertura,senha)Set RS = BD.OpenRecordset("SELECT * FROM Estoque WHERE Material LIKE '" & Text1.Text & "%' ORDER BY Material",dbOpenTable)

Outra forma de se fazer:

Dim BD             As DAO.DatabaseDim SQL_Query As QueryDefDim RS             AS DAO.RecordsetSet SQL_Query = BD.CreateQueryDef("","SELECT * FROM Estoque WHERE Material LIKE '" & Text1.Text & "%' ORDER BY Material")Set RS = SQL_Query.OpenRecordset()

Tenho o help do ADO em português, muito bom caso queira posso enviar para você.

[kauebranco 0]

po cara você podia enviar pra mim ?? seria muito bom !!! ------------- kauebranco@hotmail.com -------------

[luiz humberto 0]

Faz o seguinte baixe deste link.

 

HELP ADO

 

Resolveu o problema da consulta?

[kauebranco 0]

ann vlww cara !! muito bom isso !! mo adianto !! !