تقييم الموضوع :
  • 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
فهمت من الكود السابق أنه يمكنني استخراج أسماء الجداول و النماذج و التقارير من قاعدة البيانات
شكرا لكم
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 14 264 13-10-17, 07:30 PM
آخر رد: سعود الشامان
  قراءة معلومات json من الموقع سلامات 4 117 10-10-17, 06:46 PM
آخر رد: سلامات
  [VB.NET] طلب كود عدم قراءة المسترجع في فورمة الترجيع 0theghost0 2 49 25-09-17, 05:23 PM
آخر رد: 0theghost0
  [VB.NET] ممكن طريقة قراءة ملف PDF سطر سطر و وضعه في Array الغلبان 9 639 22-08-17, 05:55 PM
آخر رد: Nabhan Alhashemy
  [VB.NET] مساعدة في قراءة ملف xml موجود في موقعي dubai.eig 6 278 20-05-17, 12:25 AM
آخر رد: alma2
  [VB.NET] كيفية قراءة ملفات bin وتثبيتها 0theghost0 3 186 04-05-17, 02:02 PM
آخر رد: 0theghost0
  قراءة ملف pdf Mohamed20 4 185 02-05-17, 08:50 PM
آخر رد: Mohamed20
  [سؤال] مشكلة فى قراءة بعض الاوامر فى الفيجول بيسك Mohamed371 4 263 10-04-17, 07:30 PM
آخر رد: Mohamed371
  [سؤال] كيف يمكن قراءة البيانات من جهاز الباركود والبرنامج مفتوح جانب الساعة abdalla89 2 176 05-04-17, 10:51 PM
آخر رد: abdalla89
  تعديل على قراءة الداتا mmzeyad 1 158 29-03-17, 01:29 AM
آخر رد: أبووسم

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


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