Expiring Today—Celebrate National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

Graphs in VB?

Posted on 2000-03-27
2
Medium Priority
?
278 Views
Last Modified: 2010-05-02
I need a really good graph control to display records from SQL7 thru ADO. I need to be able to really customize it.
0
Comment
Question by:hutchison
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
2 Comments
 

Accepted Solution

by:
AshokKumar earned 150 total points
ID: 2662942
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
 

Expert Comment

by:AshokKumar
ID: 2671906
Thanks hutchison but y Grade B.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Most everyone who has done any programming in VB6 knows that you can do something in code like Debug.Print MyVar and that when the program runs from the IDE, the value of MyVar will be displayed in the Immediate Window. Less well known is Debug.Asse…
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
Suggested Courses

719 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question