السلام عليكم ورحمة الله وبركاتة
نقوم بانشاء قاعدة بيانات التالية
كيف نقوم باستخدام اداة مايكروسوفت تشارت داخل الفيجوال بيسك 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 التعليقات:
إرسال تعليق