Ошибка синтаксиса From From Удаление записи с помощью ADO

Question

Я использую ADO для удаления записи в моей базе данных MS Access 2007 и полностью потеряю, почему я получаю эту синтаксическую ошибку для своего кода SQL. Он утверждает, что в предложении FROM есть ошибка, но я этого не вижу. Я взял предложение FROM непосредственно из рабочей инструкции SQL в другом модуле, используя ту же таблицу. Я ввел код в SQL View нового запроса, и он работает отлично. Вот код:

Private Sub cmdDeleteMessage_Click() 

    If MsgBox("Once you delete a message, it cannot be undone." & _ 
    "Are you sure you want to delete this message?", vbYesNo) = vbYes Then 
    Dim sql As String 
    Dim rsDel As New ADODB.Recordset 
    rsDel.CursorType = adOpenDynamic 
    rsDel.LockType = adLockOptimistic 
    sql = "DELETE * FROM [Staff Notes] WHERE [MsgID] = " & Me.txtMsgID.Value & ";" 

    rsDel.Open sql, CurrentProject.AccessConnection, , , adCmdTable 

     With rsDelete 
      .Update 
      .Close 
     End With 
    End If 

End Sub 

И идеи? Заранее спасибо!

Answer 1

Вы пытаетесь запустить запрос на действие, но используете набор записей (который ожидает запрос выбора).

Попробуйте это:

sql = "DELETE * FROM [Staff Notes] WHERE [MsgID] = " & Me.txtMsgID.Value & ";" 
CurrentProject.AccessConnection.Execute sql, , adExecuteNoRecords 

Кроме того, если [MsgID] является строкой, то вам необходимо заключите значение в кавычки:

sql = "DELETE * FROM [Staff Notes] WHERE [MsgID] = " & Chr$(34) & Me.txtMsgID.Value & Chr$(34) & ";"