تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] قراءة MsysObjects
#1
السلام عليكم
كيف أستطيع قراءة جدول MsysObjects في قاعدة بيانات أكسس من خلال فيجوال بيسيك
نفذت استعلام لكن يضع خطأ بعدم وجود اذن للقراءة
ممكن تنفيذ مثال يوضح قراءة كائنات MsysObjects لعرض اسماء التقارير الموجودة في قاعدة البيانات

شكرا لكم
الرد }}}}
تم الشكر بواسطة:
#2
.....

منقول

عرض اسماء التقارير الموجودة في قاعدة البيانات

mdb
كود :
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

   Dim Modules As String = "[type]=-32761"                         ' الوحدات
   Dim Reports As String = "[type]=-32764"                         ' التقارير
   Dim Macros As String = "[type]=-32766"                          ' الماكرو
   Dim Forms As String = "[type]=-32768"                           ' النماذج
   Dim Tables As String = "[type]=1 AND [Name] NOT LIKE 'MSys%'"   ' الجداول
   Dim Queries As String = "[type]=5 AND [NAME] NOT LIKE '~%'"     ' الاستعلامات

   Using conn As New OleDb.OleDbConnection(" Provider = Microsoft.Jet.Oledb.4.0; Data Source = db1.mdb; Jet OLEDB:System Database = " & Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Microsoft\Access\System.MDW")
       Using da As New OleDb.OleDbDataAdapter("SELECT [Name] FROM [MSysObjects]  WHERE " & Tables, conn)

           Dim dt As New DataTable
           da.Fill(dt)

           For Each row As DataRow In dt.Rows
               Me.ListBox1.Items.Add(row("Name"))
           Next

       End Using
   End Using

End Sub

accdb
كود :
Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click

   Dim Modules As String = "[type]=-32761"                         ' الوحدات
   Dim Reports As String = "[type]=-32764"                         ' التقارير
   Dim Macros As String = "[type]=-32766"                          ' الماكرو
   Dim Forms As String = "[type]=-32768"                           ' النماذج
   Dim Tables As String = "[type]=1 AND [Name] NOT LIKE 'MSys%'"   ' الجداول
   Dim Queries As String = "[type]=5 AND [NAME] NOT LIKE '~%'"     ' الاستعلامات

   Using conn As New OleDb.OleDbConnection(" Provider = Microsoft.Ace.Oledb.12.0; Data Source = Database1.accdb; Jet OLEDB:System Database = " & Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Microsoft\Access\System.MDW")
       Using da As New OleDb.OleDbDataAdapter("SELECT [Name] FROM [MSysObjects]  WHERE " & Reports, conn)

           Dim dt As New DataTable
           da.Fill(dt)

           For Each row As DataRow In dt.Rows
               Me.ListBox1.Items.Add(row("Name"))
           Next

       End Using
   End Using

End Sub

معلومات عن ملف System.MDW

.....
الرد }}}}
تم الشكر بواسطة: surgam
#3
شكرا جزيلا لك أخي في الله
سأجرب الكود لكن هل ينفذ أيضاً على أوفيس 2007 ومافوق ؟ طبعاً بعد تغيير البروفيدر ؟
الرد }}}}
تم الشكر بواسطة:
#4
جربت الكود ونجح بعد إضافة تعديل بسيط
شكرا لك أخي
الرد }}}}
تم الشكر بواسطة:
#5
فهمت من الكود السابق أنه يمكنني استخراج أسماء الجداول و النماذج و التقارير من قاعدة البيانات
شكرا لكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 140 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] كيفية قراءة ملفات bin وتثبيتها 0theghost0 3 84 04-05-17, 02:02 PM
آخر رد: 0theghost0
  قراءة ملف pdf Mohamed20 4 102 02-05-17, 08:50 PM
آخر رد: Mohamed20
  [سؤال] مشكلة فى قراءة بعض الاوامر فى الفيجول بيسك Mohamed371 4 174 10-04-17, 07:30 PM
آخر رد: Mohamed371
  [سؤال] كيف يمكن قراءة البيانات من جهاز الباركود والبرنامج مفتوح جانب الساعة abdalla89 2 82 05-04-17, 10:51 PM
آخر رد: abdalla89
  تعديل على قراءة الداتا mmzeyad 1 89 29-03-17, 01:29 AM
آخر رد: أبووسم
  قراءة ذاكرة البطاقات الإلكترونية djelloul 2 114 25-02-17, 01:38 PM
آخر رد: djelloul
  [VB.NET] مساعدة في قراءة داتابيس اكثر من نسخة للبرنامج 0theghost0 9 366 13-01-17, 10:44 AM
آخر رد: 0theghost0
Photo بخصوص قراءة الباركود shwehdi4pc 11 520 10-11-16, 11:44 PM
آخر رد: محمود بكرى
  قراءة ملف xml أسامة 26 953 02-07-16, 04:05 AM
آخر رد: أسامة

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


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