[VB ASRAAF007]

hello ,

i have a problem in my codes regarding a syntax error some missing operator in the query expressions here are my codes

 Private Sub OkBtn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OkBtn1.Click

        If State = ModConnection.Add_Or_Edit_state.AddRecordstate Then

            Call OpenConnection()
            With OleDa

                .InsertCommand = New OleDb.OleDbCommand()
                .InsertCommand.CommandText = "INSERT INTO [student] ([Student Id] , [Full name] , [Email Address] , [Title] , [Phone Number] , [Course Categories] , [Time] , [Year])" & _
                "VALUES  (@Student Id , @Full name , @Email Address , @Title , @Phone Number , @Course Categories , @Time , @Year)"
                .InsertCommand.Connection = OleCn
                .InsertCommand.Parameters.Add("@Student Id", OleDb.OleDbType.VarWChar, 50, "Student Id").Value = Me.stud_id.Text
                .InsertCommand.Parameters.Add("@Full name", OleDb.OleDbType.VarWChar, 50, "Full name").Value = Me.stud_name.Text
                .InsertCommand.Parameters.Add("@Email Address", OleDb.OleDbType.VarWChar, 50, "Email Address").Value = Me.stud_email.Text
                .InsertCommand.Parameters.Add("@Title", OleDb.OleDbType.VarWChar, 50, "Title").Value = Me.stud_title.Text
                .InsertCommand.Parameters.Add("@Phone Number", OleDb.OleDbType.VarWChar, 50, "Phone Number").Value = Me.stud_num.Text
                .InsertCommand.Parameters.Add("@Course Categories", OleDb.OleDbType.VarWChar, 50, "Course Categories").Value = Me.stud_course.Text
                .InsertCommand.Parameters.Add("@Time", OleDb.OleDbType.VarWChar, 50, "Time").Value = Me.stud_time.Text
                .InsertCommand.Parameters.Add("@Year", OleDb.OleDbType.VarWChar, 50, "Year").Value = Me.stud_year.Text
                .InsertCommand.ExecuteNonQuery()

            End With
            Call CloseConnection()
            MsgBox("Record(s) saved...", MsgBoxStyle.Information, "Record(s) saved...")
            If MsgBox("Do you want to add new record(s) ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Confirmarion...") = MsgBoxResult.Yes Then
                Call Cleartext()
                Call TitleItems()
                Call TimeItems()
                Call YearItems()
                Call CourseItems()
                Me.stud_id.Focus()
                Exit Sub
            End If
            Me.Close()
        End If
    End Sub

thanks for replying

[andrewsw]

and where are your error messages, and what lines do they refer to in your posted code?

[VB ASRAAF007]

soryyyy i didnt specify..lol here it is ..

.InsertCommand.ExecuteNonQuery()

it gives me the syntax errror when i run the program

[andrewsw]

Parameter names cannot contain spaces.

This post has been edited by andrewsw: 18 March 2013 - 03:23 AM

[VB ASRAAF007]

Thanks Andrew..