VB.Net by API/System.Windows.Forms/DataGrid

DataGrid.DataSource

  
 Imports System
 Imports System.Drawing
 Imports System.Collections
 Imports System.ruponentModel
 Imports System.Windows.Forms
 Imports System.Data
 Imports System.Data.SqlClient
 
Public Class MainClass
    Shared Sub Main(  )
        Application.Run(New ADOForm1() )
    End Sub
   
End Class
  Public Class ADOForm1
     Inherits System.Windows.Forms.Form
     Private components As System.ruponentModel.Container
     Private dataGrid1 As System.Windows.Forms.DataGrid
     " private System.Data.ADO.ADOConnection myConnection;
     Private myConnection As System.Data.SqlClient.SqlConnection
     Private myDataSet As System.Data.DataSet
     Private myCommand As System.Data.SqlClient.SqlCommand
     Private myDataAdapter As System.Data.SqlClient.SqlDataAdapter
     Public Sub New(  )
         InitializeComponent(  )
         Dim connectionString As String ="server=(local)\SQLEXPRESS;" & _
          "integrated security=sspi;database=MyDatabase"

         myConnection = _
             New System.Data.SqlClient.SqlConnection(connectionString)
         myConnection.Open(  )
         " create the DataSet and set a property
         myDataSet = New System.Data.DataSet(  )
         myDataSet.CaseSensitive = True
         " create the SqlCommand  object and assign the
         " connection and the select statement
         myCommand = New System.Data.SqlClient.SqlCommand(  )
         myCommand.Connection = myConnection
         myCommand.rumandText = "Select * from Employee"
         " create the myDataAdapter object and pass in the
         " SQL Command object and establish the table mappings
         myDataAdapter = New System.Data.SqlClient.SqlDataAdapter(  )
         myDataAdapter.SelectCommand = myCommand
         myDataAdapter.TableMappings.Add("Table", "Employee")
         " Tell the myDataAdapter object to fill the DataSet
         myDataAdapter.Fill(myDataSet)
         " display it in the grid
         dataGrid1.DataSource = _
             myDataSet.Tables("Employee").DefaultView
     End Sub "New
     Private Sub InitializeComponent(  )
         Me.ruponents = New System.ruponentModel.Container(  )
         Me.dataGrid1 = New System.Windows.Forms.DataGrid(  )
         dataGrid1.Location = New System.Drawing.Point(48, 24)
         dataGrid1.Size = New System.Drawing.Size(368, 160)
         dataGrid1.TabIndex = 0
         Me.Text = "ADOFrm1"
         Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
         Me.ClientSize = New System.Drawing.Size(464, 273)
         Me.Controls.Add(dataGrid1)
     End Sub 
 End Class

DataGrid.SetDataBinding

  
Imports System
Imports System.Data
Imports System.Windows.Forms
Imports System.Data.SqlClient
public class MainClass
   Shared Sub Main()
       Dim form1 As Form = New Form1
       Application.Run(form1)
   End Sub
End Class

Public Class Form1
   Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
   Public Sub New()
      MyBase.New()
      "This call is required by the Windows Form Designer.
      InitializeComponent()
      "Add any initialization after the InitializeComponent() call
   End Sub
   "Form overrides dispose to clean up the component list.
   Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
      If disposing Then
         If Not (components Is Nothing) Then
            components.Dispose()
         End If
      End If
      MyBase.Dispose(disposing)
   End Sub
   "Required by the Windows Form Designer
   Private components As System.ruponentModel.IContainer
   "NOTE: The following procedure is required by the Windows Form Designer
   "It can be modified using the Windows Form Designer.  
   "Do not modify it using the code editor.
   Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
   <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
      Me.DataGrid1 = New System.Windows.Forms.DataGrid
      CType(Me.DataGrid1, System.ruponentModel.ISupportInitialize).BeginInit()
      Me.SuspendLayout()
      "
      "DataGrid1
      "
      Me.DataGrid1.DataMember = ""
      Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
      Me.DataGrid1.Location = New System.Drawing.Point(8, 0)
      Me.DataGrid1.Name = "DataGrid1"
      Me.DataGrid1.Size = New System.Drawing.Size(552, 280)
      Me.DataGrid1.TabIndex = 0
      "
      "Form1
      "
      Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
      Me.ClientSize = New System.Drawing.Size(568, 285)
      Me.Controls.Add(Me.DataGrid1)
      Me.Name = "Form1"
      Me.Text = "Form1"
      CType(Me.DataGrid1, System.ruponentModel.ISupportInitialize).EndInit()
      Me.ResumeLayout(False)
   End Sub
#End Region
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      "Create Connection object
      Dim thisConnection As New SqlConnection _
         ("server=(local)\SQLEXPRESS;" & _
          "integrated security=sspi;" & _
          "database=MyDatabase")
      " Sql Query 
      Dim sql As String = _
         "SELECT * FROM Employee"
      " Create Data Adapter
      Dim da As New SqlDataAdapter(sql, thisConnection)
      " Create and fill Dataset
      Dim ds As New DataSet
      da.Fill(ds, "Employee")
      " Bind the data table to the data grid
      DataGrid1.SetDataBinding(ds, "Employee")
      
   End Sub
End Class