تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ارجو المساعدة فى مشروع قواعد البيانات ( بداخل الموضوع السورس)
#1
السلام عليكم


لقد قمت بعمل مشروع قواعد بيانات لعرض الجداول داخل القاعدة فى listbox و عند الضغط على اسم الجدول فى ال listbox يفتح محتواة فى DataGridView المشروع كلة تمام بس فى مشكلة صغيرة لم اجد لها حل 
كما تشاهدون الجدولين بكل منهما عمود واحد فقط بخلاف عمود ال id
*الجدول الاول
   
*الجدول الثانى
   
لكن عند العمل داخل البرنامج يظهر الصفين من الجدولين بعد اول تغيير
*الضغطة الاولى
   
البرنامج يعمل تمام
*الضغطة الثانية
   
نلاحظ ظهور المشكلة
*وعند العودة للجدول الاول
   
المشكلة لا تزال موجودة
ارجو من الاخوة التعديل على السورس  
.rar   get tables names.rar (الحجم : 151.83 ك ب / التحميلات : 19) و اعادة رفعة او اخبارى بخطئى
ارجو المساعدة وشكرا


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#2



تفضل كلاس الفورم الجديد
PHP كود :
Public Class saud

    Dim str 
As String "Provider=Microsoft.jet.oledb.4.0;Data Source=" Application.StartupPath "\a.mdb"
 
   Dim con As New OleDb.OleDbConnection(str)
 
   Dim ds As DataSet
    Dim da 
As OleDb.OleDbDataAdapter


    Private Sub gd
()
 
       ListBox1.DataSource Nothing
        ListBox1
.Items.Clear()

 
       ds = New DataSet
        da 
= New OleDb.OleDbDataAdapter("select * from tb1,tb2"con)
 
       da.Fill(ds"tb1")
 
       da.Fill(ds"tb2")

 
       For Each dt As DataTable In ds.Tables
            ListBox1
.Items.Add(dt.TableName)
 
       Next

    End Sub

    Private Sub saud_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        gd
()
 
   End Sub

    Private Sub ListBox1_SelectedIndexChanged
(sender As ObjectAs EventArgsHandles ListBox1.SelectedIndexChanged
        dg
.DataSource Nothing
        dg
.Rows.Clear()
 
       Dim d As New DataTable(sender.text)
 
       Dim cm As New OleDb.OleDbCommand(""con)
 
       cm.Parameters.Clear()
 
       cm.CommandText "select * from " d.TableName ""
 
       If con.State ConnectionState.Closed Then con.Open()
 
       d.Load(cm.ExecuteReader)

 
       dg.DataSource d
    End Sub
End 
Class 
المثال مرفق


الملفات المرفقة
.zip   get table name best.zip (الحجم : 139.79 ك ب / التحميلات : 43)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: khodor1985
#3
(01-10-15, 02:28 AM)سعود كتب :


تفضل كلاس الفورم الجديد
PHP كود :
Public Class saud

    Dim str 
As String "Provider=Microsoft.jet.oledb.4.0;Data Source=" Application.StartupPath "\a.mdb"
 
   Dim con As New OleDb.OleDbConnection(str)
 
   Dim ds As DataSet
    Dim da 
As OleDb.OleDbDataAdapter


    Private Sub gd
()
 
       ListBox1.DataSource Nothing
        ListBox1
.Items.Clear()

 
       ds = New DataSet
        da 
= New OleDb.OleDbDataAdapter("select * from tb1,tb2"con)
 
       da.Fill(ds"tb1")
 
       da.Fill(ds"tb2")

 
       For Each dt As DataTable In ds.Tables
            ListBox1
.Items.Add(dt.TableName)
 
       Next

    End Sub

    Private Sub saud_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        gd
()
 
   End Sub

    Private Sub ListBox1_SelectedIndexChanged
(sender As ObjectAs EventArgsHandles ListBox1.SelectedIndexChanged
        dg
.DataSource Nothing
        dg
.Rows.Clear()
 
       Dim d As New DataTable(sender.text)
 
       Dim cm As New OleDb.OleDbCommand(""con)
 
       cm.Parameters.Clear()
 
       cm.CommandText "select * from " d.TableName ""
 
       If con.State ConnectionState.Closed Then con.Open()
 
       d.Load(cm.ExecuteReader)

 
       dg.DataSource d
    End Sub
End 
Class 
المثال مرفق

شكرا اخ سعود لاكنى لا اريد تحديد قاعدة بيانات معينة
اريد عمل برنامج بة open file dialog لفتح قاعدة البيانات و البحث بالجداول ووضعها فى listbox و عند الضغط على عنصر من ال listbox يتم فتحة فى ال data grid view (باختصار اسماء الجداول مجهولة البرنامج يبحث عنها عند اختيار قاعدة البيانات) وهذا ما نفذتة فى المثال المرفق لاكن للاسف نسيت وضع open file dialog
و ظهرت المشكلة الموضحة ارجو ان كان هناك حل توضيحة وشكرا لردك Smile
الرد }}}}
تم الشكر بواسطة:
#4
هذي بسيطة اخي تستطيع فعلها بسهولة.
انظر لهذه المشاركة


الملفات المرفقة
.zip   get table name best.zip (الحجم : 190.36 ك ب / التحميلات : 40)
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
رحمك الله أبا الليث
الرد }}}}
تم الشكر بواسطة: mohamed haroon
#5
(15-10-15, 03:46 AM)سعود كتب : هذي بسيطة اخي تستطيع فعلها بسهولة.
انظر لهذه المشاركة

شكرا اخ سعود
هذا هو طلبى بالضبط Big Grin Heart
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اتحلت معظم المشاكل في المشروع ويبقي الاتي --من فضلكم المساعدة فيها khaled12345 0 10 منذ 2 ساعة مضت
آخر رد: khaled12345
  برجاء المساعدة في حل مشكلة المشروع المرفق لانواع بحث مختلفة khaled12345 7 64 منذ 7 ساعة مضت
آخر رد: khaled12345
Smile [كود] مطلوب كود قصير لكن مهم ارجو ان تفيدونى elmezo 4 87 أمس, 02:49 PM
آخر رد: elmezo
  بخصوص استيراد البيانات من الاكسيل salah mansour 1 37 أمس, 04:10 AM
آخر رد: khaled12345
  [VB.NET] برجاء المساعدة فى تعديل هذا الكود (htmlDocument.DocumentNode.SelectNodes) الماجيك مسعد 16 302 28-05-17, 05:21 PM
آخر رد: alma2
  مشروع صغير لبيانات الموظفين ارجو التعديل علية a.baomar 5 177 23-05-17, 04:58 AM
آخر رد: a.baomar
  كيفيةاعادة المعلومات الي الجدول بعد مسح ما بداخل RichTextBox khaled12345 3 84 23-05-17, 12:37 AM
آخر رد: khaled12345
  برجاء المساعدة فى اصلاح هذا المشروع mohamed haroon 0 71 21-05-17, 01:18 AM
آخر رد: mohamed haroon
  ارجو المساعدة لو تكرمتم rabeh.ram 4 93 20-05-17, 02:48 AM
آخر رد: rabeh.ram
  مشكلة في كود البحث فرجاء المساعدة khaled12345 5 96 19-05-17, 03:50 PM
آخر رد: khaled12345

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


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