PESQUISA USANDO FLEXGRID

JOTAPB 24/01/2010 11:33:12
#332730
Bom dia a todos. Mais uma vez estou recorrendo a ajuda dos nobres colegas
Não sei como resolver, já olhei alguns exemplos mas nada deu certo o problema é com flexgrid
tenho uma tabela produtos a qual quero fazer uma busca dinâmica mas com minha inexperiência ta difícil
segue o código se alguem puder mim ajudar. desde já agradeço

Function Busca()
[txt-color=#e80000] BuscaCodigo.Filter [Ô]mercadoria_m LIKE [ô][Ô] & Text1.Text & [Ô]*[ô][Ô][/txt-color]
If BuscaCodigo.RecordCount <> 0 Then
With Grid1
.Rows = 1
.Cols = 5
.FixedRows = 1
.FixedCols = 0
.FormatString = [Ô]Código |Descrição |Preço de custo |Preço de Venda |Quantidade |[Ô]
Do While Not BuscaCodigo.EOF
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = BuscaCodigo!codigo_m
.TextMatrix(.Rows - 1, 1) = BuscaCodigo!descicao
.TextMatrix(.Rows - 1, 2) = BuscaCodigo!preco_custo
.TextMatrix(.Rows - 1, 3) = BuscaCodigo!preco_venda
.TextMatriz(.Rows - 1, 4) = BuscaCodigo!quantidade

Loop
End With
End Function

me banco é firebid
JOSIMARCSILVA 24/01/2010 13:56:41
#332735
Não testei, mas tente assim.....

Function Busca()
BuscaCodigo.Filter [Ô]mercadoria_m LIKE [ô][Ô] & Text1.Text & [Ô]*[ô][Ô]
If BuscaCodigo.RecordCount <> 0 Then
With Grid1
.Rows = 1
.Cols = 5
.FixedRows = 1
.FixedCols = 0
.FormatString = [Ô]Código |Descrição |Preço de custo |Preço de Venda |Quantidade |[Ô]
Do While BuscaCodigo.EOF = False
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = BuscaCodigo!codigo_m
.TextMatrix(.Rows - 1, 1) = BuscaCodigo!descicao
.TextMatrix(.Rows - 1, 2) = BuscaCodigo!preco_custo
.TextMatrix(.Rows - 1, 3) = BuscaCodigo!preco_venda
.TextMatriz(.Rows - 1, 4) = BuscaCodigo!quantidade
BuscaCodigo.MoveNext
Loop
End With
End If
End Function
JOSIMARCSILVA 24/01/2010 13:59:42
#332736
Desculpe faltou um detalhe (=)...

Function Busca()
BuscaCodigo.Filter = [Ô]mercadoria_m LIKE [ô][Ô] & Text1.Text & [Ô]*[ô][Ô]
If BuscaCodigo.RecordCount <> 0 Then
With Grid1
.Rows = 1
.Cols = 5
.FixedRows = 1
.FixedCols = 0
.FormatString = [Ô]Código |Descrição |Preço de custo |Preço de Venda |Quantidade |[Ô]
Do While BuscaCodigo.EOF = False
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = BuscaCodigo!codigo_m
.TextMatrix(.Rows - 1, 1) = BuscaCodigo!descicao
.TextMatrix(.Rows - 1, 2) = BuscaCodigo!preco_custo
.TextMatrix(.Rows - 1, 3) = BuscaCodigo!preco_venda
.TextMatriz(.Rows - 1, 4) = BuscaCodigo!quantidade
BuscaCodigo.MoveNext
Loop
End With
End If
End Function
TECLA 24/01/2010 14:07:29
#332738
Resposta escolhida
Porque não faz a busca via QUERY SQL?
JOTAPB 25/01/2010 00:12:39
#332764
Com o código acima da o seguinte erro:
Run-timer error [ô]3265[ô]
O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado
se clicar em debug aponta para seguinte linha
BuscaCodigo.Filter = [Ô]mercadoria_m LIKE [ô][Ô] & Text1.Text & [Ô]*[ô][Ô]
no caso de usar bia QUERY SQL seria como pois não tem experiência esse é meu segundo progaminha e só leio as dicas dos colegas do VBMania
e só tem um tempinho de manhã antes do trabalho.
JOSIMARCSILVA 25/01/2010 23:42:08
#332826
JOTAPB, o erro que está dando
[Ô]Run-timer error [ô]3265[ô]
O item não pode ser encontrado na coleção correspondente ao nome ou ao ordinal solicitado

quer dizer que não existe o campo [Ô]mercadoria_m[Ô] na tabela correspondente ao recorset BuscaCodigo.
Verifica o nome do campo bem como se a tabela que você esta consultando está correta.
JOTAPB 26/01/2010 09:39:49
#332841
Bom dia Amigo você tinha razão sobre o error 3265, eu estava confundindo o código com a descrição, mas tá dando outro erro
Run-time error [ô]30016[ô] FixedRows must be at one less than Rows Value
e destaca a linha [txt-color=#e80000].FixedRows = 1[/txt-color]

já tentei achar o erro mas com minha experiência é difícil

e desculpe tomar o seu tempo com esses erros
TECLA 26/01/2010 09:44:13
#332843
Function Busca()
BuscaCodigo.Filter = [Ô]mercadoria_m LIKE [ô][Ô] & Text1.Text & [Ô]*[ô][Ô]
If BuscaCodigo.RecordCount <> 0 Then
With Grid1
.Rows = 2 [txt-color=#007100] <----- Altere esta linha somente no seu código[/txt-color]
.Cols = 5
.FixedRows = 1
[txt-color=#007100]... Aqui continua com o seu código[/txt-color]
JOTAPB 26/01/2010 11:05:39
#332859
Deu certo
Valeu, muito obrigado a vocês , pela grande ajuda e pelo tempo que dedicaram a ajudar aos outros. Que DEUS continue a iluminar os teus caminhos sempre .

TECLA 26/01/2010 11:26:24
#332862
Valeu!

Só não esquece de ENCERRAR O TÓPICO.
Sempre que precisar, é só postar!
JOTAPB 27/01/2010 12:45:27
#332948
como faço para ENCERRAR O TRÓPICO
Página 1 de 2 [11 registro(s)]
Tópico encerrado , respostas não são mais permitidas