تقييم الموضوع :
  • 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 [VB.NET] مشكلة فى قراءة ملف اكسيل كما فى الصورة المرفقة monm 5 143 05-10-18, 12:26 PM
آخر رد: asemshahen5
  [VB.NET] استفسار :- بخصوص قراءة الصوت من الجهاز dubai.eig 0 125 11-08-18, 06:17 PM
آخر رد: dubai.eig
  [VB.NET] استفسار عن قراءة ملف نصي online dubai.eig 12 418 20-06-18, 03:46 AM
آخر رد: elgokr
Photo [سؤال] لأهل الخبرة أواجه مشكلة في قراءة بيانات من الداتا جريد فيو الى كريستال ريبورت dametucorazon 11 443 17-06-18, 03:15 AM
آخر رد: elgokr
  [VB.NET] کیفیة قراءة وارسال البیانات الی جهاز الفحص المختري ayaz 7 224 15-05-18, 06:53 PM
آخر رد: elgokr
  [سؤال] قراءة ملف نصى mrnooo2000 15 496 12-05-18, 09:01 PM
آخر رد: elgokr
  [VB.NET] قراءة بيانات محددة من ملف text hani78 3 233 09-05-18, 02:38 AM
آخر رد: mrnooo2000
  [سؤال] كيف يمكن قراءة التاريخ المدخل بواسطة datetimepiker في كود البحث ؟ zainab m 1 194 24-04-18, 10:16 PM
آخر رد: mawadaalmogrbi
  كيف أعرض البينات بعد قراءة الباركود Abdh111 7 377 18-04-18, 02:49 AM
آخر رد: ملهمـ
  [VB.NET] قراءة بيانات محددة من ملف text hani78 0 125 23-02-18, 08:27 PM
آخر رد: hani78

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


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