+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] فتح جدول موجود ضمن قاعدة البيانات (/showthread.php?tid=28902)
فتح جدول موجود ضمن قاعدة البيانات - EMADMW17 - 08-03-19
لو سمحتم عندي برنامج عالفيجول ستديو وقاعدة بيانات اكسس فيها اربع جداول a وbوcوd
عاوز احط زر بوتم اقدر افتح من خلاله قاعدة البيانات الجدول a فقط
ياريت المساعدة
RE: فتح جدول موجود ضمن قاعدة البيانات - elgokr - 08-03-19
اتمنى التوضيح اكثر
هل تريد كا كود استعلام يقوم بعرض محتوى بيانات الدول المحدد
ام ماذا بضبط لان تقريباً كلامك يدل على انه لا يخص الاستعلام فاتمنا توضيح ما تريد فعله تماماً
تحياتى لك
وتمنياتى لك التوفيق
RE: فتح جدول موجود ضمن قاعدة البيانات - EMADMW17 - 08-03-19
اريد كود اضعه في بوتن يفتحلي جدول معين موجود ضمن ملف اكسس كجدول a الموجود في ملف اكسس خارج الفورم اي كأني عم افتح ملف اكسس عادي ولكن جدول معين
RE: فتح جدول موجود ضمن قاعدة البيانات - elgokr - 08-03-19
لاتمام الامر بكل سهولة
كل ما عليك تطبيق التالى افتح محرر Notepad
ثم قم بوضع الكود التالى بداخلهكود :
[Shortcut Properties]
AccessShortcutVersion=1
DatabaseName=استبدل النص هنا باسم ملف قاعدة البيانات بالامتداد
ObjectName=استبدل النص هنا باسم الجدول
ObjectType=Table
DatabasePath=استبدل النص هنا باسم ملف قاعدة البيانات بالامتدادثم قم بحفظ الملف بهذا الاسم مع الامتداد
كود :
a.MATتذكر الكود المدرج بالاعلى يجب ان يكون على هذا النحو
كود :
[Shortcut Properties]
AccessShortcutVersion=1
DatabaseName=DBAccess.accdb
ObjectName=a
ObjectType=Table
DatabasePath=DBAccess.accdbاى كان الاسم او الامتداد الخاص بقاعدة البيانات لكن بالنهاية
يكون الكود فى الملف كما تم توضيحه
بعد اتمام حفظ الملف الاول ووضع به اسم الجدول وهو A
كرر نسخ الملف وحرره لتعديل اسم الجدول فى الملف الثاني الى B
حتى يكون لديك عدد الملفات بعدد الجداول لديك
وتذكر ان يكون الملفات بعد حفظها ان تكون بجانب قاعدة البيانات تماماً
لنقول انك تقوم بوضع قاعدة البيانات بجوار البرنامج كذلك الملفات دى تكون بجانب البرنامج
الان اصبح لديك كلاً من:
كود :
a.MAT
b.MAT
c.MAT
d.MATالان تعال فى كود الحدث واستخدم الكود على هذا النحو
كود :
Process.Start("a.MAT")بكده عند فتح الملف سيتم تلقائي فتح قاعدة البيانات
على الجدول حسب ما قمت انت به من تسمية
اتمنى ان تكون الصورة مبسطة ولا يوجد اى متاهة فى تنفيذ الامر
تحياتى لك
وتمنياتى لك التوفيق
RE: فتح جدول موجود ضمن قاعدة البيانات - EMADMW17 - 09-03-19
اخي الكربم توهنتني كثير وانا مبتدئ بهدا العلم راح ابعتلك مشروع جاهز لكن من موقع اخر اسمه emad ياريت تساعدني بالكود
وشكوا كثير الك سلفا
RE: فتح جدول موجود ضمن قاعدة البيانات - EMADSSS - 09-03-19
(09-03-19, 12:20 AM)EMADMW17 كتب : اخي الكربم توهنتني كثير وانا مبتدئ بهدا العلم راح ابعتلك مشروع جاهز لكن من موقع اخر اسمه emad ياريت تساعدني بالكود
وشكوا كثير الك سلفا
اخي الكريم هذا هو الرنامج ياريت التعديل
RE: فتح جدول موجود ضمن قاعدة البيانات - EMADMW17 - 09-03-19
الله يعطيكم العافي حاولت نفذ الكود الي بعثته ماعرفت مكان notepad
لاني مبتدئ بعثتلك المشروع من موقعي الاخر ياريت المساعدة او شرح لي اكثر وخاصة المقصود بكلمة notepad
RE: فتح جدول موجود ضمن قاعدة البيانات - elgokr - 12-03-19
ولا يهمك اخى الحبيب
بدون اى متاهة او مراحل كثير او ما شبه
كل ما عليك فقط تاتى فى كود الزر الاول
وهو : A فتح الجدول || وضع بالحدث الخاص به الكود التالى
كود :
Dim MyApp As String = Application.StartupPath
Dim path As String = "a.MAT"
Dim Text As String = "[Shortcut Properties]
AccessShortcutVersion=1
DatabaseName=mm1.accdb
ObjectName=a
ObjectType=Table
DatabasePath=" & MyApp & "\mm1.accdb"
File.WriteAllText(path, Text, Encoding.Unicode)
Process.Start("a.MAT")كود الزر الثاني
وهو : B فتح الجدول || وضع بالحدث الخاص به الكود التالىكود :
Dim MyApp As String = Application.StartupPath
Dim path As String = "b.MAT"
Dim Text As String = "[Shortcut Properties]
AccessShortcutVersion=1
DatabaseName=mm1.accdb
ObjectName=b
ObjectType=Table
DatabasePath=" & MyApp & "\mm1.accdb"
File.WriteAllText(path, Text, Encoding.Unicode)
Process.Start("b.MAT")وهو سيقوم بكل شى وسيقوم بفتح الجدول مباشر كما تريد
تحياتى لك
وتمنياتى لك التوفيق