以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教！  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170755)
--  作者：keli0917
--  发布时间：2021/8/6 11:54:00
--  请教！
Sel，ect column_name from information_schema.columns where table_name=\'" & dj.Value & "\' 
象这种语句怎么改成适用于ACCESS数据库呀。
--  作者：有点蓝
--  发布时间：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"))
Next

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