FLEXGRIG - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: FLEXGRIG

Jbr

RIBEIRÃO DAS NEVES
MG - BRASIL

ENUNCIADA !

Postada em 21/01/2010 12:01 hs

Bom dia a todos
Estou precisando de uma ajudinha  dos nobres colegas sobre msflexgrid
preciso fazer uma consulta por cada letra digitada e ir preenchendo o grid mas não conseguir mesmo vendo alguns exemplos. o banco de dados é fireBird
este é o codigo.
Function Busca()
BuscaCodigo.Filter = " & mercadoria_m LIKE *'" & Text1.Text & "*'"
If BuscaCodigo.RecordCount <> 0 Then

        Dim LinhaAtual As Integer
         LinhaAtual = 1
        Grid1.Rows = 1

          Grid1.Rows = Grid1.Rows + 1
          Grid1.Row = LinhaAtual
          Grid1.Col = 0
          Grid1.Text = BuscaCodigo!codigo_m
          Grid1.Col = 1
          Grid1.Text = BuscaCodigo!descicao

         Grid1.Col = 2
        Grid1.Text = BuscaCodigo!preco_custo
        Grid1.Col = 3
       Grid1.Text = BuscaCodigo!preco_venda
       Grid1.Col = 4
       Grid1.Text = BuscaCodigo!quantidade

         LinhaAtual = LinhaAtual + 1

        Grid1.FixedRows = 1
desde já agradeço

Treze

SÃO VICENTE
SP - BRASIL

Postada em 21/01/2010 12:44 hs

tente

BuscaCodigo.FindFirs_t"mercadoria_m LIKE '" & Text1.Text & "*'"
If BuscaCodigo.RecordCount <> 0 Then
With Grid1

.Rows = 1

.Cols = 5

.FixedRows = 1

.FixedCols = 0

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

BuscaCodigo.FindNext "mercadoria_m LIKE '" & Text1.Text & "*'"

Loop

End With

OBS: tire o underline (_) da palavra FindFirs_t, escreva tudo junto, pois se eu colocar tudo junto, o site altera para FindMin

Lembre-se coloque o código acima no evento KeyPress do Text1.text

veja se funciona

TÓPICO EDITADO

Jbr

RIBEIRÃO DAS NEVES
MG - BRASIL

ENUNCIADA !

Postada em 22/01/2010 11:42 hs

Bom dia Treze
fiz como você diz mas ainda está dando erro.
e seleciona o ponto findFirs_t mesmo tirando underline
Function Busca()
BuscaCodigo.FindFirs_t "mercadoria_m LIKE '" & Text1.Text & "*'"
parece que no meu não aparece esta propriedade pois não aparece automaticamente igual as outras quando digita buscaCodigo.

está é a conecção que eu estou usando
Public Compra As String
Global cn As New ADODB.Connection
Public Sub Conection1()
Dim con As String
con = "DSN=conection1;PWD=masterkey;UID=SYSDBA"
cn.ConnectionString = con
cn.Mode = adModeReadWrite
cn.Open
End Sub
será que tem alguma coisa aver

não respondi antes pois estava sem energia
desde já agradeço e peço desculpa pela mina inexperiência

Página(s): 1/1

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

VOLTAR