Imports System.Data.SqlClient
Imports System.Windows.Forms
_
Partial Class Grid
Inherits System.Windows.Forms.Form
_
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
_
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