Need assistance for ADODB delete process via button delete

Question

0.00/5 (No votes)

See more:

I am new to this framework site i am working on vb.net and my codes as above please some one help me.
its gives me errors

What I have tried:

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

Posted 19-Dec-16 0:21am

Saadbinata

Updated 19-Dec-16 2:34am

v5

Add a Solution

Comments

Michael_Davies 19-Dec-16 7:07am

What is the error message, which line.

As far as I can remember when using a recordset to delete you move the recordset to the record you want to delete then invoke recordset.Delete.

So the Rss.Open would be a SELECT that located a single record, or you open the recordset without any SQL and move to the record you want to delete using Filter (filter is a lot slower than using SELECT)

Saadbinata 19-Dec-16 7:50am

suggest me something to solve this problem. Please

Saadbinata 19-Dec-16 8:34am

Rss.Delete("Serial_No")

InvalidcastException was unhandled
(Make sure the source type convertible to the destination type)
shows at the end bracket

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Michael_Davies · Answer 1 · 2016-12-19T02:34:00

As per my comment, you need to move the recordset to the record you want to delete, assuming that Serial_No is a unique identifier;

VB

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