Pessoal,

 

como preencher um data grid com o onteudo de uma tabela..?

obs.: não estou usando o datacontrol.

 

abraços

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

Desculpe deu branco, as propriedades databasename é do objeto data, é o horário

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

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