تقييم الموضوع :
  • 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 65 04-11-16, 11:52 AM
آخر رد: أبولجين
  ترحيل قاعدة بيانات اكسس من الجهاز الى قاعدة على الموقع-ACCESS->My SQL ابو ليلى 3 230 03-11-16, 11:35 AM
آخر رد: aksoft
  كيفية تحزيم برنامج وتضمين معه قاعدة البيانات شرح بالصور مبرمج بلا حدود 30 14,756 20-07-16, 06:58 PM
آخر رد: ahmedfa71
  انشاء قاعدة بيانات باستخدام تقنية adox Sajad 10 2,122 02-06-16, 12:44 PM
آخر رد: CLARO
  الربط بين الجداول بالكود join mr_mgm 8 1,995 15-08-13, 04:03 PM
آخر رد: Omar Mekkawy
  كود نسخ جدول لجدول آخر سعود 1 791 06-10-12, 11:20 AM
آخر رد: كلكامش الألكتروني
  الإضافة و التعديل و الحذف من جدول عن طريق DataGrid MR Dev Boody 0 2,024 20-09-12, 04:04 AM
آخر رد: MR Dev Boody
  لما لا تستخدم قاعدة بيانات SQL Compact Edition ؟ Islam Ibrahim 0 1,348 17-09-12, 12:50 PM
آخر رد: Islam Ibrahim

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


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