using System;
using System.Data;
using System.Data.SqlClient;
using System.Windows.Forms;

namespace DataGridView_revisao
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private SqlDataAdapter da;
        private SqlConnection conn;
        BindingSource bsource = new BindingSource();
        DataSet ds = null;
        string sql;

        private void btnPreencher_Click(object sender, EventArgs e)
        {
            CarregarDados();
        }

        private void CarregarDados()
        {
            string connectionString = @"Data Source=(LocalDB)\v11.0;Initial Catalog=Northwind;Integrated Security=True";
            conn = new SqlConnection(connectionString);
            sql = "SELECT OrderID, CustomerID, EmployeeID, OrderDate, Freight, ShipName, ShipCountry FROM Orders";

            da = new SqlDataAdapter(sql, conn);
            conn.Open();
            ds = new DataSet();
            SqlCommandBuilder commandBuilder = new SqlCommandBuilder(da);
            da.Fill(ds, "Orders");
            bsource.DataSource = ds.Tables["Orders"];
            dgvDados.DataSource = bsource;
        }
    }
}

O exemplo cria um Dataset e preenchido por um DataAdapter usando a tabela Orders

A vinculação é feita usando um o controle BindingSource

   Private da As SqlDataAdapter
   Private conn As SqlConnection
   Private bsource As New BindingSource()
   Private ds As DataSet = Nothing
   Private sql As String

   Private Sub btnPreencher_Click(ByVal sender As Object, ByVal e As EventArgs)
      CarregarDados()
   End Sub

   Private Sub CarregarDados()
	Dim connectionString As String = "Data Source=(LocalDB)\v11.0;Initial Catalog=Northwind;Integrated Security=True"
	conn = New SqlConnection(connectionString)
	sql = "SELECT OrderID, CustomerID, EmployeeID, OrderDate, Freight, ShipName, ShipCountry FROM Orders"
	da = New SqlDataAdapter(sql, conn)
	conn.Open()
	ds = New DataSet()
	Dim commandBuilder As New SqlCommandBuilder(da)
	da.Fill(ds, "Orders")
	bsource.DataSource = ds.Tables("Orders")
	dgvDados.DataSource = bsource
   End Sub

private void btnSalvar_Click(object sender, EventArgs e)
 {
      try
      {
           DataTable dt = ds.Tables["Orders"];
           this.dgvDados.BindingContext[dt].EndCurrentEdit();
           this.da.Update(dt);
            MessageBox.Show("Banco de dados Atualizado com sucesso", "Atualizado", MessageBoxButtons.OK, 
MessageBoxIcon.Information);
     }
    catch(Exception ex)
    {
          MessageBox.Show("Erro : " + ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error);
    }
}

Private Sub btnSalvar_Click(sender As Object, e As EventArgs) Handles btnSalvar.Click
        Try
            Dim dt As DataTable = ds.Tables("Orders")
            Me.dgvDados.BindingContext(dt).EndCurrentEdit()
            Me.da.Update(dt)
            MessageBox.Show("Banco de dados Atualizado com sucesso", "Atualizado", MessageBoxButtons.OK, 
MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Erro : " & ex.Message, "Erro", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

 private void dgvDados_UserDeletingRow(object sender, DataGridViewRowCancelEventArgs e)
 {
            if (!e.Row.IsNewRow)
            {
                DialogResult res = MessageBox.Show("Tem certeza de que deseja deletar esta linha ?", 
"Deletar ?", MessageBoxButtons.YesNo, MessageBoxIcon.Question);
                if (res == DialogResult.No)
                    e.Cancel = true;
            }
 }

  Private Sub dgvDados_UserDeletingRow(sender As Object, e As DataGridViewRowCancelEventArgs) Handles dgvDados.UserDeletingRow
        If Not e.Row.IsNewRow Then
            Dim res As DialogResult = MessageBox.Show("Tem certeza de que deseja deletar esta linha ?", 
"Deletar ?", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If res = Windows.Forms.DialogResult.No Then
                e.Cancel = True
            End If
        End If
 End Sub

  private void dgvDados_CellValidating(object sender, DataGridViewCellValidatingEventArgs e)
   {
            string headerText =dgvDados.Columns[e.ColumnIndex].HeaderText;

            // Aborta a validação se a célula não for a coluna ShipCountry
            if (!headerText.Equals("ShipCountry")) return;

             // Confirma que a célula não pode estar vazia
            if (string.IsNullOrEmpty(e.FormattedValue.ToString()))
            {
                dgvDados.Rows[e.RowIndex].ErrorText ="O nome do país de destino não pode estar em branco";
                e.Cancel = true;
            }
   }

 Private Sub dgvDados_CellValidating(sender As Object, e As DataGridViewCellValidatingEventArgs) Handles dgvDados.CellValidating

        Dim headerText As String = dgvDados.Columns(e.ColumnIndex).HeaderText

        ' Aborta a validação se a célula não for a coluna ShipCountry
        If Not headerText.Equals("ShipCountry") Then Return

        ' Confirma que a célula não pode estar vazia
        If (String.IsNullOrEmpty(e.FormattedValue.ToString())) Then
            dgvDados.Rows(e.RowIndex).ErrorText = "O nome do país de destino não pode ser em branco"
            e.Cancel = True
        End If
    End Sub

  private void dgvDados_CellEndEdit(object sender, DataGridViewCellEventArgs e)
  {
           //limpa o erro da linha se o usuário pressionar ESC
            dgvDados.Rows[e.RowIndex].ErrorText = String.Empty;
  }

  Private Sub dgvDados_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles dgvDados.CellEndEdit
        'limpa o erro da linha se o usuário pressionar ESC
        dgvDados.Rows(e.RowIndex).ErrorText = String.Empty
  End Sub

 private void btnCalcularValorTotal_Click(object sender, EventArgs e)
  {
            if (dgvDados.Rows.Count > 0)
                txtValorTotal.Text = CalcularValorTotal().ToString("c");
 }

 Private Sub btnCalcularValorTotal_Click(sender As Object, e As EventArgs) Handles btnCalcularValorTotal.Click
        If dgvDados.Rows.Count > 0 Then
              txtValorTotal.Text = CalcularValorTotal().ToString("c")
        End If
 End Sub

  private double CalcularValorTotal()
  {
            double total = 0;
            int i = 0;
            for (i = 0; i < dgvDados.Rows.Count; i++)
            {
                total = total + Convert.ToDouble(dgvDados.Rows[i].Cells["Freight"].Value);
            }
            return total;
  }

  Private Function CalcularValorTotal() As Double
        Dim total As Double = 0
        Dim i As Integer = 0
        For i = 0 To dgvDados.Rows.Count - 1
            total = total + Convert.ToDouble(dgvDados.Rows(i).Cells("Freight").Value)
        Next i
        Return total
    End Function

Quer migrar para o VB .NET ?

• Veja mais sistemas completos para a plataforma .NET no Super DVD .NET , confira...

• Curso Básico VB .NET - Vídeo Aulas

Quer aprender C# ??

• Chegou o Super DVD C# com exclusivo material de suporte e vídeo aulas com curso básico sobre C#.

• Curso C# Basico - Video Aulas

Quer aprender os conceitos da Programação Orientada a objetos ?

• Curso Fundamentos da Programação Orientada a Objetos com VB .NET