منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
معرفة عدد الجداول في قاعدة بيانات - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : معرفة عدد الجداول في قاعدة بيانات (/showthread.php?tid=31547)

معرفة عدد الجداول في قاعدة بيانات - ابو همام العراقي - 29-09-19

السلام عليكم

ارجو المساعدة من الاخوة الاعزاء في المنتدى 

بعد ان قمت بربط قاعدة بيانات على شكل ملف اكسل 2003 عن طريق اسمه ، وبما اني لا اعلم اسماء الاوراق التي في الملف والتي هي عبارة عن جداول في قاعدة البيانات، لم استطع استخدام الامر Fill من الداتا ادبتر لكي املا الدادا سيت وذلك لعدم معرفتي باسماء الجداول

ان كان هنالك طريقة لمعرفة اسماء الجداول في قاعدة البيانات بعد فتح الاتصال معها ، ارجو كتابة الكود مع جزيل الشكر

علما اني استخدم فيجوال بيسك دوت نت الاصدار 12

RE: معرفة عدد الجداول في قاعدة بيانات - اسامه الهرماوي - 29-09-19

السلام عليكم...
ما المشكلة في فتح القاعدة إذا وكيف أشئتها؟؟؟

RE: معرفة عدد الجداول في قاعدة بيانات - asemshahen5 - 29-09-19

PHP كود :
       For i = 0 To ds.Tables.Count - 1
            ListBox1.Items.Add(ds.Tables(i).TableName)
        Next 


RE: معرفة عدد الجداول في قاعدة بيانات - ابو همام العراقي - 29-09-19

وعليكم السلام
اخي اسامة الهرماوي ليس هنالك مشكلة في ربط ملف الاكسيل والاتصال به، ولكن المشكلة في معرفة اسماء الاوراق في هذا الملف (على اعتبار انها جداول في قاعدة البيانات) حيث ان المعلوم فقط اسم الملف وليس محتواه.
لكي تكون الصورة اوضح ، فانه لدي عشرات من ملفات الاكسيل (من الممكن وضعها في فولدر وقراءت اسماءها عن طريق الكود) ومن ثم عمل اتصال مع كل ملف على حدى وسحب البيانات من الاوراق الموجودة في هذا الملف، ولكن اسماء الاوراق تختلف من ملف الى اخر وكذلك عددها من ملف الى اخر علما ان ترتيب البيانات في جميع الاوراق وفي مختلف الملفات ثابت لايتغير، المطلوب سحب هذه البيانات ووضعها في قاعدة بيانات نوع SQl

ارجو ان تكون الصورة واضحة
اخي asemshahen5

المشكلة ان دالة ال Fill من الداتا ادبتر لا تقبل ان تملأ الداتا سيت وذالك لانه تحتاج الى براميترين احدهما اسم الجدول

ارجو منك كتابة الكود كاملا ، لعلي اكون قد اخطأت في طريقة ملئ الداتا سيت

RE: معرفة عدد الجداول في قاعدة بيانات - asemshahen5 - 30-09-19

PHP كود :
   Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim xlApp As New Microsoft.Office.Interop.Excel.Application
        Dim opd As New OpenFileDialog
        opd.Filter = "ملفات الاكسيل |*.xlsx"
        If opd.ShowDialog = Windows.Forms.DialogResult.OK Then
            xlApp.Workbooks.Open(opd.FileName, 0, True)
        End If
        '' For the first sheet in an excel spreadsheet
        xlWorkSheet = CType(xlApp.Sheets(1),  _
                            Microsoft.Office.Interop.Excel.Worksheet)
        ''Dim strSheetName As New List(Of String)
        For Each xlWorkSheet In xlApp.Sheets
            ''strSheetName.Add(xlWorkSheet.Name)
            ListBox1.Items.Add(xlWorkSheet.Name)
        Next
    End Sub 


RE: معرفة عدد الجداول في قاعدة بيانات - ابو همام العراقي - 30-09-19

جزاك الله خير اخي asemshahen5

نفذت الكود وعرض اسماء الاوراق في صندوق القائمة

RE: معرفة عدد الجداول في قاعدة بيانات - asemshahen5 - 30-09-19

الحمد الله و الشكر الله .