Saadbinata Ответов: 1

Нужна помощь для процесса удаления ADODB с помощью кнопки delete

Я новичок в этом фреймворке, над которым работаю vb.net и мои коды, как указано выше, пожалуйста, кто-нибудь мне поможет.
это дает мне ошибки

Что я уже пробовал:

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

    Rss = New ADODB.Recordset

    Rss.Open("DELETE FROM Employee WHERE Serial_No = '" txtSNo.Text.Trim "'", CON)

    
    Rss.Delete("Serial_No")
    Rss.Delete("Employee_Name")
    Rss.Delete("F_Name")
    Rss.Delete("Designation")
    Rss.Delete("Dept_Name")


    MsgBox("Record Deleted Successfully", MsgBoxStyle.Information, strprojectname)

    Rss.Close()
End Sub

Michael_Davies

Что такое сообщение об ошибке, какая строка.

Насколько я помню, при использовании набора записей для удаления вы перемещаете набор записей в запись, которую хотите удалить, а затем вызываете набор записей.Удалить.

Таким образом, Rss. Open будет SELECT, который находится в одной записи, или вы откроете набор записей без какого-либо SQL и перейдете к записи, которую хотите удалить с помощью фильтра (Фильтр намного медленнее, чем с помощью SELECT)

Saadbinata

предложите мне что-нибудь, чтобы решить эту проблему. Пожалуйста

Saadbinata

RSS-каналов.Удалить("Serial_No")

Которого вызывается invalidcastexception не обработано
(Убедитесь, что тип источника преобразуется в тип назначения)
показывает в конце скобки

1 Ответов

Рейтинг:
2

Michael_Davies

Согласно моему комментарию, вам нужно переместить набор записей в запись, которую вы хотите удалить, предполагая, что Serial_No является уникальным идентификатором;

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

    Rss = New ADODB.Recordset

    Rss.Open("SELECT * FROM Employee WHERE Serial_No = '" txtSNo.Text.Trim "'", CON, CursorTypeEnum.adOpenDynamic, LockTypeEnum.adLockOptimistic)

    If Rss.BOF = True And Rss.EOF = True Then
       MsgBox("Record Not Found")
    Else
       Rss.Delete

       MsgBox("Record Deleted Successfully", MsgBoxStyle.Information, strprojectname)
    End If

    Rss.Close()
End Sub