Fafá
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 20/10/2010 19:57 hs
A dúvida não foi minha, rs! Tôh programando em VB6. Olha minha busca... AdcCnc.RecordSource = "select Codlivro, Titulo, Isbn, Autor, Editora, Genero from cadastrolivro where Autor like '" & TxtAut.Text & "%' and desativado = 0" Esta buscando pela 1° letra certo? Como faço pra se eu colocar a letra 'a' ele apareça também a 'Cabana' ?!
|
|
|
|
|
|
|
|
Postada em 21/10/2010 00:33 hs
este é o codigo que tenho
SQL=" select * from CADASTRO where GENERICO like '*SOL*' order by REGISTRO "
agora coloquei um campo onde o pessoal vai poder digitar os valor por exemplo
quer procurar no campo GENERICO todos que tenham as palavar TÊNIS, PILOTO
do mesmo jeito que escrevi aqui separado por virgula seria o jeito mais facil de consultar acredito
|
|
|
|
|
|
Postada em 21/10/2010 10:30 hs
só vc agrupar mais um critério.
SQL=" select * from CADASTRO where GENERICO like '*SOL*' and GENERICO like '*MAR*' order by REGISTRO "
sendo que a expressão and irá procurar os registros que possuem SOL e(and) MAR. Caso vc queira um ou o outro você deve usar a expressão or(ou), ficando assim:
SQL=" select * from CADASTRO where GENERICO like '*SOL*' or GENERICO like '*MAR*' order by REGISTRO "
|
|
|
|
|
|
Postada em 21/10/2010 11:38 hs
Scaliburth
vc fez o teste de 2 like num so sql?
ja que nao se pode usar 2 like no mesmo sql, alias para o mesmo campo a pesquisar.!
|
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 21/10/2010 14:19 hs
galera tenho soh um TEXT para consulta onde as consultas são separadas por virgula
por ex: Digite os itens para consulta : MAR, SOL, ROD
o SQL q o Treze me passou ficou fera soh q consigo consultar somente 1 item.
|
|
|
|
|
|
Postada em 21/10/2010 19:40 hs
As vezes peço o código completo pois fica mais fácil de adaptar conforme a necessidade da pessoa.
mas vamos lá basta vc criar uma array dinamica e fazer um loop de consulta
ex:
Dim Consulta() As String
Consulta = Split(txtConsulta, ",")
For L = LBound(Consulta) To UBbound(Consulta)
SQL=" select * from CADASTRO where GENERICO like '*" & Consulta(L) & "*' order by REGISTRO "
Set RS = CNN.Execute(SQL)
Do While Not RS.EOF
List1.AddItem RS!GENERICO
RS.MoveNext
Loop
Next L
bom da maneira descrita acima, usando ADO, vc vai digitar na txtConsulta o que deseja separado por virgula, exemplo: MAR, SOL, ROD
o SPLIT cria uma array baseado na virgula, ai um laço for fará a consulta uma a uma exibindo o resultado na listbox
|
|
|
|
