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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo بخصوص قراءة الباركود shwehdi4pc 11 294 10-11-16, 11:44 PM
آخر رد: محمود بكرى
  قراءة ملف xml أسامة 26 498 02-07-16, 04:05 AM
آخر رد: أسامة
  [VB.NET] ممكن طريقة قراءة ملف PDF سطر سطر و وضعه في Array الغلبان 8 234 25-06-16, 08:06 PM
آخر رد: الوادي
  مشكلة في قراءة البيانات من SQL server Incubus 6 316 15-04-16, 01:15 PM
آخر رد: Incubus
  هل يمكن قراءة سطر/كلمة معين من ملف text على سيرفر موقع أسامة 3 222 13-04-16, 01:52 AM
آخر رد: hassan
  قراءة ملف txt أسامة 0 153 25-12-15, 03:12 PM
آخر رد: أسامة
  [VB.NET] قراءة من ملف cmd محمد اسماعيل 2 205 16-12-15, 07:34 PM
آخر رد: محمد اسماعيل
  كود قراءة البيانات من ChekedBoxLis مبرمج 2015 0 275 22-03-15, 07:03 PM
آخر رد: مبرمج 2015
  رسالة خطاء تظهر عند قراءة ملف نصي aftfm 8 796 30-10-14, 12:28 AM
آخر رد: Dev Saeed
  قراءة ملف نصي الى DataGridView aftfm 1 380 11-07-14, 06:37 PM
آخر رد: aftfm

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


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