Solved

VB6 Datagrid with ADO - Select Sum question

Posted on 2002-03-04
4
1,441 Views
Last Modified: 2012-06-21
Hi there,

I'm fairly new to VB and having problems using a SQL statement with VB6.  In my application I have two tables called Job and Labour.  A job can have many 'labours' (for example an employee does work, I've made that a 'labour' for a particular job number).  So in the Job table there is a field called Job Number.  In the Labour table there is a Total Time field.  

In my VB application I have two forms, a Job form and a Labour form.  The Job form launches first and is simple with a datagrid, an ADO control, and a bunch of text fields and combo boxes.  The Labour form is spawned from the Job form by double clicking a record in the datagrid and then I just use a SQL statement to select all 'labours' where they equal the job number in the job table.

Anyways, that all works fine.  My problem is that I want to display a text field on the Job form that adds up all of the Labours TotalTime field.  So basically if a Job has three Labours, or stuff done on it, then I want to add those three fields together and display one total on the Job form.  I realize that is what the Sum part of the SQL statement is for, and I can easily get the textfield to display the total time on the Job form, grabbing and summing the records from Labour where they have the same Job number.  I should mention I do this in the Form_Load procedure.  

So that works.  What doesn't work is that if I change rows (I've got a toolbar up top) then it keeps reading the same value...of the first Job number.  So I tried combating that by finding the datagrid property which will tell me that the row has changed.  I've tried all of them listed pretty much that pertain to setting the focus of the row.  None of them seem to work.

To summate:  How do I display a textfield total value and update that value as I change rows, either by using my toolbar to MoveNext or by just clicking the datagrid.  (it is enabled, but doesn't allow updates).  Basically I want to query the database each time a new row has gotten the focus and sum all values in a column where their job number is the job number of the row selected.

If anyone needs more info feel free to ask, I'd love to solve this annoying obstacle.  Thanks a lot!  
0
Comment
Question by:bigfish777
4 Comments
 
LVL 69

Accepted Solution

by:
Éric Moreau earned 200 total points
ID: 6838785
Use the RowColChange event.

Also, give a try to the Data Form Wizard to generate a Master/Detail (Labour/Job) in your case.
0
 
LVL 1

Expert Comment

by:S2
ID: 6838960
Don't use the datagrid use the MSHflexgrid it's simple to use and it's much more powerfull.
0
 
LVL 43

Expert Comment

by:TimCottee
ID: 6838983
You could also use the MoveComplete event of the ADO Datacontrol to achieve this.
0
 

Author Comment

by:bigfish777
ID: 6839731
Thanks a bunch.  I totally missed RowColChange for some reason...it does exactly what I want.
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Introduction While answering a recent question (http://www.experts-exchange.com/Q_27402310.html) in the VB classic zone, I wrote some VB code in the (Office) VBA environment, rather than fire up my older PC.  I didn't post completely correct code o…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now