Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教快速统计记录数量


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

主题：请教快速统计记录数量
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/23 14:34:00 [显示全部帖子]

sqlserver那里，写一个函数，或者存储过程。

 

foxtable那里，调用函数，把表名、列名发过去，sqlserver计算后返回数据。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/23 16:02:00 [显示全部帖子]

以下是引用hbhb在2018/3/23 15:49:00的发言：
如果是accesss数据库怎么处理？

 

如果是access数据库，编写vba，在access里面弄一个函数，执行逻辑，最后返回结果。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/23 16:13:00 [显示全部帖子]


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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/23 17:40:00 [显示全部帖子]

以下是引用hbhb在2018/3/23 17:36:00的发言：
来个简单的实例，好不好呀，拿来主义万岁！
怎么调用？

 

你会在access里面定义一个函数了没有？

 

http://www.office-cn.net/access-vba/366.html

 

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/25 21:44:00 [显示全部帖子]

以下是引用hbhb在2018/3/25 17:34:00的发言：
后面怎么搞？

 

调用access里面你编写好的函数

 

http://www.foxtable.com/webhelp/scr/0696.htm

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/25 23:30:00 [显示全部帖子]

以下是引用hbhb在2018/3/25 23:09:00的发言：
怎么写？用哪句？

 

比如

 

Dim cmd As new SQLCommand
cmd.CommandText = "select mid(第一列, 1, 3) from {表A}"
Dim s = cmd.ExecuteScalar
msgbox(s)
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/3/26 9:12:00 [显示全部帖子]

以下是引用hbhb在2018/3/26 0:38:00的发言：
excel是不是也一样？我就讲要讲基础原理吧，终于理解了。

 

excel调用宏，这样处理

 

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("d:\test.xls")
app.Visible = True
app.run ("ab",5,5)

'App.run("函数名", 参数1, 参数2)
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询