الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

فتح قاعدة البيانات باستخدام CommonDialog ؟؟

مغلق
بدأه ميمنة في 22 مارس 2005 · 5 رد · 1,378 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

اخواني الافاضل ..

تواجهني مشكلة عند استخدام اداة CommonDialog فالاداة تعمل على مايرام لكن عند استدعاء قاعدة البيانات باستخدام CommonDialog لا يظهر جدول البيانات في الـChart بينما يظهر عندما استدعي الجدول مباشرة (بدون استخدام CommonDialog)

هذا الكود باستدعاء قاعدة البيانات مباشرة

'
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    '
    Dim strProvider As String
    Dim strDataSource As String
    Dim strSQL As String
    '
    strProvider = "Microsoft.Jet.OLEDB.3.51"
    strDataSource = "C:\Documents and Settings\Administrator\My Documents\db\db1.mdb"
    strSQL = "SELECT * FROM numbers"
    '
    cnn.Open "provider=" & strProvider & ";Data Source=" & _
    strDataSource
    rst.Open strSQL, cnn, adOpenStatic
    '
    With MSChart1
        Set .DataSource = rst
            .ShowLegend = True
            .chartType = VtChChartType3dArea
    End With

هذا الكود باستخدام CommonDialog

   CommonDialog1.CancelError = True
        On Error GoTo CancelOpen
        CommonDialog1.Flags = cdlOFNHideReadOnly
        CommonDialog1.DialogTitle = "Open MDB file"
        CommonDialog1.Filter = "MDB Files|*.mdb|All Files|*.*"
        CommonDialog1.ShowOpen
        
           If CommonDialog1.FileName <> "" Then
               Exit Sub
            Else
               MSChart1.ChartData = CommonDialog1.FileName
           End If
CancelOpen:
     Exit Sub

اعرف ان المشكلة تكمن في هذا السطر

MSChart1.ChartData = CommonDialog1.FileName

لاني بصراحة لم اعرف كيف اربط القاعدة البيانات المفتوحة بواسطة CommonDialog مع MSChart

اتمنى ان اجد لديكم الحل :unsure:

اختكم في الله مَيمنة

تم تعديل هذه المشاركة بواسطة ميمنة في 22 مارس 2005 في 10:25

#2

أخي يمكنك ضم الحركتين بأن تضع مصدر البيانات هو ملف قاعدة البيانات الممرر من أداة commondialog 

  Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   '
   Dim strProvider As String
   Dim strDataSource As String
   Dim strSQL As String
CommonDialog1.CancelError = True
       On Error GoTo CancelOpen
       CommonDialog1.Flags = cdlOFNHideReadOnly
       CommonDialog1.DialogTitle = "Open MDB file"
       CommonDialog1.Filter = "MDB Files|*.mdb|All Files|*.*"
       CommonDialog1.ShowOpen

If CommonDialog1.FileName <> "" Then
              Exit Sub
           Else
strProvider = "Microsoft.Jet.OLEDB.3.51"
   strDataSource = commondialog1.filename
   strSQL = "SELECT * FROM numbers"
   '
   cnn.Open "provider=" & strProvider & ";Data Source=" & _
   strDataSource
   rst.Open strSQL, cnn, adOpenStatic
   '
   With MSChart1
       Set .DataSource = rst
           .ShowLegend = True
           .chartType = VtChChartType3dArea
   End With
 End If
CancelOpen:
    Exit Sub

هي فكرة فقط ولكن لم أجربها جربها أنت وإن شاء الله تضبط معك ولكن لاحظ غلق الجدول وقاعدة البيانات بعد فيحهما وتحميا البيانات بـ chart

تحياتي لك

أخوك ناصر

تم تعديل هذه المشاركة بواسطة nasser50001 في 22 مارس 2005 في 12:08

سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك

#3

السلام عليكم

جزاك الله خيرا اخي الفاضل ناصر على الرد.. جربت ما اقترحته لكن النتيجة هي ذاتها لم تتغير :(

قمت بارفاق المشروع اذا ممكن النظر فيه.. و معذرة على الازعاج

عند استخدام CommonDialog هل هناك تغييرات يجب ادخالها على Properties المتعلقة بها؟ و خاصة Custom

اختكم مَيمنة

chart.zip

#4

اختي ميمنة

حملت الملف وجربته وشغال 100% ولا يعطي اي رسائل خطأ

لا أدري ما سبب عدم عمله عندك

سبحان الله MCP,MCSA,MCDBA,MCSE,MCTegyptian in Dammam----------------------------------------------------مواضيعي بالمنتدي أنشأ مشروعك بالفيجوال بيسك 6كتاب أنشأ مشروعك بالفيجوال بيسك كامل pdfكل ما يتعلق بدوال التاريخالمستخدمون والصلاحيات في برنامجك

#5

السلام عليكم..

الملف المرفق أخت ميمنة يحتاج فقط إلي تعديل غاية في البساطة وسوف يعمل بإذن الله..

    If CommonDialog1.FileName <> "" Then
        Exit Sub
    Else

تتغير ال<> إلي =

    If CommonDialog1.FileName = "" Then
        Exit Sub
    Else

:)

#6

السلام عليكم

:)

بارك الله فيكم اخوتي الافاضل

اخي الفاضل ناصر .. ربما قمت بالضغط على ايقونة (Open the database to display the graph) اولا ثم ضغطت على الايقونة الاخرى

اخي Recordset.. فعلا بعد التغيير عمل البرنامج على احسن ما يكون .. جزاك الله خيرا

اختكم مَيمنة

تم تعديل هذه المشاركة بواسطة ميمنة في 25 مارس 2005 في 05:42

هذا الموضوع مغلق.

مواضيع مشابهة