تقييم الموضوع :
  • 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%
أحسنت ...

والآن باقي خطوة واحدة فقط ، وهي الأخيرة ..
أريد نتائج الذي أختاره أنا من الجدول بالشكل التالي :
لنفرض أنني اخترت من الجدول الاختيارات التالي :




فأنا أريد من البرنامج يخبرني بثلاثة أشياء ( اسم العمود ، واحتياج ، والجودة ) وذلك إذا تم النقر على مربع متوفر الذي أمام كل  عمود فقط !
في المثال المرفق في الصورة ، أريد من البرنامج يخبرني بما يلي :
 اسم العمود Bird_Age ، ويعطيني  No  على مربع (احتياج) لأني لم أنقر مربع احتياج ، أخيرا يعطيني الكلمة التي اخترتها في عمود الجودة وهي Good

في العمود الثاني يعطيني اسم العمود Bird_Color ،  ويعطيني حرف Yes  لأني نقرت مربع احتياج ، أخيرا يعطيني الكلمة التي اخترتها في عمود الجودة وهي Excellent

أما باقي الأعمدة فلا أريد من البرنامج يعطيني عنها شيء لأني لم أنقر على مربع متوفر التي أمامها .
 
والآن أستاذي سعود أريد النتائج في DataGridView 

وتكون نتيجة المثال السابق كما يلي :


أو يمكن استبدالها بأي أداة أخرى مناسبة .

أرجو أن تكون قد فهمتني أستاذي .

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

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

حقيقة أستاذ سعود أنا هدفي الوحيد هو الحصول على النتائج في زرين :

الزر الأول : عند النقر عليه يقوم البرنامج بشيئين :

1- يضع جميع أسماء الأعمدة التي عليها متوفر ، ويفصل بكلمة Zayed  بين كل اسم عمود والآخر .

مثال
Bird_age Zayed Bird_color Zayed Bird_name
وتكون النتيجة في TextBox1

2- يضع جميع أسماء الأعمدة التي عليها احتياج ، ويفصل بكلمة Aydan بين كل اسم عمود والآخر .

مثال
Bird_age Aydan Bird_color Aydan Bird_name
وتكون النتيجة في TextBox2

الزر الثاني:  عبارة عن زر بحث
عند النقر عليه ...
أنا أكتب له اسم العمود وهو يعطيني الجودة في MsgBox 

مثال
أنا أكتب له في صندوق البحث اسم العمود Bird_color 
وهو يعطيني Excellent 

فقط هذا كل ما تبقى من البرنامج  أستاذي ، وأرجو من الله ومنك التكرم بتكملة ما تبقى من المطلوب

ومنك السموحة على تعبك ، جعل الله مساعدتك لي في ميزان حسناتك
الرد
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن تصدير البيانات الى ملف محدد في الاكسل من الداتاقريدفيو جيولوجي مبتدئ 0 45 , 02:56 PM
آخر رد: جيولوجي مبتدئ
Question [سؤال] ما هو عداد المستخدام فى قاعدة البيانات alims 0 67 25-11-21, 10:07 AM
آخر رد: alims
  [سؤال] كيفية عمل صندوق صورة alims 4 199 24-11-21, 12:46 PM
آخر رد: alims
  اين اجد قاعدة بيانات الافتراضية باسم Northwind التي في شروحات microsoft غدير الصليحي 2 95 24-11-21, 06:43 AM
آخر رد: غدير الصليحي
  ممكن مثال على كيفية تعليق فاتورررة tfarejdz 4 262 22-11-21, 02:10 AM
آخر رد: Taha Okla
  مساعدة في مشكل للرقم السري لقاعدة البيانات hammadi 1 115 21-11-21, 06:46 PM
آخر رد: asemshahen5
  كيفية اضافة المكتبة Aspose atefkhalf2004 6 304 16-11-21, 04:04 AM
آخر رد: ابو روضة
  [سؤال] بطئ في جلب اليانات من قاعدة البيانات عبدالكريم برشدان 4 265 14-11-21, 08:50 PM
آخر رد: سعود
  [كود] تصفح البيانات موضوع منقول سعود 0 119 13-11-21, 04:34 AM
آخر رد: سعود
  [سؤال] هل من سبيل لحفظ ملف csv يحتوي علي لغه عربيه لعمل استراد لقاعده البيانات ؟ dametucorazon 6 10,390 13-11-21, 12:49 AM
آخر رد: _11Basil

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


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