Cancel = True End If End Sub Private Sub data Grid View1_Cell End Edit(By Val sender As Object, _ By Val e As System. Cell End Edit ' Clear the row error in case the user presses ESC. For more information, see Protecting Connection Information. Data Grid View Cell Event Args) _ Handles data Grid View1. Using Windows Authentication (also known as integrated security) is a more secure way to control access to a database. Row Deleted, _ New Data Row Change Event Handler(Address Of Row_Delete)Private Sub Row_Delete(By Val sender As Object, By Val e _ As Data Row Change Event Args) If e. column, its value is tested for validity by checking that it is not empty. Add(ts) ts = Nothing col Discontinued = Nothing col Name = Nothing Data Grid1. Tables("Products") End Sub Private Sub Cell Validating(By Val sender As Object, By Val e As System. Write Line(Direct Cast(sender, Data Grid Text Box). Text = "Data Grid View validation demo (disallows empty Company Name)" End Sub Private Sub Form1_Load(By Val sender As System. All Cells Except Header) End Sub Private Sub data Grid View1_Cell Validating(By Val sender As Object, _ By Val e As Data Grid View Cell Validating Event Args) _ Handles data Grid View1. Header Text ' Abort validation if cell is not in the Company Name column. Equals("Company Name") Then Return ' Confirm that the cell is not empty. Load ' Initialize the Binding Source and bind the Data Grid View to it. Data Source = Get Data("select * from Customers") Grid View1. Auto Resize Columns( _ Data Grid View Auto Size Columns Mode.
For a complete explanation of this code example, see Walkthrough: Validating Data in the Windows Forms Data Grid View Control. Microsoft has not direct from the box a newer Data Grid that can show relational datatables in one Grid. After draging a Datagrid on the form , pasting in this code below and changing in the code below the Server name for yours. For that the Windows Forms Data Grid can still be used in Framework 4. Dim adapter As New Sql Data Adapter(select Command, connection String) Dim data As New Data Table() data. Storing sensitive information, such as a password, within the connection string can affect the security of your application. Empty End Sub Private Shared Function Get Data(By Val select Command As String) As Data Table Dim connection String 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. Also see How to: Compile and Run a Complete Windows Forms Code Example Using Visual Studio.