Tweet
Só lembrando que no declarations do Form devemos ter sempre os seguintes objetos :
Através de um Command (CMD) retornaremos os dados e povoaremos um recordset (rs) para preenchermos o Datagrid com os dados da tabela/recordset
Nossa sub (teremos como base nossa tabela clientes dos exemplos anteriores)
Digamos que queremos preencher o datagrid com os campos (Cod, nome, nascimento) da nossa tabela
Agora é só por num evento que quisermos para que nosso Datagrid seja preenchido, neste caso, no Load do Form
E é isso galerinha GH .
Atenciosamente,
ex_SheL$
'objeto command que irá inserir, excluir etc.. dados no BD
'Recodset que trará valores da tabela em nossas consultas
'(vinfo) variavel que usaremos para chamar sempre que preciso uma MsgBox
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim vinfo As Integer
'Recodset que trará valores da tabela em nossas consultas
'(vinfo) variavel que usaremos para chamar sempre que preciso uma MsgBox
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim vinfo As Integer
Nossa sub (teremos como base nossa tabela clientes dos exemplos anteriores)
Digamos que queremos preencher o datagrid com os campos (Cod, nome, nascimento) da nossa tabela
Private Sub preenche_grid()
'o command retornando nossos campos e enchendo o Recordset
With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "select Cod, nome, nascimento from clientes"
Set rs = .Execute
End With
'preenchedo nosso Datagrid com os valores dos campos e configurando tamanho, nome, alinhamento e tipo dos campos
With rs
Set DataGrid1.DataSource = rs
DataGrid1.Caption = "CLIENTES CADASTRADOS"
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
DataGrid1.Columns.Item(0).Caption = "Cod"
DataGrid1.Columns.Item(0).Width = 800
DataGrid1.Columns.Item(1).Caption = "Nome"
DataGrid1.Columns.Item(1).Width = 4200
DataGrid1.Columns.Item(2).Caption = "Nascimento"
DataGrid1.Columns.Item(2).NumberFormat = "dd/mm/yyyy"
DataGrid1.Columns.Item(2).Width = 1100
DataGrid1.Columns.Item(2).Alignment = dbgCenter
End With
End Sub
'o command retornando nossos campos e enchendo o Recordset
With cmd
.ActiveConnection = cnn
.CommandType = adCmdText
.CommandText = "select Cod, nome, nascimento from clientes"
Set rs = .Execute
End With
'preenchedo nosso Datagrid com os valores dos campos e configurando tamanho, nome, alinhamento e tipo dos campos
With rs
Set DataGrid1.DataSource = rs
DataGrid1.Caption = "CLIENTES CADASTRADOS"
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
DataGrid1.Columns.Item(0).Caption = "Cod"
DataGrid1.Columns.Item(0).Width = 800
DataGrid1.Columns.Item(1).Caption = "Nome"
DataGrid1.Columns.Item(1).Width = 4200
DataGrid1.Columns.Item(2).Caption = "Nascimento"
DataGrid1.Columns.Item(2).NumberFormat = "dd/mm/yyyy"
DataGrid1.Columns.Item(2).Width = 1100
DataGrid1.Columns.Item(2).Alignment = dbgCenter
End With
End Sub
Private Sub Form_Load()
preenche_grid
End Sub
preenche_grid
End Sub
Atenciosamente,
ex_SheL$
Comment