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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  preencher data grid
MIRO SILVA
SÃO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 02/02/2006 18:10 hs            
Pessoal,
 
como preencher um data grid com o onteudo de uma tabela..?
obs.: não estou usando o datacontrol.
 
abraços

Argemiro Aguiar da Silva

Criativa Produtos e Serviços

5511 2135-9600

   
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 03/02/2006 06:37 hs            
Os objetos DBGRID tem uma propriedade recordsource, em que vc pode setar a tabela, e a propriedade DatabaseName aonde é possivel setar a base de dados.
Já o Msflexgrid  voce utiliza a propriedade DataSource aonde voce pode setar a tabela em forma de SQL

dsmn
     
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 03/02/2006 06:49 hs            
Desculpe deu branco, as propriedades databasename é do objeto data, é o horário

dsmn
     
Ivo Barcelos
não registrado
ENUNCIADA !
Postada em 03/02/2006 09:24 hs   
Olá Miro Silva
Apesar de ser muito fácil popular um grid pela a propriedade datasource não recomendo
pois veja bem ao fazer isto vc nao tem controle do que esta sendo inserido no grido entende o grid faz tudo por vc se tiver pau de registros o controle irá jogar o erro pra fora na execução do projeto e pra achar onde esta este erro??? fica dificil
costumo popular meus grids via codigo mesmo
abra um recordset e crie um looping atraves do recordset para preenchar cada celula do grid
cada um cada um mas dessa forma vc tem todo o controle do que esta sendo inserido.
 
 
    Dim Rs As adodb.recorset
    Set Rs = New adodb.recordser
    Rs = AbreRecordSer 'Função que retorna um recordset
    Do While Not Rs.EOF
        With Grid
            .TextMatrix(.Rows - 1, 0) = Rs!Codigo
            .TextMatrix(.Rows - 1, 1) = Rs!Nome
        End With
        Rs.movenext
    Loop
   
Ivo Barcelos
não registrado
Postada em 03/02/2006 09:29 hs   
Ops desculpe esquecei de incrementar as linhas do grid
 
    Dim Rs As adodb.recorset
    Set Rs = New adodb.Recordset
    Rs = AbreRecordSet 'Função que retorna um recordset
    With grid
        Do While Not Rs.EOF
            .Rows = .Rows + 1
            .TextMatrix(.Rows - 1, 0) = Rs!Codigo
            .TextMatrix(.Rows - 1, 1) = Rs!Nome
            Rs.movenext
        Loop
    End With
End Sub
     
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