تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
معرفة عدد الجداول في قاعدة بيانات
#1
السلام عليكم

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

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

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

علما اني استخدم فيجوال بيسك دوت نت الاصدار 12
الرد
تم الشكر بواسطة:
#2
السلام عليكم...
ما المشكلة في فتح القاعدة إذا وكيف أشئتها؟؟؟
الرد
تم الشكر بواسطة:
#3
PHP كود :
       For i 0 To ds.Tables.Count 1
            ListBox1
.Items.Add(ds.Tables(i).TableName)
 
       Next 
الرد
تم الشكر بواسطة:
#4
وعليكم السلام
اخي اسامة الهرماوي ليس هنالك مشكلة في ربط ملف الاكسيل والاتصال به، ولكن المشكلة في معرفة اسماء الاوراق في هذا الملف (على اعتبار انها جداول في قاعدة البيانات) حيث ان المعلوم فقط اسم الملف وليس محتواه.
لكي تكون الصورة اوضح ، فانه لدي عشرات من ملفات الاكسيل (من الممكن وضعها في فولدر وقراءت اسماءها عن طريق الكود) ومن ثم عمل اتصال مع كل ملف على حدى وسحب البيانات من الاوراق الموجودة في هذا الملف، ولكن اسماء الاوراق تختلف من ملف الى اخر وكذلك عددها من ملف الى اخر علما ان ترتيب البيانات في جميع الاوراق وفي مختلف الملفات ثابت لايتغير، المطلوب سحب هذه البيانات ووضعها في قاعدة بيانات نوع SQl

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

اخي asemshahen5

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

ارجو منك كتابة الكود كاملا ، لعلي اكون قد اخطأت في طريقة ملئ الداتا سيت
الرد
تم الشكر بواسطة: asemshahen5
#5
PHP كود :
   Private Sub Button6_Click(sender As ObjectAs EventArgsHandles 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.FileName0True)
 
       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 
الرد
#6
جزاك الله خير اخي asemshahen5

نفذت الكود وعرض اسماء الاوراق في صندوق القائمة
الرد
تم الشكر بواسطة: asemshahen5
#7
الحمد الله و الشكر الله .
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اتجنب يتكرر خطاء الحذف في الداتا جريد فيو هذه دالة حذف بيانات من الداتاجريد فيو م بسام محمدغانم 2 66 12-12-19, 07:49 AM
آخر رد: بسام محمدغانم
  معرفة الخلية (رقم الصف والعمود ) الذي ينقر عليها المستخدم في الداتا جريد muad 1 93 09-12-19, 02:48 AM
آخر رد: معاند الحظ
Photo [VB.NET] السلام عليكم اخواني واخواتي سوال بسيط في الفيجوال بيسك 2010 معا قاعدت بيانات اكسس 201 hosamloveme888@yahoo.com 1 84 09-12-19, 02:32 AM
آخر رد: hosamloveme888@yahoo.com
  كود إنشاء قاعدة البرنامج من اسكربت عند فتح البرنامج أول مره Hamoody 5 176 05-12-19, 01:32 PM
آخر رد: asemshahen5
  حفظ جدول كامل الى قاعدة بيانات muad 9 252 04-12-19, 03:39 PM
آخر رد: abomo3ath
  مشاركة قاعدة بيانات سيكول سيرفر makky 2 128 01-12-19, 02:28 AM
آخر رد: ابو ليلى
  [VB.NET] تضمين قاعدة البيانات داخل مجلد العمل Mustafa Shaker 14 364 27-11-19, 10:18 AM
آخر رد: asemshahen5
  [سؤال] عرض بيانات الاكسل بشكل اكتف m.n.hakami 0 80 26-11-19, 02:05 PM
آخر رد: m.n.hakami
  كيف يُمكن حماية قاعدة بيانات الأكسس؟ Hazem1 17 1,616 25-11-19, 12:54 AM
آخر رد: عبد العزيز البسكري
  الحذف من قاعدة البيانات بشرط معين محمد خيري 13 203 25-11-19, 12:40 AM
آخر رد: asemshahen5

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم