Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]cmd定义函数引用


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

主题：[求助]cmd定义函数引用
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]cmd定义函数引用  发帖心情 Post By：2016/1/22 17:01:00 [只看该作者]

红袍老师，
  我是直接把SQL语言定义为函数，然后直接使用，这个会有问题吗？
例如

定义函数 

Dim dt As DataTable
Dim name As String=args(0)'要加载的表名
Dim Bool As Boolean=args(1)'只读还是可以编辑
Dim flt As String=args(2)'只筛选条件
cmd99.CommandText = "Select * F rom {"& name &"} where "& flt &""
dt = cmd99.ExecuteReader(bool)
Return dt

然后 每次就不写 直接写 
dim dt as datatable=Functions.Execute("函数 ","表A"，0，“1=1”)
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 你弄一个通用的更好

 

dim dt as datatable=Functions.Execute("函数", "select * fr om {表A}", "数据源名")

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


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

你根据自己实际需要定义，没问题的。

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


加好友 发短信
等级：童狐 帖子：215 积分：1682 威望：0 精华：0 注册：2017/9/26 13:40:00 		  发帖心情 Post By：2019/3/9 23:37:00 [只看该作者]

牛牛牛

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