如果要获取access的表列名,参考:
Dim conn As New System.Data.OleDb.OleDbConnection()
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Base.mdb;"
conn.Open()
Dim dt = conn.GetSchema("columns", New String() {Nothing, Nothing, "表A"})
conn.Close()
Dim drs = dt.Select("", "ordinal_position")
For i As Integer = 0 To drs.Length - 1
Output.Show(drs(i)("COLUMN_NAME") + "==" + drs(i)("DESCRIPTION"))
Next
[此贴子已经被作者于2021/8/6 12:06:55编辑过]