«Ошибка синтаксиса в INSERT INTO заявление»

Question

Я новичок в vb.net я получил следующую ошибку при выполнении вставки-заявление

syntax error in INSERT INTO statement 

Вот мой код:

Private Sub cmdadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadd.Click 
     Try 
      Dim sql As String = " INSERT INTO [Login1] ([ID],[Username],[Password])" & _ 
" VALUES(?,?,?)" 

      Dim cmd As New OleDbCommand 
      With cmd 
       .Connection = con 
       .CommandText = sql 
       .Parameters.AddWithValue("?", txtid) 
       .Parameters.AddWithValue("?", txtuser) 
       .Parameters.AddWithValue("?", txtpass) 
       .ExecuteNonQuery() 
      End With 
      MsgBox("The Data Has Been Added") 

     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 
    End Sub 

Может ли кто-нибудь мне помочь?

Answer 1

Вы должны указать параметры sql.

Посмотрите примеры в документации: http://msdn.microsoft.com/en-us/library/system.data.sqlclient.sqlparametercollection.addwithvalue%28v=vs.110%29.aspx

Answer 2

Попробуйте использовать sql parameter names

Private Sub cmdadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadd.Click 
    Try 
     Dim sql As String = " INSERT INTO [Login1] ([ID],[Username],[Password])" & _ 
" VALUES(@ID,@Username,@Password)" 

     Dim cmd As New OleDbCommand 
     With cmd 
      .Connection = con 
      .CommandText = sql 
      .Parameters.AddWithValue("@ID", txtid) 
      .Parameters.AddWithValue("@Username", txtuser) 
      .Parameters.AddWithValue("@Password", txtpass) 
      .Open() 
      .ExecuteNonQuery() 
      .Close() 
     End With 
     MsgBox("The Data Has Been Added") 

    Catch ex As Exception 
     MsgBox(ex.ToString) 
    End Try 
End Sub 

Обратите внимание, что: Вы должны правильно закрыть соединение после того, как вы их используете. Поэтому следующий код может быть лучше.

Private Sub InsertLogin() 
    Dim sql As String = " INSERT INTO [Login1] ([ID],[Username],[Password])" & _ 
     " VALUES(@ID,@Username,@Password)" 

    Using con As New OleDbConnection(ConnectionStringHERE) 
     Using cmd As New OleDbCommand 
      Dim cmd As New OleDbCommand 
      cmd.Connection = con 
      cmd.CommandText = sql 
      cmd.Parameters.AddWithValue("@ID", txtid) 
      cmd.Parameters.AddWithValue("@Username", txtuser) 
      cmd.Parameters.AddWithValue("@Password", txtpass) 
      con.Open() 
      cmd.ExecuteNonQuery() 
     con.Close() 
     End Using 
    End Using 

End Sub 

    Private Sub cmdadd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdadd.Click 
     Try 
      InsertLogin() 
      MsgBox("The Data Has Been Added") 
     Catch ex As Exception 
      MsgBox(ex.ToString) 
     End Try 
    End Sub 

Здесь я использовал cmd. синтаксис, это ничем не отличается от использования With.