NCC10281982B Posted July 7, 2004 Posted July 7, 2004 The Syntax is exaxtly like the file addapted it from here I'm using the .net version. Browser gives me this: Syntax error in INSERT INTO statement. Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: System.Data.OleDb.OleDbException: Syntax error in INSERT INTO statement 'DB ADD Sub AddNewRecord() 'Values Dim objemer as String Dim eobjschool as string objschool = Schoolname.text + district.text objemer = contact.text + relation.text Dim objCommand As OleDbCommand Dim strSQLQuery As String ' Our insert command strSQLQuery = "INSERT INTO Students" _ & "(FEE, STUDENT, ., GRADE, PHONE, PROF, APTITUDE, INTEREST, MED-INFO, SCHOOL, EMER-PHONE, CONTACT, ADDRESS, LASTUPDATE, LASTTIME, CITY, STATE, ZIP, EMAIL, INSURANCE, SESSION, BIRTHDATE, DIVISION)" _ & "VALUES (@FEE, @STUDENT, @., @GRADE, @PHONE, @PROF, @APTITUDE, @INTEREST, @MEDINFO, @SCHOOL, @EMERPHONE, @CONTACT, @ADDRESS, @LASTUPDATE, @LASTTIME, @CITY, @STATE, @ZIP, @EMAIL, @INSURANCE, @SESSION, @BIRTHDATE, @DIVISION)" ' Create new command object passing it our SQL insert ' and telling it which connection to use. objCommand = New OleDbCommand(strSQLQuery, objConnection) ' Add parameters that our SQL command takes: objCommand.Parameters.Add(New OleDbParameter("@FEE", OleDbType.Integer)) objCommand.Parameters.Add(New OleDbParameter("@STUDENT", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@.", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@GRADE", OleDbType.Integer)) objCommand.Parameters.Add(New OleDbParameter("@PHONE", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@PROF", OleDbType.Integer)) objCommand.Parameters.Add(New OleDbParameter("@APTITUDE", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@INTEREST", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@MED-INFO", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@SCHOOL", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@EMER-PHONE", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@CONTACT", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@Address", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@LASTUPDATE", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@LASTTIME", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@CITY", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@STATE", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@ZIP", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@EMAIL", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@INSURANCE", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@SESSION", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@BIRTHDATE", OleDbType.VarChar, 255)) objCommand.Parameters.Add(New OleDbParameter("@DIVISION", OleDbType.VarChar, 255)) ' Set the values of these parameters: objCommand.Parameters("@FEE").Value = objFee objCommand.Parameters("@STUDENT").Value = Student.text objCommand.Parameters("@.").Value = ..SelectedItem.Value objCommand.Parameters("@GRADE").Value = Grade.SelectedItem.Value objCommand.Parameters("@PHONE").Value = phone.text objCommand.Parameters("@PROF").Value = objProf objCommand.Parameters("@APTITUDE").Value = APTITUDE.SelectedItem.Value objCommand.Parameters("@INTEREST").Value = Interest.SelectedItem.Value objCommand.Parameters("@MED-INFO").Value = medinfo.text objCommand.Parameters("@SCHOOL").Value = objschool objCommand.Parameters("@EMER-PHONE").Value = emerphone.text objCommand.Parameters("@CONTACT").Value = objemer objCommand.Parameters("@ADDRESS").Value = Address.text objCommand.Parameters("@LASTUPDATE").Value = CSTR(Now()) objCommand.Parameters("@LASTTIME").Value = CSTR(Now()) objCommand.Parameters("@CITY").Value = City.text objCommand.Parameters("@STATE").Value = "WA" objCommand.Parameters("@ZIP").Value = zip.text objCommand.Parameters("@EMAIL").Value = email.text objCommand.Parameters("@INSURANCE").Value = Insurance.text objCommand.Parameters("@SESSION").Value = Program.SelectedItem.Value objCommand.Parameters("@BIRTHDATE").Value = BirthDate.text objCommand.Parameters("@DIVISION").Value = "USS" ' Open the connection, execute the command, and close the connection. objConnection.Open() objCommand.ExecuteNonQuery() objConnection.Close() End Sub Thanks all Share this post Link to post Share on other sites More sharing options...
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now