Eyi’s Personal Blog

Someone Cares

Verse:

Someone cares and always will

The world forgets you but God loves you still

You can not go beyond His love

No matter what your guilty of

He always loves you

He really loves you

Verse:

He knows you pain and all your loneliness

His watchful eyes know every path you’ve made

You can not go beyond His love

No matter what your guilty of

He will do miracle for you right here right now

Chorus:

His love is tender to mend a broken heart

Cast down your worries and He will set you free

He’s more than able to make your life a new

Someone cares, Jesus cares for you

What a good song it is. It’s a song that has a special meaning and unforgettable memory for me. A couple days ago, I was finding songs that I’d like to sing in Youth Fellowship Saturday night. When I scrolled down my mouse wheel in Easy Worship, I found a lot of songs and at last I stopped at this song. When I saw this song, my mind took my memory to a couple years ago when I heard this song for the first time. This song was sung in Youth KKR and I was really touched by that song. Besides, this song was sung by someone who was special for me. What a great lyric to show how Jesus loves you so much. He loves and always loves you no matter what your guilty of. His love is tender to mend a broken heart.

If there are some data of Products, and OrderDetails.

Products

OrderDetails

If you needed to try this sample application, just create those table in your database.

Products

ProductId Number, ProductName Text(40)

OrderDetails

ProductId Number, TotalQuantity Number

Arrange products quantity chart that consist of data from those tables!

First of all, you need to join the table to get productid and productname from Products, and then totalquantity from OrderDetails. Here is the query:

Select a.productid,a.productname,sum(b.totalquantity) as totalquantity

From products as a inner join orderdetails as b

on a.productid = b.productid

Group by a.productid,a.productname

Order by a.productid

Here is the result of query execution:

If you want to make an application that contains chart in it, create a project in Microsoft Visual Basic 6.0, add Microsoft Chart Control 6.0 to your project, and drag drop the component into your form.

Create this code to your form:

Dim Cn As ADODB.Connection

Dim Rs As ADODB.Recordset

Private Sub Form_Load()

Set Cn = New ADODB.Connection

Cn.ConnectionTimeout = 30

Cn.CommandTimeout = 0

Cn.ConnectionString = “Provider=Microsoft.Jet.Oledb.4.0;” & _

“Data Source=” & App.Path & “\Northwind.mdb;” & _

“Jet Oledb:Database password=”;”

Cn.CursorLocation = adUseClient

Cn.Open

Set Rs = New ADODB.Recordset

Rs.Open “Select a.productid,a.productname,sum(b.totalquantity) As

totalquantity From products as a inner join orderdetails as b on

a.productid = b.productid Group by a.productid,a.productname Order by

a.productid”, Cn

If Not Rs.EOF Then

MSChart1.ColumnCount = 1

MSChart1.ColumnLabel = “Product Name”

MSChart1.RowCount = Rs.RecordCount

MSChart1.Column = 1

Dim i As Integer

i = 1

Do While Not Rs.EOF

MSChart1.Row = i

MSChart1.RowLabel = Rs(”productname”)

MSChart1.Data = Rs(”totalquantity”)

i = i + 1

Rs.MoveNext

Loop

End If

Rs.Close

Set Rs = Nothing

If Not Cn Is Nothing Then

Cn.Close

Set Cn = Nothing

End If

End Sub

Here is the result of chart: