Datagridview por codigo?

[vasco16]

É possivel fazer uma datagrid por codigo e essa datagrid ser programada para ir buscar dados a uma tabela em access? ou só é possivel fazer isto pelo wizard?

[Luis Marques]

Sim, basta arrastares uma datagrid para a form, e depois o resto é por codigo, deixo te aqui um exemplo:

Dim comandosql = "Select id_cliente, nome_cliente, nr_contribuinte,endereco,cod_post,telefone,fax,localidade from clientes where nome_cliente like '" + TextBox1.Text + "%'"

        Dim cmd As New OleDbCommand(comandosql, db)

        Dim dtr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)

        ' CRIAÇÃO DE COLUNAS NO DATAGRIDVIEW

        Dim num_campos As Integer

        Dim campo As String

        DataGridView1.Columns.Clear()

        DataGridView1.RowHeadersVisible = False

        num_campos = dtr.FieldCount

        For idx = 0 To num_campos - 1

            campo = dtr.GetName(idx)

            DataGridView1.Columns.Add(campo, campo)

        Next

        DataGridView1.Columns.Item(0).Width = 50

        DataGridView1.Columns.Item(1).Width = 150

        DataGridView1.Columns.Item(2).Width = 70

        DataGridView1.Columns.Item(3).Width = 170

        DataGridView1.Columns.Item(4).Width = 60

        DataGridView1.Columns.Item(5).Width = 70

        DataGridView1.Columns.Item(6).Width = 70

        DataGridView1.Columns.Item(7).Width = 100

        ' CARREGAR OS DADOS

        Dim idx_linha As Integer

        idx_linha = 0

        While dtr.Read()

            Dim linha As New DataGridViewRow()

            DataGridView1.Rows.Add(linha)

            DataGridView1.Rows(idx_linha).Cells(0).Value = dtr.Item(0)

            DataGridView1.Rows(idx_linha).Cells(1).Value = RTrim(dtr.Item(1))

            DataGridView1.Rows(idx_linha).Cells(2).Value = RTrim(dtr.Item(2))

            DataGridView1.Rows(idx_linha).Cells(3).Value = RTrim(dtr.Item(3))

            DataGridView1.Rows(idx_linha).Cells(4).Value = RTrim(dtr.Item(4))

            DataGridView1.Rows(idx_linha).Cells(5).Value = RTrim(dtr.Item(5))

            DataGridView1.Rows(idx_linha).Cells(6).Value = RTrim(dtr.Item(6))

            DataGridView1.Rows(idx_linha).Cells(7).Value = RTrim(dtr.Item(7))

            idx_linha = idx_linha + 1

        End While

        ' AJUSTE DAS COLUNAS DO DATAGRIDVIEW

        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.None

        ' FECHAR A BD

        dtr.Close()

[vasco16]

Sim, basta arrastares uma datagrid para a form, e depois o resto é por codigo, deixo te aqui um exemplo:

obrigado. 🙂