Vb6 X Ado.net > Select From Where Order

[Guest Ivan SInigaglia]

Eu tinha um formulário para um banco de dados em uma tabela apenas em DAO com o VB6 onde eu usava um botão de comando com o código abaixo para fazer a procura por exemplo de nomes. Essa procura podia ser fieta com o nome inteiro ou qualquer parte do nome ou mesmo com uma sequência de letras e no formulário eu tinha os registros que apresentavam esse nome ou nomes com a sequência de letras digitadas numa InputBox. Eu usava " * " para poder fazer a procura dessa maneira mas no VB.NET não está funcionando. Eu tenho de tirar o " * " e ai ele só procura exatamente o vaor correspondente. Alguém sabe como resolver isso?

(Caso os caracteres dos códigos abaixo saiam incompletos ele ficará em http://www.ivan.med.br/cod.html)

1) Código no VB6:

Dim Pesquisa as String

Pesquisa = InputBox ("Busca por nome")

´>>> Resumindo código até a linha de seleção >>>

"SELECT Tabela.* FROM tabela WHERE Nome= ' * " & Pesquisa & " * ' ORDER BY Nome"

2)Código no VB.NET (ADO.NET)

Dim Pesquisa as String

Pesquisa = InputBox ("Busca por nome")

cnConexaoOleDB.Open()

daDataAccessOleDB.SelectCommand.CommandText = "SELECT Tabela.* FROM tabela WHERE Nome= ' " & Pesquisa & " ' ORDER BY Nome"

daDataAccessOleDB.Fill(dsDataSet, "Tabela")

cnConexaoOleDB.Close()

Note que aqui no VB.NET tive de tirar os " * " que estavam em ´ * " & Pesquisa " * ' para poder funcionar mas não consigo que ele faça essa leitura tipo *nome*. Se alguém souber e puer me ajudar ficarei agradecido.

Muito Obrigado.

Ivan Sinigaglia.

[Graymalkin]

A partir de uma certa versão do ADO, o caracter curinga que representa qualquer string de qualquer comprimento (inclusive nulo) passou a ser o % e não mais o *. Experimente com este.

Abraços,

Graymalkin