Progress Monitor for IdealProgrammer.com

Take Swift, Intelligent, Massive, Planned, Loving, Effective (S.I.M.P.L.E.) Action to Transform Self into Ideal

Skip Repetitive Navigational Links

Home

News

Presenters

Contact

Please login

VB.NET Sql Parameters Source Code

Description: Illustrates using Sql Parameters with Insert Statement.

Example Class:

 
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

Example Module:

Module Module1
 
    Sub Main()
        '***** DataBase-ADO-NET *************
 
 
        Dim mySQLInsert As New clsSQLInsert
        mySQLInsert.Main()
 
 
    End Sub
 
End Module