DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Subtracting from database

Thread Solved

•

Join Date: Oct 2009

Posts: 3

Reputation: ivankenny is an unknown quantity at this point

Solved Threads: 0

ivankenny

Offline

Newbie Poster

Subtracting from database

30 Days Ago

Hello it's me again i'm having problem with the database subtraction for my POS Project im using ado database and i know that you just have to change the value from the selected and voila it would update the database but mine doesnt work:

' txtqan is connect to the item database
txtqan.text = Val(txtqan.text) - Val(txtsalesqan.text)

•

Join Date: Mar 2009

Posts: 814

Reputation: vb5prgrmr will become famous soon enough

Solved Threads: 148

vb5prgrmr

Offline

Practically a Posting Shark

30 Days Ago

So you are using the ADODC (ActiveX Data Objects Data Control) right???

Help with Code Tags

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

adodc1.Recordset.Update

Good Luck

If anyone has helped you solve your problem, please mark your thread as solved.

Thanks

•

Join Date: Jan 2008

Posts: 243

Reputation: AndreRet is an unknown quantity at this point

Solved Threads: 35

AndreRet

Offline

Posting Whiz in Training

29 Days Ago

Try the following -

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim x as Integer, y as Integer, z as Integer
x = Val(txtQan.Text)
y = Val(txtSalesQan.Text)
z = x - y
 
rsQan!Qauntity = z
rsQan.Update
'rsQan is your recordset
'Qauntity is your field name
Dim x as Integer, y as Integer, z as Integer
x = Val(txtQan.Text)
y = Val(txtSalesQan.Text)
z = x - y

rsQan!Qauntity = z
rsQan.Update
'rsQan is your recordset
'Qauntity is your field name

Hope this solves your problem.

Please mark questions as answered when done.

Be the ONE!!!

•

Join Date: Oct 2009

Posts: 3

Reputation: ivankenny is an unknown quantity at this point

Solved Threads: 0

ivankenny

Offline

Newbie Poster

27 Days Ago

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
 
 Dim x as Integer, y as Integer, z as Integer
 x = Val(txtQan.Text)
 y = Val(txtSalesQan.Text)
 z = x - y
      
 rsQan!Qauntity = z
 rsQan.Update
 'rsQan is your recordset
 'Qauntity is your field name
  
 Dim x as Integer, y as Integer, z as Integer
 x = Val(txtQan.Text)
 y = Val(txtSalesQan.Text)
 z = x - y
      
 rsQan!Qauntity = z
 rsQan.Update
 'rsQan is your recordset
 'Qauntity is your field name

thx for the help i just change the code a little bit and it work just add .recordset to make it work for my system thx here the new code:

1. Dim x as Integer, y as Integer, z as Integer
2. x = Val(txtQan.Text)
3. y = Val(txtSalesQan.Text)
4. z = x - y
5.
6. rsQan.recordset!Qauntity = z
7. 'rsQan is your recordset
8. 'Qauntity is your field name

Last edited by ivankenny; 27 Days Ago at 7:57 pm.