منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم و رحمة الله و بركاته

هذا المثال المرفق المفروض انه يجلب أسماء الجداول فى قاعدة البيانات test.accdb الموجودة فى مسار البرنامج
ولكن يحدث خطأ
أرجو إعادة صياغة الكود

كود :

 Dim SchemaTable As DataTable

        'Connect to the database

        Dim conn As New System.Data.OleDb.OleDbConnection(ConnString)

        Try

            ListBox1.Items.Clear()

            conn.Open()

            'Get table and view names

            SchemaTable = conn.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

            MessageBox.Show(ex.Message.ToString(), "Data Load Error", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

        End Try

        conn.Close()

بارك الله فيك

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

mmaalmesry

aljzazy

mmaalmesry