• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 285
  • Last Modified:

Graphs in VB?

I need a really good graph control to display records from SQL7 thru ADO. I need to be able to really customize it.
0
hutchison
Asked:
hutchison
  • 2
1 Solution
 
AshokKumarCommented:
Nice Friend. Here it goes. The entire code. <Smile>

First declare a recordset and a connection. Then include the component MSChart in the form. I have used MS Access as backend and as a programmer u would easily convert the Access connection to SQL connection. Remaining all are same (ie. recordset and all that).

Private adoRs As New ADODB.Recordset
Private adoCn As New ADODB.Connection

Then in the form load event

Private Sub Form_Load()

Dim strSql As String

adoCn.ConnectionString = _
   "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
   "C:\Program Files\Microsoft Visual Studio\VB98\nwind.mdb"

adoCn.Open 'Open the connection
   
   ' Create a query that retrieves only four fields.
   strSql = "SELECT ProductName, UnitPrice, " & _
   "UnitsInStock, UnitsOnOrder FROM Products WHERE SupplierID = 1"

adoRs.Open strSql, adoCn, adOpenKeyset

   ' Set the DataSource to the recordset.
   With MSChart1
      .ShowLegend = True
      Set .DataSource = rsProducts
   End With
End Sub


JUst copy this code and u'll get the result u wanted. U can set the Chart type as graphical type. U have 9 types to choose from. Get back to me.
0
 
AshokKumarCommented:
Thanks hutchison but y Grade B.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: CompTIA Healthcare IT Tech

This course will help prep you to earn the CompTIA Healthcare IT Technician certification showing that you have the knowledge and skills needed to succeed in installing, managing, and troubleshooting IT systems in medical and clinical settings.

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now