Hello , i am using vb6.0 can some one help me with my problem. I want to summarize a database with multiple name and display it into one data where the date is same today. thank you for any one would response.
for example. below is a table where multiple names created.
In database
Name Total Payment Date
lius-- 100--- 07/01/22
lius-- 100--- 07/01/22
lius-- 50-- 07/01/22
era-- 60-- 07/03/22
era-- 50-- 07/03/22
So when it executed in listview form it would look like on the below sample
Name Total Payment Date
lius-- 250-- 07/01/22
era-- 110-- 07/03/22
Here is my code for executing my database in listview form
Set rxb = New ADODB.Recordset
rxb.Open "Select * from History order by trn", con, 3, 3
with rxb
On Error Resume Next
Do While Not .EOF
ListView2.ListItems.Add , , !TRN, 1, 1
ListView2.ListItems(ListView2.ListItems.count).SubItems(1) = "" & !Emp
ListView2.ListItems(ListView2.ListItems.count).SubItems(3) = "" & !hdate
ListView2.ListItems(ListView2.ListItems.count).SubItems(4) = "" & !htime
ListView2.ListItems(ListView2.ListItems.count).SubItems(5) = "" & !purchases
ListView2.ListItems(ListView2.ListItems.count).SubItems(6) = "" & !payment
ListView2.ListItems(ListView2.ListItems.count).SubItems(7) = "" & !rBalance
ListView2.ListItems(ListView2.ListItems.count).SubItems(8) = "" & !adjustment
ListView2.ListItems(ListView2.ListItems.count).SubItems(9) = "" & !Pm
ListView2.ListItems(ListView2.ListItems.count).SubItems(10) = "" & !Cashier
.MoveNext
Loop
.Close
End With