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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 获取列长度问题

共有1905人关注过本帖树形打印复制链接主题：获取列长度问题

凡夫俗子

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

加好友

发短信

等级：一尾狐帖子：457 积分：3523 威望：0 精华：0 注册：2016/1/22 18:17:00

获取列长度问题 发帖心情

Post By：2016/3/30 14:47:00 [只看该作者]

Dim dt As DataTable

Dim cmd As New SQLCommand

cmd.ConnectionName = vars("ConName")

cmd.CommandText="S elect * From [" & vars("TableName") & "] where 1=2"

dt= cmd.ExecuteReader

For Each dc As DataCol In dt.DataCols

Dim r As Row = tb2.addnew

r("第一列") = dc.Name

r("第二列") = dc.datatype.Name

r("第三列") = dc.MaxLength

这样获得的列长度为什么都是 -1

就不能正确获得列的长度呢

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/30 14:52:00 [只看该作者]

Dim q As new OuterTableBuilder
q.TableName = "test"

'q.ConnectionName = vars("ConName")
q.SelectString = "Select * Fr om {表a} Where 1=2"
q.Build
For Each dc As DataCol In DataTables("test").DataCols
    Dim r As DataRow = DataTables("表B").addnew
    r("第一列") = dc.Name
    r("第二列") = dc.datatype.Name
    r("第三列") = dc.MaxLength
Next

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/3/30 14:53:00 [只看该作者]

http://www.foxtable.com/help/topics/1279.htm

下一主题 >> << 上一主题

主题：获取 列长度问题

主题：获取列长度问题