Mega Code Archive

 

Categories / VB.Net / GUI

 

Data Binding for DataGridView

Imports System.Data.SqlClient Imports System.Windows.Forms <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class Grid     Inherits System.Windows.Forms.Form     <System.Diagnostics.DebuggerNonUserCode()> _     Protected Overrides Sub Dispose(ByVal disposing As Boolean)         If disposing AndAlso components IsNot Nothing Then             components.Dispose()         End If         MyBase.Dispose(disposing)     End Sub     Private components As System.ComponentModel.IContainer     <System.Diagnostics.DebuggerStepThrough()> _     Private Sub InitializeComponent()         Me.gridDB = New System.Windows.Forms.DataGridView         CType(Me.gridDB, System.ComponentModel.ISupportInitialize).BeginInit()         Me.SuspendLayout()         '         Me.gridDB.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _                     Or System.Windows.Forms.AnchorStyles.Left) _                     Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)         Me.gridDB.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize         Me.gridDB.Location = New System.Drawing.Point(10, 9)         Me.gridDB.Name = "gridDB"         Me.gridDB.Size = New System.Drawing.Size(481, 392)         Me.gridDB.TabIndex = 1         '         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font         Me.ClientSize = New System.Drawing.Size(500, 410)         Me.Controls.Add(Me.gridDB)         Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))         Me.Name = "Grid"         Me.Text = "Grid"         CType(Me.gridDB, System.ComponentModel.ISupportInitialize).EndInit()         Me.ResumeLayout(False)     End Sub     Friend WithEvents gridDB As System.Windows.Forms.DataGridView     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         Dim Connect As String = "Data Source=localhost;Integrated Security=True;Initial Catalog=Northwind;"         Dim con As New SqlConnection(Connect)         Dim SQL As String = "SELECT * FROM Products"         Dim cmd As New SqlCommand(SQL, con)         Dim adapter As New SqlDataAdapter(cmd)         Dim dsNorthwind As New DataSet()         con.Open()         adapter.Fill(dsNorthwind, "Products")         con.Close()         gridDB.DataSource = dsNorthwind.Tables("Products")     End Sub End Class