Reading from a database

Expand Post »

I have a subscription system that i have developed. the system is supposed to automatically subtract the number of copies given to a client every monthend as per request they made of the copies required upon joining. my problem is i cant make my code run through my database so that it can subtract from every record....instaed it can deal with one record at a time. i cant manually subtract because the records at one time are going to reach thousands. i justa want it to automatically subtract from all fields when a button is clicked.

i have een trying to use this code but its not working.

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
With rc
.ActiveConnection = deSub.conn
.LockType = adLockOptimistic
.Source = "select * from cooperatesubs"
.Open
End With
z = rc.Fields("numberofcopies")
Do Until rc.EOF
rc.AddNew
rc.Fields("numberofcopies") = z
rc.Fields("copiesgiven") = y
rc.Fields("copiesremaining") = z - y
rc.Update
rc.MoveNext
Loop
Exit Sub
With rc
.ActiveConnection = deSub.conn
.LockType = adLockOptimistic
.Source = "select * from cooperatesubs"
.Open
End With
z = rc.Fields("numberofcopies")
Do Until rc.EOF
rc.AddNew
rc.Fields("numberofcopies") = z
rc.Fields("copiesgiven") = y
rc.Fields("copiesremaining") = z - y
rc.Update
rc.MoveNext
Loop
Exit Sub

Similar Threads

Updating Records in Access Database C# OleDB in C#
data retrieval trouble in JSP
Display Image from database in C#
import txt file sql database plz help! in C#
Displaying the content of the database in JTextArea in Java

Israelsimba

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

41 posts
since Oct 2009

Permalink

Oct 26th, 2009

Re: Reading from a database

Try the following -

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)
With rc
.ActiveConnection = deSub.conn
.LockType = adLockOptimistic
.Source = "select * from cooperatesubs"
.Open
End With
 
Dim w As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer
 
Do Until rc.EOF = True
 
y = rc.Fields("copiesgiven") 
z = rc.Fields("numberofcopies")
x = z - y
w = y + 1
 
rc.AddNew
'rc.Fields("numberofcopies") = z This will not change, for it is a set number, correct?
rc.Fields("copiesgiven") = w
rc.Fields("copiesremaining") = x
rc.Update
rc.MoveNext
Loop
Exit Sub
With rc
.ActiveConnection = deSub.conn
.LockType = adLockOptimistic
.Source = "select * from cooperatesubs"
.Open
End With

Dim w As Integer
Dim x As Integer
Dim y As Integer
Dim z As Integer

Do Until rc.EOF = True

y = rc.Fields("copiesgiven") 
z = rc.Fields("numberofcopies")
x = z - y
w = y + 1

rc.AddNew
'rc.Fields("numberofcopies") = z This will not change, for it is a set number, correct?
rc.Fields("copiesgiven") = w
rc.Fields("copiesremaining") = x
rc.Update
rc.MoveNext
Loop
Exit Sub

AndreRet

Reputation Points: 329

Solved Threads: 347

Senior Poster

Offline

3,700 posts
since Jan 2008

Permalink

Nov 7th, 2009

Re: Reading from a database

i strongly believe the problem is with the

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

.movenext

part. its not moving to the next record wich makes it effective on one row only and fails to run through the database.
i was wondering isnt there any other way of doing this besides this one
thanx you

Israelsimba

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

41 posts
since Oct 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Try-Catch feature for VB6, VBA, VBScript

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: If then Statement in excel using data in 2-3 columns

DaniWeb Message

Cancel Changes

User Name
Password