Using DataReaders, mySQL Server

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