Am getting the below error at run-time of executing query in VB.Net. Please give the solution for this
Error : "Syntax Error in INSERT INTO statement"
My code is given below
'Register User Form
Imports System.Data.OleDb
Public Class RegisterUser
‘ Variables Decleration
Public Con As OleDbConnection
Public Cmd As OleDbCommand
Dim Emailid As Object
'TextBox(EmployeeID.Click)
TBEmpID.Text = Trim(TBEmpID.Text)
End Sub
'TextBox(EmailName.Click)
TBEmailName.Text = Trim(TBEmailName.Text)
End Sub
'Button(BClear.Click)
TBEmpID.Text.Clear()
TBEmpName.Text.Clear()
TBEmailName.Text.Clear()
TBPass.Text.Clear()
TBCPass.Text.Clear()
CBDomain.Text.Clear()
End Sub
'WindowControlButton(Help.Click) (?)
HelpForm.Show()
End Sub
'Button(BRegister.Click)
Try
Emailid = TBEmailName.Text & “” & CBDomain.Text
If(TBEmpID.Text = String.Empty or TBEmpName.Text = String.Empty or TBEmailName.Text = String.Empty or TBPass.Text =
String.Empty or TBCPass.Text = String.Empty) then
MsgBox(“You Have miss to fill some fields”, MessageBox.Style = Exclamation)
Else
If(CBDomain.Text = String.Empty) then
MsgBox(“Kindly Select the domain of your email”, MessageBox.Style = Exclamation)
Else
If(TBPass.Text = TBCPass.Text)then
Con = New OleDbConnection(“Provider=Microsoft.ACE.OLEDB.12.0; Data Source=DataBase\Dashbard.accdb; Persist
Security Info = False”)
Con.Open()
Cmd = New OleDbCommand(“INSERT INTO EmpDatas(EmpID,Name,EmailID,Password) VALUES(‘” & TBEmpID.Text &
”’,’” & TBEmpName.Text & ”’ ,’” & Emailid & ”’ ,’” & TBPass.Text & ”’)”, Con)
Cmd.ExecuteNonQuery()
MsgBox(“Data Saved Successfully”, MessageBox.Style= Information)
Con.Close()
Else
MsgBox(“Password and ConfirmPassword is not matched. Please try again”,
MessageBox.Style=Exclamation)
TBPass.Text.Clear()
TBCPass.Text.Clear()
End If
End If
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
EntryForm.Show()
Me.Close
End Sub
End Class

New Topic/Question
Reply




MultiQuote








|