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

'data adapter

Had a look at your code and I dont really like using dataadadapters for inserts etc when not attached to Gridviews etc. Not much point when we have executenonquery of the command object. Quick, simple and less code. I would also advise using parameterized SQL statements like my example for you below, its safer and if proper validation is present, you should receive near error free pages. Any questions you can email me on damianyoung@onetel.net. When using the below code, just ensure you format the date variables correctly for inserting.

Also you might want to import these namespaces on your page.

system.data

system.data.sqlclient

        REM Collect variables
        Dim empID As Integer = Integer.Parse(CType(FindControl("TextBox8"), TextBox).Text)
        Dim firstName As String = CType(FindControl("TextBox1"), TextBox).Text
        Dim lastName As String = CType(FindControl("TextBox2"), TextBox).Text
        Dim location As String = CType(FindControl("TextBox3"), TextBox).Text
        Dim termDate As Date = CType(FindControl("TextBox4"), TextBox).Text
        Dim hireDate As Date = CType(FindControl("TextBox7"), TextBox).Text
        Dim dept As String = CType(FindControl("TextBox5"), TextBox).Text
        Dim super As String = CType(FindControl("TextBox6"), TextBox).Text

        REM Create connection and command objects
        Dim cn As New SqlConnection("Data Source=ELEARN-FRM-BETA;Initial Catalog=StudentPlayGround;Integrated Security=True")
        Dim cmd As New SqlCommand
        cmd.Connection = cn

        REM Build our parameterized insert statement
        Dim sql As New StringBuilder
        sql.Append("INSERT INTO Employees ")
        sql.Append("(EmployeeID,FirstName,LatName,Location,HireDate,TerminationDate,Supervisor)")
        sql.Append("VALUES (@empID,@firstName,@lastName,@location,@hireDate,@termDate,@dept,@super)")
        cmd.CommandText = sql.ToString

        REM Add parameter values to command
        REM Parameters used to protect DB from SQL injection attacks
        With cmd.Parameters
            .Add("empID", SqlDbType.Int).Value = empID
            .Add("firstName", SqlDbType.VarChar).Value = firstName
            .Add("lastName", SqlDbType.VarChar).Value = lastName
            .Add("location", SqlDbType.VarChar).Value = location
            .Add("hireDate", SqlDbType.DateTime).Value = hireDate
            .Add("termDate", SqlDbType.DateTime).Value = termDate
            .Add("dept", SqlDbType.VarChar).Value = dept
            .Add("super", SqlDbType.VarChar).Value = super
        End With

        REM Now execute the statement

        cn.Open()
        cmd.ExecuteNonQuery()
        cn.Close()

Hope This helps!

hi,

I am afraid there is something wrong here

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

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

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

try this

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

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

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

  Dim PempID As New System.Data.SqlClient.SqlParameter
       PempID.ParameterName = "@empID"
        PempID.Value =empID
       PempID.DbType = Data.DbType.Int32

and add the other parameters like above

have a try

Opps, might be a problem in the sql statement. No spaces at the end. Doh!

Dim sql As New StringBuilder
sql.Append("INSERT INTO Employees ")
sql.Append("(EmployeeID,FirstName,LatName,Location,HireDate,TerminationDate,Supervisor) ")
sql.Append("VALUES (@empID,@firstName,@lastName,@location,@hireDate,@termDate,@dept,@super)")
cmd.CommandText = sql.ToString

 As you can see above, I forgot to put a space after Supervisor) "), this will create an invalid sql statement when the string is appended.

If this doesnt correct the code I gave you, please post an error message and you complete code.