Using DataReaders, SQL Server 

Inserting Records

The following code inserts a Record into the Jobs table in Pubs sample database. Drag a button onto the form and place the following code.

Imports System.Data.SqlClient Public Class Form2 Inherits System.Windows.Forms.Form Dim myConnection As SqlConnection Dim myCommand As SqlCommand Dim ra as Integer  'integer holds the number of records inserted  Private Sub Form2_Load(ByVal sender As System.Object, ByVal e_ As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e_ As System.EventArgs) Handles Button1.Click myConnection = New SqlConnection("server=localhost;uid=sa;pwd=;database=pubs") 'you need to provide password for sql server myConnection.Open() myCommand = New SqlCommand("Insert into Jobs values 12,'IT Manager',100,300,_ myConnection) ra=myCommand.ExecuteNonQuery() MessageBox.Show("New Row Inserted" & ra) myConnection.Close() End Sub End Class

Deleting a Record 

We will use Authors table in Pubs sample database to work with this code. Drag a button onto the form and place the following code.

Imports System.Data.SqlClient Public Class Form3 Inherits System.Windows.Forms.Form Dim myConnection As SqlConnection Dim myCommand As SqlCommand Dim ra as Integer  Private Sub Form3_Load(ByVal sender As System.Object, ByVal e_ As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e_ As System.EventArgs) Handles Button1.Click myConnection = New SqlConnection("server=localhost;uid=sa;pwd=;database=pubs") 'you need to provide password for sql server myConnection.Open() myCommand = New SqlCommand("Delete from Authors where city='Oakland'",_ myConnection) 'since no value is returned we use ExecuteNonQuery ra=myCommand.ExecuteNonQuery() MessageBox.Show("Records affected" & ra) myConnection.Close() End Sub End Class

Updating Records

We will update a row in Authors table. Drag a button onto the form and place the following code.

Imports System.Data.SqlClient Public Class Form4 Inherits System.Windows.Forms.Form Dim myConnection As SqlConnection Dim myCommand As SqlCommand Dim ra as Integer  Private Sub Form4_Load(ByVal sender As System.Object, ByVal e_ As System.EventArgs) Handles MyBase.Load End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e_ As System.EventArgs) Handles Button1.Click myConnection = New SqlConnection("server=localhost;uid=sa;pwd=;database=pubs") 'you need to provide password for sql server myConnection.Open() myCommand = New SqlCommand("Update Authors Set city='Oakland' where city=_ 'San Jose' ",myConnection) ra=myCommand.ExecuteNonQuery() MessageBox.Show("Records affected" & ra) myConnection.Close() End Sub End Class