USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  MsflexGrid - Ado, com exibir dados
Ganbity
RIO DE JANEIRO
RJ - BRASIL
Postada em 15/10/2004 07:57 hs            
ola galera eu queria saber como é que exibo dados de uma tabela em Msflesgrid com ado.
sendo que eu quero exibir somente alguns dados, e eu memso nomear as colunas.
                Muito grato

"A complexidade do programa cresce até exceder a competência do programador. "

Luciano de Paula

Desenvolvedor - Analista

lufra2@bol.com.br

 
     
Capitao Caverna
SERRINHA
BA - BRASIL
Postada em 15/10/2004 19:35 hs         
mesmo procedimento do DAO, só é usar a propriedade Textmatrix(row, col) para povoar o msflexgrid.
 
     
Ganbity
não registrado
Postada em 17/10/2004 07:18 hs   
Capitão caverna, o problema é seguinte: eu uso esse código abaixo só esta dando o seguinte erro:
Run-time error '30009':
invalid Row Value

CONECTA_BANCO 'conecta o banco de dados
Set tfilho = New ADODB.Recordset
tfilho.Open "SELECT * FROM filho where nome_entrevistado = '" & txtnome.Text & "'", banco, , adLockOptimistic 'abre a tabela funcionários
'exbi os dados no Grid
icont = tfilho.RecordCount
G.Rows = icont + 1
G.ColWidth(0) = 1000
G.ColWidth(1) = 800
G.ColWidth(2) = 800
G.Row = 0
G.Col = 0
G = "Nome"
G.Col = 1
G = "Data de nacimento"
G.Col = 2
G = "Idade"
Do Until tfilho.EOF = True
    With G
    .Rows = .Rows + 1
    .Row = .Rows - 1
    .TextMatrix(.Row, 0) = tfilho.Fields("nome_filho")
    .TextMatrix(.Row, 1) = tfilho.Fields("data_nacimento")
    .TextMatrix(.Row, 2) = tfilho.Fields("idade_filho")
    tfilho.MoveNext
    End With
Loop
If G.Rows - 1 > 0 Then
G.Row = 1
End If
     
Roberto
não registrado
Postada em 17/10/2004 21:45 hs   
Desculpe se estiver enganado, mas voce configurou a propriedade do flexgrid,
cols para o numero de colunas que vc vai usar no flexgrid (o default é 2 colunas)...
     
Ganbity
não registrado
Postada em 19/10/2004 07:36 hs   
sim eu configurei foi a primeira coisa que eu verifiquei.
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página