PESQUISA USANDO FLEXGRID
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
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
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
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
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
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
Porque não faz a busca via QUERY SQL?
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.
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.
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.
[Ô]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.
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
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
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]
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 .
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 .
Valeu!
Só não esquece de ENCERRAR O TÓPICO.
Sempre que precisar, é só postar!
Só não esquece de ENCERRAR O TÓPICO.
Sempre que precisar, é só postar!
como faço para ENCERRAR O TRÓPICO
Tópico encerrado , respostas não são mais permitidas