I get an insert into
syntax error with the use of the following code. All my fields are of short text
value:
Imports System.Data.OleDb
Public Class Student_Sign_up
Dim provider As String
Dim dataFile As String
Dim connString As String
Dim myConnection As OleDbConnection = New OleDbConnection
Private Sub submit_Click(sender As Object, e As EventArgs) Handles submit.Click
Dim myConnection As OleDbConnection = New OleDbConnection
provider = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source ="
'Change the following to your access database location
dataFile = "D:\Student Database1.accdb"
connString = provider & dataFile
myConnection.ConnectionString = connString
myConnection.Open()
Dim str As String
str = "insert into student details ([Student_Name], [Student_Surname], [Student_Username], [Student_Password], [Class]) values (?, ?, ?, ?, ?)"
Dim cmd As OleDbCommand = New OleDbCommand(str, myConnection)
cmd.Parameters.Add(New OleDbParameter("Student_Name", CType(Name.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Student_Surname", CType(Surname.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Student_Username", CType(UserName.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Student_Password", CType(Password.Text, String)))
cmd.Parameters.Add(New OleDbParameter("Class", CType(Student_class.Text, String)))
Try
cmd.ExecuteNonQuery()
cmd.Dispose()
myConnection.Close()
Student_class.Clear()
Name.Clear()
UserName.Clear()
Password.Clear()
Surname.Clear()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
You need to use some delimiter with table name
Instead of
str = "insert into student details
Use
str = "insert into [student details]
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.