Inserting A New Record Into Sql Db Using User-entered Information

Im trying to add a new rcord to my db on a button click usign the following code

 

'data adapter

Dim dAdapt1 As New SqlClient.SqlDataAdapter

'create a command object

Dim objCommand As New SqlClient.SqlCommand

'command builder

Dim builderT As SqlClient.SqlCommandBuilder

'connection string

Dim cnStr As String = "Data Source=ELEARN-FRM-BETA;Initial Catalog=StudentPlayGround;Integrated Security=True"

'dataset

Dim dsT As DataSet

Private Sub connect()

'connection

objCommand.Connection = New SqlClient.SqlConnection(cnStr)

'associating the builder with the data adapter

builderT = New SqlClient.SqlCommandBuilder(dAdapt1)

'opening the connection

objCommand.Connection.Open()

'query string

Dim query As String = "SELECT * from StudentPlayground..Employees"

'setting the select command

dAdapt1.SelectCommand = New SqlClient.SqlCommand(query, objCommand.Connection)

'dataset

dsT = New DataSet("Trainee Listings")

dAdapt1.Fill(dsT, "Employees")

End Sub

Private Sub BindData()

connect()

DataBind()

End Sub

Protected Sub submitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles submitButton.Click

Dim empID As Integer = CType(FindControl("TextBox8"), TextBox).Text

BindData()

Dim firstName As String = CType(FindControl("TextBox1"), TextBox).Text

BindData()

Dim lastName As String = CType(FindControl("TextBox2"), TextBox).Text

BindData()

Dim location As String = CType(FindControl("TextBox3"), TextBox).Text

BindData()

Dim termDate As Date = CType(FindControl("TextBox4"), TextBox).Text

BindData()

Dim hireDate As Date = CType(FindControl("TextBox7"), TextBox).Text

BindData()

Dim dept As String = CType(FindControl("TextBox5"), TextBox).Text

BindData()

Dim super As String = CType(FindControl("TextBox6"), TextBox).Text

BindData()

Dim newRow As DataRow = dsT.Tables("Employees").NewRow

newRow.BeginEdit()

newRow.Item(0) = empID

newRow.Item(1) = firstName

newRow.Item(2) = lastName

newRow.Item(3) = location

newRow.Item(4) = hireDate

newRow.Item(5) = termDate

newRow.Item(6) = dept

newRow.Item(7) = super

newRow.EndEdit()

 

'do the update

Dim insertStr As String = "INSERT INTO Employees" + _

"(EmployeeID,FirstName,LatName,Location,HireDate,TerminationDate,Supervisor)" + _

"VALUES (empID,firstName,lastName,location,hireDate,termDate,dept,super)"

Dim insertCmd As SqlClient.SqlCommand = New SqlClient.SqlCommand(insertStr, objCommand.Connection)

dAdapt1.InsertCommand() = insertCmd

 

dAdapt1.Update(dsT, "Employees")

'Dim insertCmd As new SqlClient.SqlCommand = (builderT.GetInsertCommand()).ToString())

'dAdapt1.InsertCommand = New SqlClient.SqlCommand(insertCmd.ToString(), objCommand.Connection)

BindData()

objCommand.Connection.Close()

objCommand.Connection.Dispose()

End Sub

 

im not sure wats going wrong because the record is not being added. Please help!!