تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] فزعتكم شباب ... كيفية عرض جداول وأعمدة قاعدة البيانات
#1
Exclamation 
أخواني وأساتذتي المبرمجين المحترفين

السلام عليكم ورحمة الله وبركاته 
أرجو من الله ومنكم مساعدتي في مشروعي المرفق !


( وهو كيفية عرض أسماء جدول قاعدة البيانات ، وكذلك عرض أعمدة كل جدول ) .

وإن الذي أردته بالضبط ، مشروح بالتفصيل في ملف word وهو مرفق مع البرنامج ،
فأرجو منكم التكرم والتعطف بتحميله ومساعدتي جزاكم الله خيرا في الحصول على الحل البرمجي .

وتفضلوا جميعا بقبول وافر التقدير والاحترام .


الملفات المرفقة
.rar   Garden.rar (الحجم : 98.36 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته
ابشر بكل خير
لكن المنتدى مليء بالامثلة
قسم أمثلة ومشاريع قواعد البيانات تحت بيئة الـ.NET

باذن الله تعالى سانظر ماذا يمكنني فعله حسب الملف المرفق.
الرد
تم الشكر بواسطة: ابراهيم ايبو
#3
(25-11-21, 07:47 PM)سعود كتب : وعليكم السلام ورحمة الله وبركاته
ابشر بكل خير
لكن المنتدى مليء بالامثلة
قسم أمثلة ومشاريع قواعد البيانات تحت بيئة الـ.NET

باذن الله تعالى سانظر ماذا يمكنني فعله حسب الملف المرفق.


مشكور أستاذ سعود على ردك الكريم
صحيح بأن الأمثلة كثيرة ، والمنتدى مليء بها
ولكني تهت في كثرتها ولم أستطع تجميع ما أردته لمشروعي .
وأنا أنتظر الحل مباشرة على طلبي بكل شوق ولهفة .
وبارك الله فيكم جميعا .
الرد
تم الشكر بواسطة: ابراهيم ايبو
#4
اول خطوة فهمتها تمت 
وهذا هو محتوى الفورم من اكواد

PHP كود :
Public Class Form1
    Dim dbpath 
As String IO.Path.GetDirectoryName(Application.ExecutablePath) & "\db.accdb"
 
   Dim str As String "provider=microsoft.ace.oledb.12.0;data source=" dbpath
    Private 
Function gettablesname()
 
       tbnames.Items.Clear()
 
       Using con As New OleDb.OleDbConnection(str)
 
           If con.State ConnectionState.Closed Then con.Open()
 
           Dim dt As DataTable con.GetSchema("Tables", {NothingNothingNothing"Table"})
 
           For Each row As DataRow In dt.Rows
                tbnames
.Items.Add(row("TABLE_NAME"))
 
           Next
            If con
.State ConnectionState.Open Then con.Close()
 
       End Using
    End 
Function



 
   Private Function getcolsnames(ByVal tbname As String)
 
       colsnames.Items.Clear()
 
       Using con As New OleDb.OleDbConnection(str)
 
           If con.State ConnectionState.Closed Then con.Open()
 
           Dim dt As DataTable con.GetSchema("Columns", {NothingNothingtbnameNothing})
 
           For Each row As DataRow In dt.Rows
                colsnames
.Items.Add(row("Column_name"))
 
           Next
            If con
.State ConnectionState.Open Then con.Close()
 
       End Using
    End 
Function

 
   Private Sub Form1_Load(sender As ObjectAs EventArgsHandles MyBase.Load
        gettablesname
()
 
   End Sub

    Private Sub tbnames_SelectedIndexChanged
(sender As ObjectAs EventArgsHandles tbnames.SelectedIndexChanged
        getcolsnames
(tbnames.Text)
 
   End Sub
End 
Class 


الملفات المرفقة
.zip   abukhaled.zip (الحجم : 38.68 ك ب / التحميلات : 4)
الرد
تم الشكر بواسطة: ابراهيم ايبو
#5
أشكرك جدا ولكن المطلوب أكثر من كذا حسب ملف Word الذي شرحت فيه مطلوبي بالتفصيل .
أرجو التركيز في فهم المطلوب أرجوكم .
وشكرا .
الرد
تم الشكر بواسطة: ابراهيم ايبو
#6
(25-11-21, 08:52 PM)أبو خالد الشكري كتب : أشكرك جدا ولكن المطلوب أكثر من كذا حسب ملف Word الذي شرحت فيه مطلوبي بالتفصيل .
أرجو التركيز في فهم المطلوب أرجوكم .
وشكرا .

اخي الكريم انا ذكرت اني اعمل مااستطيع فعله ومااعجز عنهSad ان شاء الله بقية الاخوة مايقصرون 

_____________________________________________________________________________________________________

الخطوة الثانية مع استبدال الليست بوكس الثانية بشبيكة البيانات


الاجراء التالي بعد استبدال شبيكة البيانات بالليست بوكس
PHP كود :
 Private Sub getcolsnames(ByVal tbname As String)
 
       Using con As New OleDb.OleDbConnection(str)
 
           If con.State ConnectionState.Closed Then con.Open()
 
           Dim dt As DataTable con.GetSchema("Columns", {NothingNothingtbnameNothing})
 
           For i As Integer 1 To dt.Rows.Count 1
                dgv
.Rows.Add(dt.Rows(i)("Column_name"))
 
           Next
            If con
.State ConnectionState.Open Then con.Close()
 
       End Using
    End Sub 

المتوفر و الاحتياج والجودة من اين يتم احضار القيم الخاصة بهم ..او اين يتم حفظها ؟


ماذا بقي !!!
الاعمدة الثلاثة  اين يتم حفظ قيمها؟


الملفات المرفقة
.zip   abukhaled.zip (الحجم : 38.96 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#7
ما شاء الله عليك أستاذ سعود 
بيض الله وجهك ، أشهد إنك ما قصرت ، بارك الله فيك
هذا هو طلبي بالضبط 100%
أحسنت ...

ولك خالص الشكر والمحبة .
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#8
(26-11-21, 12:24 PM)أبو خالد الشكري كتب : يرفع ،،، للأهمية القصوى !

اخي الكريم النقطة الاخيرة مفهومة لكن كيف يتم تطبيقها؟
هل هناك زر يحفظ الاختيارات في جدول ثم فورم آخر يستقبل تلك التغييرات؟
فيه حلقة مفقودة لدي اتمنى افهمها.
و شكر الله لك.
الرد
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [VB.NET] كيفية نجعل CheckBox في DataGridView كأنه RadioButton أبو خالد الشكري 3 138 , 02:12 PM
آخر رد: أبو خالد الشكري
  [VB.NET] كيفية تحويل قيمة textbox الي hex ابو ياسين ويزن 2 113 29-11-21, 09:35 PM
آخر رد: ابو ياسين ويزن
  كيفية اضافة الصوت مع ظهور المسج بوكس ابو نور الهدى 1 91 28-11-21, 12:52 PM
آخر رد: سعود
  كيف يمكن تصدير البيانات الى ملف محدد في الاكسل من الداتاقريدفيو جيولوجي مبتدئ 0 86 27-11-21, 02:56 PM
آخر رد: جيولوجي مبتدئ
Question [سؤال] ما هو عداد المستخدام فى قاعدة البيانات alims 0 84 25-11-21, 10:07 AM
آخر رد: alims
  [سؤال] كيفية عمل صندوق صورة alims 4 216 24-11-21, 12:46 PM
آخر رد: alims
  اين اجد قاعدة بيانات الافتراضية باسم Northwind التي في شروحات microsoft غدير الصليحي 2 107 24-11-21, 06:43 AM
آخر رد: غدير الصليحي
  ممكن مثال على كيفية تعليق فاتورررة tfarejdz 4 286 22-11-21, 02:10 AM
آخر رد: Taha Okla
  مساعدة في مشكل للرقم السري لقاعدة البيانات hammadi 1 121 21-11-21, 06:46 PM
آخر رد: asemshahen5
  كيفية اضافة المكتبة Aspose atefkhalf2004 6 319 16-11-21, 04:04 AM
آخر رد: ابو روضة

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


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