Dúvida cruel! Sobre Query (Consulta)


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Dúvida cruel! Sobre Query (Consulta)

katapoka

CRAVINHOS
SP - BRASIL

Postada em 05/09/2006 19:20 hs

Olá sou novo e...

Preciso de ajuda sobre uma rotina de busca em tabela .mdb que busque somente u pedaço do string! Tipo tem lá vários tipos de pomadas!

_______________ Realize a busque por Pomada e encontre todos esses valores

|Pomada Hipoglós | e carregue em um listbox para que com um duplo clique eu

|Pomada Blábláblá| adicione ele a outro textbox!

|Pomada Flano | Carregue assim

|Pomada Bertrano | <==========

Vlw gente!!!

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 05/09/2006 19:23 hs

Ok, como vc faz a conexão ao seu banco? ADO ou DAO? Coloque o trecho de código aqui por favor.

t+ :)

katapoka

CRAVINHOS
SP - BRASIL

Postada em 12/09/2006 20:17 hs

dao

option explicit

dim db as database

dim rs as recorset

private sub form_load()

set db = opendatabase(app.path & "dados.mdb"

set rs = db.openrecordset("Dados, dbopentable")

rs.index = "ïndex"

private sub pesquisar_click()

rs.seek "=",

e taltaltaltaltal

mas precisa? desculpa a pergunta, e q ainda nao aprendi em ado!!

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 12/09/2006 23:39 hs

Bom, não entendi o "precisa" mas td bem... perguntei pq é pouca coisa diferente em DAO, temos 2 maneiras para campos numéricos veja:

option explicit

dim db as database

dim rs as recordset

Dim RsTemp as Recordset

private sub form_load()

set db = opendatabase(app.path & "dados.mdb")

set rs = db.openrecordset("Dados", dbopentable)

end Sub

'1ª MANEIRA

Private sub pesquisar_click()

Set RsTemp = db.OpenRecordset("Select * from Dados WHERE ID = 10")

While Not RsTemp.EOF

Debug.Print RsTemp(1)

RsTemp.MoveNext

Loop

End Sub

' 2ª MANEIRA

Private sub pesquisar_click()

rs.Index = "PrimaryKey"
rs.Seek "=", 10

While NOT Rs.EOF
Debug.Print rs(1)

Rs.MoveNext

Wend

End Sub

Agora com palavras não recomendo usar o SEEK. Eu acho melhor usar uma sql direto mas tb podemos usar o filter:

'1ª MANEIRA

Private sub pesquisar_click()

Set RsTemp = db.OpenRecordset("Select * from Dados WHERE nome LIKE 'pomada*'")

While Not RsTemp.EOF

Debug.Print RsTemp(1)

RsTemp.MoveNext

Loop

End Sub

' 2ª MANEIRA

Private sub pesquisar_click()

Rs.Filter = "Nome LIKE 'pomada*'"

Set RsTemp = Rs

While Not RsTemp.EOF

Debug.Print RsTemp(1)

RsTemp.MoveNext

Loop

End Sub

A expressão 'pomada*' procura todas as palavras q comece com 'pomada'

se vc fizer assim '*pomada*' procura todas as palavras q contenham a palavra 'pomada'

Se vc fizer assim '*pomada' procura todas as palavras q termine com 'pomada'

certo??

qq dúvida postae

at+

TÓPICO EDITADO

katapoka

CRAVINHOS
SP - BRASIL

Postada em 13/09/2006 18:45 hs

vlw, vou testar e vlw a dica hein!!

E deculpe ai eu ter perguntado pq, e q eu sou meio noob pra isso!

katapoka

CRAVINHOS
SP - BRASIL

Postada em 14/09/2006 16:03 hs

desculpe, mas não consegui fazer... vai aqui o meu código original!!, é q eu estava sem ele, e fiz de kbça, esse é o q eu uso, o projeto ta no começo!

[quote]

option explicit

dim Dados as database

dim TBProdutos as recorset

private sub form_load()

set Dados = opentadabase(app.path & "Produtos.mdb")

set TBProdutos = Dados.openrecordset("Produtos". dbopentable)

set tbproddutos.index = "Index"

end sub

private sub txtCode_keypress(keyascii as integer)

tbprodutos.seek "=", txtcode

if tbprodutos.nomatch = false then

lstprodutos.additem tbprodutos("Produto")

end if

end sub

private sub lstprodutos_click()

lstPrdFinal.additem lstprodutos.text

lstPrdFinal.additem " " & " ---- " & format(lblquantidade, "###.00") & " X " & _

format(tbprodutos("Preço"), "###.00") & "-------------" & (lblquantidade * _

tbprodutos("Preço")

end sub[/quote]

Ai eu quero uma rotina, no On keypress keyascii 13, que faça uma busca, até o fim do arquivo e q no lstprodutos adicione eles e q depois eu de um clique e passe para o list final, mais ou menos isso, entendeu? Tipo software de mercado ou farmácia!

Vlw de novo!

Ps.: Se possível passa pra mim um projetinho com um banco de dados, mesmo q seja horrivel e só com esta função, para eu ver, pq analisando o código, junto com o projeto ja pronto é mais fácil!!!

Vlw!!!

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR