Я пытаюсь вставить данные из VB.NET в MS Access, но получаю сообщение «Ошибка синтаксиса в инструкции INSERT INTO». из MessageBox.Show (ex.Message).Ошибка синтаксиса VB.NET в параметризованной инструкции INSERT INTO
Можно ли взглянуть на мой код и помочь мне исправить мою проблему? Кроме того, если у вас есть лучший альтернативный способ кодирования, я буду очень благодарен. Заранее спасибо.
Imports System.Data.OleDb
Public Class addNew
Dim conn As New OleDbConnection()
Dim sqlCom As New OleDbCommand()
Private Sub btnAddNew_Click(sender As Object, e As EventArgs) Handles btnAddNew.Click
If txtFirstName.Text = "" Or txtLastName.Text = "" Or txtContact.Text = "" Or txtEmail.Text = "" Or comboMembershipType.Text = "" Then
MessageBox.Show("Please complete the required fields.", "Authentication Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
Else
Try
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & Application.StartupPath & "\igcDatabase.accdb"
sqlCom.Connection = conn
conn.Open()
sqlCom.CommandText = "INSERT INTO Members (Member First Name, Member Last Name, Contact Number, E-mail Address)" _
& " VALUES (@FirstName, @LastName, @Contact, @Email)"
sqlCom.Parameters.AddWithValue("FirstName", txtFirstName.Text)
sqlCom.Parameters.AddWithValue("LastName", txtLastName.Text)
sqlCom.Parameters.AddWithValue("Contact", txtContact.Text)
sqlCom.Parameters.AddWithValue("Email", txtEmail.Text)
sqlCom.ExecuteNonQuery()
MessageBox.Show("Successfully added member!")
conn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End If
End Sub
End Class
Проблема исправлена.
Спасибо за помощь! Моя проблема сразу исправлена. – Gideon