Boa Tarde,

 

É possível preencher um DataGrid ou DBGrid via código ? Ou seja sem vincular a uma tabela ? Apenas com os dados que forem sendo inseridos no form. Se for, gostaria de um exemplo.

 

Muito obrigado.

Dá pra fazer assim:

 

Private Sub preenche_grid()

With cmd
    .ActiveConnection = cnn 'indica a conexão
    .CommandType = adCmdText 'indica o tipo de comando
    .CommandText = "select * from tabela" 'comando para selecionar a tabela
    Set rs = .Execute 'preenche o rs com a consulta
End With
With rs
    Set DataGrid1.DataSource = rs 'lança o recordset no grid
    DataGrid1.Caption = "LANÇAMENTOS " 'põe um nome no grid
    DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell 'define para selecionar toda a linha o grid
    DataGrid1.Columns.Item(0).Caption = "Cheque" 'define o nome da primeira coluna (0) se for (1) segunda se (2) terceira ...etc
    DataGrid1.Columns.Item(0).Width = 800 'define o tamnaho
    DataGrid1.Columns.Item(3).NumberFormat = "dd/mm/yyyy" 'formata a data
    DataGrid1.Columns.Item(4).NumberFormat = "standard" ' formata a coluna como numero moeda sem o R$
    DataGrid1.Columns.Item(4).NumberFormat = "Currency" ' formata a coluna como numero moeda com os caracteres R$
    DataGrid1.Columns.Item(4).Alignment = dbgRight ' define o alinhamento do texto à direita da coluna
    Datagrid1.Columns.Item(0).Alignment =dbgLeft' define o alinhamento do texto à esquerda da coluna
    DataGrid1.Columns.Item(5).Alignment = dbgCenter ' define o alinhamento do texto no centro da coluna
End With

End Sub

 

Espero ter ajudado...