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..........

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

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.


This question has already been answered. Start a new discussion instead.