تقييم الموضوع :
  • 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 تظهر الحقول مرتبة ابجديا بالحروف
كيف يمكن اظهار ها كما هي مرتبة في قاعدة البيانات
الرد
تم الشكر بواسطة:
#6
كل شيئ صحييح

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


اضم صوتى للاخ الكريم
ومشكورين على الكود القيم
رجاء استكمال نقطة عرض الاعمدة حسب ترتيبها فى قاعدة البيانات
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ترحيل قاعدة بيانات اكسس من الجهاز الى قاعدة على الموقع-ACCESS->My SQL ابو ليلى 4 4,288 29-02-20, 04:26 PM
آخر رد: الحبيب999
  [درس فيديو] طريقة تثبيت قاعدة البيانات sql alims 0 902 16-07-19, 07:27 AM
آخر رد: alims
  انشاء قاعدة بيانات باستخدام تقنية adox Sajad 11 6,116 21-11-18, 04:12 AM
آخر رد: Ebrahim5556
  [مثال] طريقة إنشاء قاعدة sql بواسطة script برمجيا وكتابة أسمها بواسطة العميل princelovelorn 7 3,534 03-09-18, 07:25 PM
آخر رد: princelovelorn
  سكريبت إنشاء قاعدة البيانات لل SQL SERVER عبد العزيز البسكري 4 3,514 03-07-18, 08:34 PM
آخر رد: elgokr
  تحويل بيانات قاعدة على شكل جدول أبولجين 0 1,623 04-11-16, 11:52 AM
آخر رد: أبولجين
  كيفية تحزيم برنامج وتضمين معه قاعدة البيانات شرح بالصور مبرمج بلا حدود 30 35,170 20-07-16, 06:58 PM
آخر رد: ahmedfa71
  الربط بين الجداول بالكود join mr_mgm 8 3,895 15-08-13, 04:03 PM
آخر رد: Omar Mekkawy
  كود نسخ جدول لجدول آخر سعود 1 2,088 06-10-12, 11:20 AM
آخر رد: كلكامش الألكتروني
  الإضافة و التعديل و الحذف من جدول عن طريق DataGrid MR Dev Boody 0 4,780 20-09-12, 04:04 AM
آخر رد: MR Dev Boody

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


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