Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| '<Snippet00> | |
| '<Snippet01> | |
| Imports System | |
| Imports System.Data | |
| Imports System.Data.SqlClient | |
| Imports System.Windows.Forms | |
| Public Class Form1 | |
| Inherits System.Windows.Forms.Form | |
| Private WithEvents dataGridView1 As New DataGridView() | |
| Private bindingSource1 As New BindingSource() | |
| Public Sub New() | |
| ' Initialize the form. | |
| Me.dataGridView1.Dock = DockStyle.Fill | |
| Me.Controls.Add(dataGridView1) | |
| End Sub | |
| '</Snippet01> | |
| '<Snippet10> | |
| Private Sub Form1_Load(ByVal sender As System.Object, _ | |
| ByVal e As System.EventArgs) Handles Me.Load | |
| ' Initialize the BindingSource and bind the DataGridView to it. | |
| bindingSource1.DataSource = GetData("select * from Customers") | |
| Me.dataGridView1.DataSource = bindingSource1 | |
| Me.dataGridView1.AutoResizeColumns( _ | |
| DataGridViewAutoSizeColumnsMode.AllCellsExceptHeader) | |
| End Sub | |
| '</Snippet10> | |
| '<Snippet20> | |
| Private Sub dataGridView1_DataError(ByVal sender As Object, _ | |
| ByVal e As DataGridViewDataErrorEventArgs) _ | |
| Handles dataGridView1.DataError | |
| ' If the data source raises an exception when a cell value is | |
| ' commited, display an error message. | |
| If e.Exception IsNot Nothing AndAlso _ | |
| e.Context = DataGridViewDataErrorContexts.Commit Then | |
| MessageBox.Show("CustomerID value must be unique.") | |
| End If | |
| End Sub | |
| '</Snippet20> | |
| '<Snippet30> | |
| Private Shared Function GetData(ByVal selectCommand As String) As DataTable | |
| Dim connectionString As String = _ | |
| "Integrated Security=SSPI;Persist Security Info=False;" + _ | |
| "Initial Catalog=Northwind;Data Source=localhost;Packet Size=4096" | |
| ' Connect to the database and fill a data table, including the | |
| ' schema information that contains the CustomerID column | |
| ' constraint. | |
| Dim adapter As New SqlDataAdapter(selectCommand, connectionString) | |
| Dim data As New DataTable() | |
| data.Locale = System.Globalization.CultureInfo.InvariantCulture | |
| adapter.Fill(data) | |
| adapter.FillSchema(data, SchemaType.Source) | |
| Return data | |
| End Function | |
| '</Snippet30> | |
| '<Snippet02> | |
| <STAThread()> _ | |
| Shared Sub Main() | |
| Application.EnableVisualStyles() | |
| Application.Run(New Form1()) | |
| End Sub | |
| End Class | |
| '</Snippet02> | |
| '</Snippet00> |