Fill DataGrid through VB.Net

DataGridView provides a visual interface to data. It is an excellent way to display and allow editing for your data. It is accessed with VB.NET code. Data edited in the DataGridView can then be persisted in the database.

Basic Grid

Imports System.Data.SqlClient

Imports System.Data.Sql

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       

        

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim constring As String = "Data Source=SARIBALI-PC\SQLEXPRESS;Initial Catalog=asd;Integrated Security=True;Pooling=False"

        Dim con As New SqlConnection(constring)

        Dim cmd As New SqlCommand("SELECT * FROM Table1", con)

        cmd.CommandType = CommandType.Text

        Dim sda As New SqlDataAdapter(cmd)

        Dim dt As New DataTable()

        sda.Fill(dt)

        DataGridView1.DataSource = dt

    End Sub

End Class

-----------------------------------------------------------------------------------------

Complex Data Grid

Public Class Form1
    Public Sub New()
        InitializeComponent()
        BindGrid()
    End Sub

    Private Sub BindGrid()
        Dim constring As String = "Data Source=.\SQL2005;Initial Catalog=Northwind;User id = sa;password=pass@123"
        Using con As New SqlConnection(constring)
            Using cmd As New SqlCommand("SELECT * FROM Customers", con)
                cmd.CommandType = CommandType.Text
                Using sda As New SqlDataAdapter(cmd)
                    Using dt As New DataTable()
                        sda.Fill(dt)

                        'Set AutoGenerateColumns False
                        dataGridView1.AutoGenerateColumns = False

                        'Set Columns Count
                        dataGridView1.ColumnCount = 3

                        'Add Columns
                        dataGridView1.Columns(0).Name = "CustomerId"
                        dataGridView1.Columns(0).HeaderText = "Customer Id"
                        dataGridView1.Columns(0).DataPropertyName = "CustomerID"

                        dataGridView1.Columns(1).Name = "Name"
                        dataGridView1.Columns(1).HeaderText = "Contact Name"
                        dataGridView1.Columns(1).DataPropertyName = "ContactName"

                        dataGridView1.Columns(2).Name = "Country"
                        dataGridView1.Columns(2).HeaderText = "Country"
                        dataGridView1.Columns(2).DataPropertyName = "Country"
                        dataGridView1.DataSource = dt
                    End Using
                End Using
            End Using
        End Using
    End Sub
End Class