تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
اكواد - (عرض اسماء الجداول في قاعدة ما - عرض اسماء الاعمدة في جدول ما)
#1
اضف الادوات التالية:
Label1
ListBox1
ListBox2
DataGridView1
Button1


في منطقة التصريحات العامة اكتب:
رمز برمجي:

كود :
Dim str As String = ""
    Dim con As New OleDb.OleDbConnection
في حدث تحميل النموذج اكتب:
رمز برمجي:

كود :
Me.Text = My.Application.Info.ProductName
        If con.State = ConnectionState.Open Then
            con.Close()
        End If
في حدث النقر لزر الامر اكتب:
رمز برمجي:

كود :
If con.State = ConnectionState.Open Then
            con.Close()
        End If
        Dim dlg As New OpenFileDialog
        dlg.Filter = "Access 2007 db (*.accdb)|*.accdb| Access 2003 db (*.mdb)|*.mdb"
        If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            If dlg.SafeFileName.EndsWith(".accdb") Then
                str = "provider=microsoft.ace.oledb.12.0;data source=" & dlg.FileName
            ElseIf dlg.SafeFileName.EndsWith(".mdb") Then
                str = "provider=microsoft.jet.oledb.4.0;data source=" & dlg.FileName

            End If
            con.ConnectionString = str
            Label1.Text = "Connected To: " & con.ConnectionString

        End If
        Dim SchemaTable As DataTable

        Try
            ListBox1.Items.Clear()
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            SchemaTable = con.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, Nothing})
            Dim int As Integer
            For int = 0 To SchemaTable.Rows.Count - 1
                If SchemaTable.Rows(int)!TABLE_TYPE.ToString = "TABLE" Then
                    'Add items to list box
                    ListBox1.Items.Add(SchemaTable.Rows(int)!TABLE_NAME.ToString())
                End If
            Next

        Catch ex As Exception
            MsgBox(Err.Description, MsgBoxStyle.Critical, "")

        End Try
في حدث ListBox1_MouseClick
اكتب:
رمز برمجي:

كود :
Dim ds As New DataSet
        Dim da As New OleDb.OleDbDataAdapter("select * from " & ListBox1.Text & "", con)
        ds.Clear()
        DataGridView1.DataSource = Nothing
        da.Fill(ds, ListBox1.Text)
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = ListBox1.Text


        ListBox2.Items.Clear()
        Dim dtable1 As DataTable
        dtable1 = con.GetOleDbSchemaTable(OleDb.OleDbSchemaGuid.Columns, New Object() {Nothing, Nothing, ListBox1.Text, Nothing})

        For i = 0 To dtable1.Rows.Count - 1
            ListBox2.Items.Add(dtable1.Rows(i).Item(3).ToString)
        Next i
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
#2
هل من الممكن عمل هكذا في الاصدار السادس
و كيف؟
Blush و ما توفيقي إلا بالله Blush
الرد }}}}
تم الشكر بواسطة:
#3
شكرا .
(( نحن قوم أعزنا الله بالإسلام فمهما ابتغينا العزة بغيره أذلنا الله )) .. 











الرد }}}}
تم الشكر بواسطة:
#4
(02-06-16, 12:45 PM)CLARO كتب : شكرا       .

اخي الكريم يوجد زر شكرا انقر عليه افضل من الاكتفاء بكلمة "شكرا"
كل مااعرفه في البرمجة تجدونه هنا
الرد }}}}
#5
كل شيئ صحييح

السؤال الملح فيListBox2 تظهر الحقول مرتبة ابجديا بالحروف
كيف يمكن اظهار ها كما هي مرتبة في قاعدة البيانات
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحويل بيانات قاعدة على شكل جدول أبولجين 0 430 04-11-16, 11:52 AM
آخر رد: أبولجين
  ترحيل قاعدة بيانات اكسس من الجهاز الى قاعدة على الموقع-ACCESS->My SQL ابو ليلى 3 914 03-11-16, 11:35 AM
آخر رد: aksoft
  كيفية تحزيم برنامج وتضمين معه قاعدة البيانات شرح بالصور مبرمج بلا حدود 30 21,280 20-07-16, 06:58 PM
آخر رد: ahmedfa71
  انشاء قاعدة بيانات باستخدام تقنية adox Sajad 10 2,861 02-06-16, 12:44 PM
آخر رد: CLARO
  الربط بين الجداول بالكود join mr_mgm 8 2,367 15-08-13, 04:03 PM
آخر رد: Omar Mekkawy
  كود نسخ جدول لجدول آخر سعود 1 1,053 06-10-12, 11:20 AM
آخر رد: كلكامش الألكتروني
  الإضافة و التعديل و الحذف من جدول عن طريق DataGrid MR Dev Boody 0 2,643 20-09-12, 04:04 AM
آخر رد: MR Dev Boody
  لما لا تستخدم قاعدة بيانات SQL Compact Edition ؟ Islam Ibrahim 0 1,743 17-09-12, 12:50 PM
آخر رد: Islam Ibrahim

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


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