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

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


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

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

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


الملفات المرفقة
.rar   Garden.rar (الحجم : 98.36 ك ب / التحميلات : 8)
الرد }}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 5)
الرد }}
تم الشكر بواسطة: ابراهيم ايبو
#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 ك ب / التحميلات : 7)
الرد }}
تم الشكر بواسطة: ابراهيم ايبو , ابراهيم ايبو
#7
ما شاء الله عليك أستاذ سعود 
بيض الله وجهك ، أشهد إنك ما قصرت ، بارك الله فيك
هذا هو طلبي بالضبط 100%
أحسنت ...

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اجعل Autoscroll هي التي تزيد عدد الصفوف في عرض البيانات عبدالكريم برشدان 1 126 07-08-22, 02:55 PM
آخر رد: asmarsou
Photo [سؤال] كيفية تفعيل او الغاء امتداد ملف من فلتر الاوبن فايل ديالوج asmarsou 7 196 07-08-22, 03:00 AM
آخر رد: سعود
Brick كيفية الإغلاق التام لـقاعدة بيانات SQL أبو خالد الشكري 18 565 03-08-22, 02:11 PM
آخر رد: أبو خالد الشكري
  سؤال كيفية اظهار reportviewer فى Visual Studio 2019 mohamed2316 2 173 03-08-22, 03:07 AM
آخر رد: mohamed2316
  كود التاكد من الحقل موجود داخل الجدول فب قاعدة بيانات sql server vb.net عبدالكريم برشدان 4 296 30-07-22, 01:02 AM
آخر رد: سعود
  قراءة البيانات من برنامج البصمة strongriseman 2 182 29-07-22, 02:23 AM
آخر رد: ابراهيم ايبو
  [VB.NET] ربط قاعدة البيانات um_noor20 3 184 27-07-22, 11:00 AM
آخر رد: أبو خالد الشكري
  نسخ محتويات جدول الى قاعدة جديدة بنفس الجدول نيمو 1 246 26-07-22, 01:15 PM
آخر رد: نيمو
  كود البحث عن اكبر تاريخ في قاعدة بيانات اكسس hatem555 3 211 25-07-22, 12:11 PM
آخر رد: سعود
  التعامل مع قاعدة بيانات sql عن بعد عبدالكريم برشدان 3 202 25-07-22, 03:49 AM
آخر رد: asemshahen5

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


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