I need to get a total of a specific column of a table of access db in a text box in my visual basic application. What should be the code? I am using adodc to connect with the database.
Help urgent please..........

Recommended Answers

All 7 Replies

Simply try using SUM(column_name) using SQL query.

Would you please explain a bit more? I am not so expert in codeing. In formload i want to get it. Table name is report, Db name rate. So then......what?

try this code. hope this will help you.........

Dim db As Database
Dim rs As Recordset
Dim tot As Double

Set db = OpenDatabase(App.Path & "\rate.mdb")
Set rs = db.OpenRecordset("report", dbOpenTable)

tot = 0

If rs.RecordCount > 0 Then
    While Not rs.EOF()
        tot = tot + rs!basic_pay
End If

Text1.Text = tot

in your sql query...

SELECT SUM(<column_name>) as SumOfColumn from <tablename>

many many thanks to all. thistime shuvi's code works well. thx again shuvi.

Querying is better than looping on a recordset since this will take a certain amount of time...

Lets just say you have 100,000+ records, then you will count them 1 by 1?

many many thanks to all. thistime shuvi's code works well. thx again shuvi.

glad to hear that. but cometburn's syntax is also correct. you can apply that also.
(completely upto you).

if u got your answer then mark this thread solved.


Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.