Load data from database into DataGrid
Imports System Imports System.Drawing Imports System.Collections Imports System.ComponentModel 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.ComponentModel.Container Friend WithEvents EmployeeDataGrid As _ System.Windows.Forms.DataGrid Public Sub New( ) InitializeComponent( ) Dim connectionString As String ="server=(local)\SQLEXPRESS;" & _ "integrated security=sspi;database=MyDatabase" Dim commandString As String = _ "Select FirstName, LastName from Employee" Dim myDataAdapter As _ New SqlDataAdapter(commandString, connectionString) Dim myDataSet As New DataSet( ) myDataAdapter.Fill(myDataSet, "Employee") ' bind the DataSet to the grid EmployeeDataGrid.DataSource = _ myDataSet.Tables("Employee").DefaultView End Sub 'New Private Sub InitializeComponent( ) Me.components = New System.ComponentModel.Container( ) Me.EmployeeDataGrid = New System.Windows.Forms.DataGrid( ) EmployeeDataGrid.Location = New System.Drawing.Point(48, 24) EmployeeDataGrid.Size = New System.Drawing.Size(368, 160) EmployeeDataGrid.TabIndex = 0 Me.Text = "ADOFrm1" Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawing.Size(464, 273) Me.Controls.Add(EmployeeDataGrid) End Sub End Class