تقييم الموضوع :
  • 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)أبو خالد الشكري كتب : يرفع ،،، للأهمية القصوى !

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  تعديل طول حقل معين في جميع جداول القاعدة atefkhalf2004 1 97 09-03-24, 03:17 AM
آخر رد: atefkhalf2004
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 222 25-02-24, 11:26 PM
آخر رد: heem1986
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,123 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  تنفيذ كود عند حدوث تغيرات فى أحد جداول قاعد بيانات sql heem1986 2 247 16-02-24, 06:37 AM
آخر رد: عبدالله الدوسري

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


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