How to change status from available to unavailable in vb.net

Question

0.00/5 (No votes)

See more:

I have form Equipment. Item under form Equipment such as Equipment ID, Equipment Item, Model, Description, Quantity, Serial Number and Status. When all item insert the Status automatic set to available. The problem now i want Status from available change to unavailable automatic when i click Edit button and change the Description. Tq for helping.

This my Insert code.

VB

Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

       Dim cmd As New OleDb.OleDbCommand

       'status automatic display when add all item
       Dim Status As String = "avalaible"
       txtStatus.Text = Status


       If Not cnn.State = ConnectionState.Open Then
           'open connection if it its not open yet
           cnn.Open()
       End If

       cmd.Connection = cnn
       'check whethter add an new or update
       If Me.txtEquipmentID.Tag & "" = "" Then
           'add new data to table
           cmd.CommandText = "INSERT INTO Equipment(EquipmentID, EquipmentItem, Model, Description, Quantity, SerialNo, Status) " & _
                             "VALUES(" & Me.txtEquipmentID.Text & ",'" & Me.cboEquipmentItem.Text & "','" & Me.cboModel.Text & "', '" & Me.txtDescription1.Text & "', '" & _
                              Me.txtQtty.Text & "','" & Me.txtSerialNo.Text & "','" & Me.txtStatus.Text & "')"

           cmd.ExecuteNonQuery()
           'display msge box
           MsgBox("Successfull added")

       Else
           'update data in datatable



           cmd.CommandText = "UPDATE Equipment " & _
                           "SET EquipmentID= " & Me.txtEquipmentID.Text & _
                           ", EquipmentItem='" & Me.cboEquipmentItem.Text & "'" & _
                           ", Model='" & Me.cboModel.Text & "'" & _
                           ", Description='" & Me.txtDescription1.Text & "'" & _
                           ", Quantity='" & Me.txtQtty.Text & "'" & _
                           ", SerialNo='" & Me.txtSerialNo.Text & "'" & _
                           ", Status='" & Me.txtStatus.Text & "'" & _
                           " WHERE EquipmentID=" & Me.txtEquipmentID.Tag
           cmd.ExecuteNonQuery()

       End If

       Me.btnClear.PerformClick()

       'close conneciton
       cnn.Close()

   End Sub

This my Edit code

VB

Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click
       'check for the selected item in list
       If Me.dgvEquipment.Rows.Count Then
           If Me.dgvEquipment.SelectedRows.Count > 0 Then
               Dim intEquipmentID As Integer = Me.dgvEquipment.SelectedRows(0).Cells("id").Value
               'get data form database followed by equipid
               'open connection
               If Not cnn.State = ConnectionState.Open Then
                   cnn.Open()
               End If

               'find command how to change STATUS CHANGE AUTOMATIC from AVAILABLE to UNVALAIBLE when edit the description
               'your code here




               Dim da As New OleDb.OleDbDataAdapter("SELECT * FROM Equipment " & _
                                                    "WHERE EquipmentID=" & intEquipmentID, cnn)


               Dim dtEquipment As New DataTable
               da.Fill(dtEquipment)

               Me.txtEquipmentID.Text = intEquipmentID
               Me.cboEquipmentItem.Text = dtEquipment.Rows(0).Item("EquipmentItem")
               Me.cboModel.Text = dtEquipment.Rows(0).Item("Model")
               Me.txtDescription1.Text = dtEquipment.Rows(0).Item("Description")
               Me.txtQtty.Text = dtEquipment.Rows(0).Item("Quantity")
               Me.txtSerialNo.Text = dtEquipment.Rows(0).Item("SerialNo")
               Me.txtStatus.Text = dtEquipment.Rows(0).Item("Status")

               'hide the id to be edited in TAG if txtequipid in case change
               Me.txtEquipmentID.Tag = intEquipmentID

               'change button add to update
               Me.btnAdd.Text = "Update"

               'disable button edit
               Me.btnEdit.Enabled = False

               'close connection
               cnn.Close()

           End If


       End If
   End Sub

Posted 25-Mar-13 20:23pm

hanigbl

Add a Solution

Comments

Prasad Khandekar 26-Mar-13 10:21am

Have you though of writing a event handler for TextChanged event of txtDescription texbox control and in that change the status to whatever you want.

hanigbl 26-Mar-13 21:07pm

Not yet. Can u help me for that part?

Prasad Khandekar 27-Mar-13 2:27am

Hello,

You need to write code something line shown below. More info on this cab be found here on MSDN. (

Private Sub txtDescription_TextChanged(sender As Object, e As EventArgs) Handles txtDescription.TextChanged
txtStatus.Text = "Unavailable"
End Sub

hanigbl 27-Mar-13 21:35pm

Hai,

Thanks for the code. I try but not working. If any part of my Insert and Edit form I leave the code?

Prasad Khandekar 27-Mar-13 21:47pm

Is it not changing or what?

hanigbl 27-Mar-13 22:19pm

The status not changing when i click the Edit button after i update the Description field.

Prasad Khandekar 27-Mar-13 22:36pm

The TextChanged event is raised when user inputs something in the textbox or text property is set to a new value. If the Text property is set to the same string as the content in the TextBox, the event is not raised. Hope this explains why the event is not raised and status field is not getting updated.

hanigbl 27-Mar-13 22:51pm

Actually the Status field will change from available to unavailable when the user update the Description field.

Prasad Khandekar 28-Mar-13 1:13am

That's precisely the handler will be doing. Whenever user is going to key in some value in description field, the handler will change status field text.

hanigbl 28-Mar-13 2:28am

Private Sub txtDescription_TextChanged(sender As Object, e As EventArgs) Handles txtDescription.TextChanged
txtStatus.Text = "Unavailable"
End Sub

I already write above code in my description text handler but the status not change. Anything i leave ?

Prasad Khandekar 28-Mar-13 3:09am

even after user keys in something and tabs out?

hanigbl 28-Mar-13 3:18am

I use datagridview to view the list all the item. My process Update are when user click Edit button after that user update the Description, button Add is same with button Update and the status should be change to unavilable after user click update button. If anything i do wrong in my Add and Edit code? tq

Prasad Khandekar 28-Mar-13 5:39am

In that scenario you do not need the handler. Simply add following line in else part of your btnAdd_click handler.
txtStatus.text = "Unavilable"

hanigbl 29-Mar-13 5:30am

Thats means i just add the txtStatus.text = "Unavilable" code at my btnAdd button? below my
'status automatic display when add all item
Dim Status As String = "avalaible"
txtStatus.Text = Status

BVS89 5-Apr-13 18:02pm

I'm not sure where you want the value of "Status" to change, do you mean you want it to be unavailable in the editing table before updating or just in the textbox you use for showing the current cell value of this column?

[no name] 6-Apr-13 5:03am

Hello, buddy
First what you want ?, your status is Available or Unavailable, ok.
Second Where you want to show your status ?, In taxtbox or datagridview or on any other?
Please, Cleare that.

hanigbl 7-Apr-13 21:18pm

Hello
1) I have 3 form such as form Loan, form Equipment and form Return
2) I want the Status field in form Equipment automatic display Available when user key in the Equipment detail.
3) I want Status field in form Equipment automatic change form Available to Unavailable when key in the Equipment ID in form Return and i actually have no idea to connect my form Loan to form Return.
4) I already success make the status display automatic when user key in equipment field in form Equipment.
Tq for helping.

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)