请教！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教！

共有2801人关注过本帖树形打印复制链接主题：请教！

keli0917

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：257 积分：2448 威望：0 精华：0 注册：2018/5/21 16:49:00

请教！

Post By：2021/8/6 11:54:00 [只看该作者]

Sel，ect column_name from information_schema.columns where table_name='" & dj.Value & "'

象这种语句怎么改成适用于ACCESS数据库呀。

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107813 积分：548416 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/8/6 12:07:00 [只看该作者]

如果要获取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"))

[此贴子已经被作者于2021/8/6 12:06:55编辑过]

主题：请教！