以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]系统列问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74973)
--  作者：pcxjxjhkw
--  发布时间：2015/9/23 16:52:00
--  [求助]系统列问题

如何获取多个表的所有列，包括普通列和系统列？

 

谢谢
--  作者：大红袍
--  发布时间：2015/9/23 16:59:00
--  

系统列，要额外才能获取，如

 

Dim conn As New data.Oledb.OleDbConnection(Connections("test").ConnectionString)
Dim da As New data.Oledb.OleDbDataAdapter("Select * F rom [test] where 1=2", conn)
conn.open()
Dim ds As Data.DataSet = New Data.DataSet()
da.Fill(ds)
msgbox(ds.Tables(0).Columns.count)
For Each c As object In ds.Tables(0).Columns
    output.show(c.tostring)
Next
conn.Close
--  作者：pcxjxjhkw
--  发布时间：2015/9/23 17:52:00
--  
谢谢