- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 遍历数据源某表所有列时 如何返回列的长度 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=12483)
-- 发布时间：2011/9/5 11:59:00
-- 遍历数据源某表所有列时 如何返回列的长度
嘿嘿 老爹 我看到你在 回答问题 赶紧凑上来问一个
MaxLength
这个代码 用在外部表的 时候 返回的值 全是 -1 下面是代码
Dim x As String = MainTable.name
Dim x1 As String
Dim lst As List(Of String)
st = Connections("服务器").GetTableNames
For Each nm As String In lst
\'x1 = x1 & "|" & nm
Next
If x1 Like "\'*" & x & "*\'" Then
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * From {" & x & "}"
dt = cmd.ExecuteReader()
For Each cl As DataCol In dt.DataCols
Dim dr As DataRow = DataTables("GJ动态建表_临时").AddNew()
dr("列名") = cl.name
dr("数据源类型") = cl.DataType.name
dr("长度") =cl.MaxLength
Next
\'End If
-- 发布时间：2011/9/5 12:18:00
--
呵呵，如果是字符列，才有长度，否则都是-1
-- 发布时间：2011/9/5 12:20:00
--
你回答的 我明白
问题是 字符列 返回的也是 -1 所以才搞不定啊
-- 发布时间：2011/9/5 14:07:00
--
怪事，我测试可以啊：
For Each dc As DataCol In DataTables("订单").DataCols
output.show(dc.MaxLength)
Next
-- 发布时间：2011/9/5 14:38:00
--
老爹 我这是 直接 查数据源的表 要查的表 在项目里面是不连接的
-- 发布时间：2011/9/5 15:21:00
--
老爹 我又看见你的 身影了 快快 前来 帮忙啊
-- 发布时间：2011/9/5 15:27:00
--
老爹 我又看见你的 身影了
-- 发布时间：2011/9/5 15:43:00
--
这个不好办，不加载，你要他长度干什么？
-- 发布时间：2011/9/5 15:50:00
--
Dim cnn As new Data.OleDB.OleDbConnection(connections("数据源名称").ConnectionString)
Dim ada As New Data.OleDB.OleDbDataAdapter("Select * From 订单 Where [_indentify] is null",cnn)
Dim dt As New Data.DataTable
ada.FillSchema (dt,System.Data.SchemaType.Source)
For Each dc As data.DataColumn In dt.Columns
output.show(dc.MaxLength)
Next
-- 发布时间：2011/9/5 15:50:00
--
用来 动态数据源建表 跟修改表用的
此主题相关图片如下：未命名.jpg