Permalink
Cannot retrieve contributors at this time
Fetching contributors…
| Option Explicit On | |
| Option Strict On | |
| Imports System | |
| Imports System.Data | |
| Imports System.Data.SqlClient | |
| Module Module1 | |
| Sub Main() | |
| End Sub | |
| ' <Snippet1> | |
| Public Function CreateSqlDataAdapter( _ | |
| ByVal connection As SqlConnection) As SqlDataAdapter | |
| Dim adapter As SqlDataAdapter = New SqlDataAdapter | |
| adapter.MissingSchemaAction = MissingSchemaAction.AddWithKey | |
| ' Create the commands. | |
| adapter.SelectCommand = New SqlCommand( _ | |
| "SELECT CustomerID, CompanyName FROM CUSTOMERS", connection) | |
| adapter.InsertCommand = New SqlCommand( _ | |
| "INSERT INTO Customers (CustomerID, CompanyName) " & _ | |
| "VALUES (@CustomerID, @CompanyName)", connection) | |
| adapter.UpdateCommand = New SqlCommand( _ | |
| "UPDATE Customers SET CustomerID = @CustomerID, CompanyName = " & _ | |
| "@CompanyName WHERE CustomerID = @oldCustomerID", connection) | |
| adapter.DeleteCommand = New SqlCommand( _ | |
| "DELETE FROM Customers WHERE CustomerID = @CustomerID", connection) | |
| ' Create the parameters. | |
| adapter.InsertCommand.Parameters.Add("@CustomerID", _ | |
| SqlDbType.Char, 5, "CustomerID") | |
| adapter.InsertCommand.Parameters.Add("@CompanyName", _ | |
| SqlDbType.VarChar, 40, "CompanyName") | |
| adapter.UpdateCommand.Parameters.Add("@CustomerID", _ | |
| SqlDbType.Char, 5, "CustomerID") | |
| adapter.UpdateCommand.Parameters.Add("@CompanyName", _ | |
| SqlDbType.VarChar, 40, "CompanyName") | |
| adapter.UpdateCommand.Parameters.Add("@oldCustomerID", _ | |
| SqlDbType.Char, 5, "CustomerID").SourceVersion = _ | |
| DataRowVersion.Original | |
| adapter.DeleteCommand.Parameters.Add("@CustomerID", _ | |
| SqlDbType.Char, 5, "CustomerID").SourceVersion = _ | |
| DataRowVersion.Original | |
| Return adapter | |
| End Function | |
| ' </Snippet1> | |
| End Module |