Удаление строки из Access

[Чудик]

Уважаемые друзья! Объясните мне, по какой причине у меня ошибка? Не пойму.

[Qwertiy]

Потому что не надо так добавлять параметры.

[Чудик]

Хорошо, не буду. Только, как же тогда достичь требуемого результата?

[Qwertiy]

Писать правильно. А ещё, думать перед тем как писать. И дебажить, если не работает.

[Чудик]

В принципе, подправил строку:

Dim y As New OleDb.OleDbCommand("DELETE * FROM [Зарплата] WHERE [Сотрудник] = " & " '" & Me.ComboBox1.Text & "' AND [Дата]= " & d & " ", r)

и все заработало. Иными словами, не заметил, что пропустил * для выборки.
Как писАть правильно, так и не понял. Хотя ничего криминального в моем варианте тоже не увидел. Буду благодарен, если кто-то объяснить, чем он плох.

[Qwertiy]

Иными словами, не заметил, что пропустил * для выборки.

Если не ошибаюсь, звёздочка в delete не ставится...
Апосторофы добавил - поэтому и заработало.

Хотя ничего криминального в моем варианте тоже не увидел. Буду благодарен, если кто-то объяснить, чем он плох.

Как минимум, тем что он может не работать. Во-первых, если в строке есть апостроф. Во-вторых, конкатенация с датой вообще непонятно как работает, вполне возможно, что при других региональных параметрах перестанет.
А ещё существует sql injection...
Плюс, не по формированию команды. Если запрос падает, то когда закроется соединение вообще неизвестно, лучше использовать using. Переменным лучше давать более осмысленные имена.

Как писАть правильно, так и не понял.

Как-то так (не проверял), использую SqlConnection и SqlCommand, но думаю, OleDb тоже предоставляет подобные возможности:

Код: Выделить всё

Using Con As New SqlConnection(ConnectionString)
  Dim Cmd As New SqlCommand() With { .CommandText="delete from [Зарплата] where [Сотрудник] = @employee and [Дата] = @date", .Connection=Con}
  Cmd.Parameters.AddWithValue("@employee", Me.ComboBox1.Text)
  Cmd.Parameters.AddWithValue("@date", d)
 
  Con.Open()
  Cmd.ExecuteNonQuery()
End Using