About

الاثنين، 19 مارس 2012

How to use MSchart in vb6

السلام عليكم ورحمة الله وبركاتة

نقوم بانشاء قاعدة بيانات التالية





كيف نقوم باستخدام اداة مايكروسوفت تشارت داخل الفيجوال بيسك 6
نقوم بانشاء مشروع جديد
ثم نضيف الاداة كما يلي الي شريط الادوات

ثم نضيفها الي الفورم كما يلي

ثم في الفورم لود نقوم بكاتبة الكود التالي


Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=ChartData.accdb"
rs.Open "select * from table1", cn, 1, 3

Set MSChart1.DataSource = rs


نقوم بتشغيل البرنامج





بالتوفيق ان شاء الله

0 التعليقات:

إرسال تعليق

Twitter Delicious Facebook Digg Stumbleupon Favorites More