Write/update DB field from VS2013 windows form

Question

1.00/5 (1 vote)

See more:

VS2013

What I am trying to do is query a specific field for a specific value. If the field value and input value are equal then I want another field updated from True to False within that same row where the "equal" match was found.

Also,

This is called upon with a button_click event.

What I have tried:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim connStr As String
    connStr = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=C:\Tech\LoanerTracking.accdb"

    Dim objConn As New OleDbConnection(connStr)

    Dim str As String
    str = "Select AssetBarcode from TrackingInfo Where (AssetBarcode=TextBox3 AND CheckedOut=True);"

    Dim chg As String
    chg = "Select CheckedOut from TrackingInfo where AssetBarcode=TextBox3"

    Dim cmd As OleDbCommand = New OleDbCommand(str)

    cmd.Connection = objConn

    objConn.Open()

    Try
        If str = TextBox3.Text Then
            chg = False

        End If

        objConn.Close()

        MsgBox("Item Successfully Checked-In")

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try

    TextBox3.Text = String.Empty
    TextBox2.Text = String.Empty
    TextBox1.Text = String.Empty

End Sub

Posted 5-Jun-17 13:05pm

KD209

Updated 6-Jun-17 2:48am

Add a Solution

Comments

Richard MacCutchan 6-Jun-17 3:56am

What is the problem?

KD209 6-Jun-17 11:22am

Hi Richard,

Richard provided the solution I was looking for.

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)

Richard Deeming · Accepted Answer · 2017-06-06T02:48:00

How have you forgotten how to execute a query and pass a parameter since yesterday[^]?!

VB.NET

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim connStr As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Tech\LoanerTracking.accdb"
    Using conn As New OleDbConnection(connStr)
 
        Dim query As String = "Update TrackingInfo Set CheckedOut = 0 WHERE AssetBarcode = ? And CheckedOut = 1"
        Using cmd As New OleDbCommand(query, conn)
            cmd.Parameters.AddWithValue("?", TextBox3.Text)
            
            Try
                conn.Open()
                cmd.ExecuteNonQuery()
                MsgBox("Item Successfully Checked-In")
                
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End Using
    End Using
    
    TextBox3.Text = String.Empty
    TextBox2.Text = String.Empty
    TextBox1.Text = String.Empty
End Sub