[VB.NET] فزعتكم شباب ... كيفية عرض جداول وأعمدة قاعدة البيانات

PHP كود :

Public Class Form1
    Dim dbpath As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\db.accdb"
    Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & dbpath
    Private Function gettablesname()
        tbnames.Items.Clear()
        Using con As New OleDb.OleDbConnection(str)
            If con.State = ConnectionState.Closed Then con.Open()
            Dim dt As DataTable = con.GetSchema("Tables", {Nothing, Nothing, Nothing, "Table"})
            For Each row As DataRow In dt.Rows
                tbnames.Items.Add(row("TABLE_NAME"))
            Next
            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Function



    Private Function getcolsnames(ByVal tbname As String)
        colsnames.Items.Clear()
        Using con As New OleDb.OleDbConnection(str)
            If con.State = ConnectionState.Closed Then con.Open()
            Dim dt As DataTable = con.GetSchema("Columns", {Nothing, Nothing, tbname, Nothing})
            For Each row As DataRow In dt.Rows
                colsnames.Items.Add(row("Column_name"))
            Next
            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Function

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        gettablesname()
    End Sub

    Private Sub tbnames_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tbnames.SelectedIndexChanged
        getcolsnames(tbnames.Text)
    End Sub
End Class

PHP كود :

 Private Sub getcolsnames(ByVal tbname As String)
        Using con As New OleDb.OleDbConnection(str)
            If con.State = ConnectionState.Closed Then con.Open()
            Dim dt As DataTable = con.GetSchema("Columns", {Nothing, Nothing, tbname, Nothing})
            For i As Integer = 1 To dt.Rows.Count - 1
                dgv.Rows.Add(dt.Rows(i)("Column_name"))
            Next
            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Sub