BUSCA EM BANCO DE DADOS [ADO]
Boa-tarde para todos. O meu problema agora é com a busca no mysql. Preciso que a busca seja feita atravéz da palavra exata, e se ela estiver no meio, ou no canto da palavra, além disto, precisava que ela fizess um tipo de "find next". O problema é que mesmo colocando o "1" no SkipRows, ele não procura abaixo do 1º registro encontrado. Se coloco os "*" para busca no meio/inicio/fim do registro, também não obtenho resultado. Na verdade só consigo fazer a bsuca normal. Estou usando assim
Dim vCod As Variant
Dim compodebusca As String
vCod = Text37.Text
compodebusca = Combo3.Text
recordset1registros.Find "" & compodebusca & " like '%" & vCod & "%'", adSearchForward
Cara, pq vc não utiliza SQL (Select * from TABELA Where CONDICAO ) ???
Não pode ser assim ???
Não pode ser assim ???
Tente assim
Fuii
Dim vCod As Variant
Dim compodebusca As String
Dim vFind as String
vCod = Text37.Text
compodebusca = Combo3.Text
vFind = "[" & campodebusca & "]" & " LIKE " & "%" & vCod & "%"
recordset1registros.Find (vFind), adSearchForward
[c]
Ou assim
Pela consulta
Dim vCod As Variant
Dim compodebusca As String
Dim SQL as string
vCod = Text37.Text
compodebusca = Combo3.Text
SQL = "SELECT * FROM SUA TABELA WHERE " & compodebusca & " Like " & "%" & vCod & "%;"
Conexao.Execute(SQL)
Fuii
A utilização do SQL é bem mais fácil...
Muito grato à  todos GERMANIR, perfeito, a 1º forma..
Tópico encerrado , respostas não são mais permitidas