Member Avatar for bantex07

I have a proble. How can i call andd compute all the record in may database(MS Access) Please gave me some idea or Code Thx

  • 2 Contributors
  • 1 Reply
  • 146 Views
  • 6 Hours Discussion Span
  • Latest Post Latest Post by Jx_Man
Member Avatar for Jx_Man

Please gave me some idea

Use Sum function in your sql query.

or Code Thx

modified as you needed :

Private Sub Command1_Click()
    Dim Conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sConnect As String
     
    sConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "emp.mdb"
    'Replace emp with your file name
    Conn.Open sConnect
    rs.Open "select sum(quantity) from purchase", Conn, adOpenDynamic, adLockPessimistic
    Msgbox rs.Fields(0).Value
    rs.Close
    Conn.Close
End Sub
Edited by Jx_Man because: n/a
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.