Извлечение Dataschema OleDB в Visual Basic 2017 по коду - PullRequest
Новая
       44

Извлечение Dataschema OleDB в Visual Basic 2017 по коду

0 голосов
/ 06 декабря 2018

Я пытаюсь найти способ получить некоторую информацию для acces 2016 accdb в Visual Basic 2017 по коду.Теперь у меня почти все, что мне нужно.Но теперь мне также нужно получить максимальную длину столбца базы данных.Но я не могу найти это нигде.Кроме того, я не могу найти где-нибудь, где я могу увидеть / найти инструкции (table_name, column_name, data_type и тому подобное), которые я могу использовать в этом.

Есть ли кто-нибудь, кто может помочь мне получить максимальную длинуколонка, а также сайт или что-то подобное, где я могу найти эти инструкции?

Спасибо, Ганс

Что у меня пока есть; 

Private Sub btnVolgende_Click(sender As Object, e As EventArgs) Handles btnVolgende.Click
    Dim tableName = "tbUsers"
    Dim filterValues = {Nothing, Nothing, tableName, Nothing}

    Using conn = New OleDbConnection("PROVIDER=MICROSOFT.ACE.OLEDB.12.0;Data Source=D:\SystemSettings.accdb")
        conn.Open()
        Dim columns = conn.GetSchema("Columns", filterValues)
        Dim tname As String, cname As String, dtype As Integer, mleng As Integer
        For Each row As DataRow In columns.Rows
            Console.WriteLine("{0,-20}{1}", row("table_name"), row("column_name"), row("data_type"))
            tname = row("table_name")
            cname = row("column_name")
            dtype = row("data_type")
        Next
    End Using
End Sub
...