VB.NET Sql Parameters Source Code – Insert Statement
VB.NET Sql Parameters Source Code – Insert Statement
Purpose: – Illustrates using Sql Parameters with Insert Statement.
Prerequistes:
- Install Visual Basic (Express or Standard Edition)
- Install SQL Server Express
- Download Northwind Database
- Attach Northwind Database to Databases in Sql Express
Notes:
- Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
- You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb
Instructions:
- Use VB 2008 (Express or Standard) Edition
- Create new project; select Console Application; name of Project could be VBNET_Syntax.
- Right-click project name in solution explorer; add new folder; name of folder could be DatabaseADONET
- Right-click folder; add class; class name could be clsSqlInsert.vb
- Copy code into clsSqlInsert.vb
- Copy code into Module1.vb
- Click green arrow to start with debugging
Step 1: Use View Plain to Cut-n-paste code into clsSqlInsert.vb
Imports System Imports System.Data Imports System.Data.SqlClient Public Class clsSQLInsert Sub Main() Dim thisConnection As New SqlConnection("server=.\SQLEXPRESS;" & _ "integrated security=sspi;database=Northwind") 'Create Command object Dim nonqueryCommand As SqlCommand = thisConnection.CreateCommand() Try ' Open Connection thisConnection.Open() Console.WriteLine("Connection Opened") ' Create INSERT statement with named parameters nonqueryCommand.CommandText = _ "INSERT INTO Employees (FirstName, LastName) VALUES (@FirstName, @LastName)" ' Add Parameters to Command Parameters collection nonqueryCommand.Parameters.Add("@FirstName", SqlDbType.VarChar, 10) nonqueryCommand.Parameters.Add("@LastName", SqlDbType.VarChar, 20) ' Prepare command for repeated execution nonqueryCommand.Prepare() ' Data to be inserted Dim names() As String = {"Wade", "David", "Charlie"} For i As Integer = 0 To 2 nonqueryCommand.Parameters("@FirstName").Value = names(i) nonqueryCommand.Parameters("@LastName").Value = names(i) Console.WriteLine("Executing {0}", _ nonqueryCommand.CommandText) Console.WriteLine("Number of rows affected : {0}", _ nonqueryCommand.ExecuteNonQuery()) Next i Catch ex As SqlException ' Display error Console.WriteLine("Error: " & ex.ToString()) Finally ' Close Connection thisConnection.Close() Console.WriteLine("Connection Closed") End Try Console.ReadLine() End Sub End Class |
Step 2: Use View Plain to Cut-n-paste code into Module1.vb
Module Module1 Sub Main() '***** DataBase-ADO-NET ************* Dim mySQLInsert As New clsSQLInsert mySQLInsert.Main() End Sub End Module |