Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]提示违反访问规则 这个怎么改


  共有2181人关注过本帖树形打印复制链接

主题：[求助]提示违反访问规则 这个怎么改
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]提示违反访问规则 这个怎么改  发帖心情 Post By：2015/7/17 12:51:00 [只看该作者]

select case
''Case "长度"
''Dim cnn As new Data.OleDB.OleDbConnection(connections("users").ConnectionString)
''Dim ada As New Data.OleDB.OleDbDataAdapter("Select * Fr om {"& e.Row("表名") &"} Where (data.ColumnName=e.Row("列名") AndAlso data.DataType.name=e.Row("列类型"))",cnn)
''Dim dt As New Data.DataTable
''ada.FillSchema (dt,System.Data.SchemaType.Source)
''For Each dc As data.DataColumn In dt.Columns
''cd &= dc.MaxLength & "|"
''Next
''e.Col.Combolist =cd
'End Select

.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.11.11.1
错误所在事件：表，AS0061配置列，PrepareEdit
详细错误信息：
调用的目标发生了异常。
语法错误或违反访问规则
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/17 14:17:00 [只看该作者]

 你这段代码到底想做什么？哪里抄来的。

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/7/17 14:34:00 [只看该作者]

老师，
  这里
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=35615

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/7/17 14:46:00 [只看该作者]

''Dim ada As New Data.OleDB.OleDbDataAdapter("Select * Fr om {"& e.Row("表名") &"}   {"& e.Row("表名") &"} 直接改为表名可以 如001 不是{001} 
Where   后面不知道怎么写条件
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/17 14:52:00 [只看该作者]

 不用也不能写where条件，你到底想做什么啊？

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/7/17 14:55:00 [只看该作者]

列出一个表 有表名 列名 列类型和 字段长度

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/17 14:55:00 [只看该作者]

 

[此贴子已经被作者于2015/7/17 14:55:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/17 14:57:00 [只看该作者]

Select Case e.Col.Name
    Case "长度"
        Dim cnn As new Data.OleDB.OleDbConnection(connections("users").ConnectionString)
        Dim ada As New Data.OleDB.OleDbDataAdapter("Select * Fr om " & e.Row("表名") & " where 1=2", cnn)
        Dim dt As New Data.DataTable
        ada.FillSchema (dt,System.Data.SchemaType.Source)
        Dim cd As String = ""
        For Each dc As data.DataColumn In dt.Columns
            cd &= dc.ColumnName & "," & dc.DataType.name & "," & dc.MaxLength & "|"
        Next
        e.Col.Combolist =cd
End Select

 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2015/7/17 15:17:00 [只看该作者]

谢谢红袍老师

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询