欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商金字塔软件公式模型编写问题提交 → 自定义函数数据库连接

   

欢迎使用金字塔普通技术服务论坛,您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴,普通区问题处理速度慢,请耐心等待。谢谢您对我们的支持与理解。    


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

主题:自定义函数数据库连接

帅哥哟,离线,有人找我吗?
jimmyiii
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:60 积分:405 威望:0 精华:0 注册:2010/11/9 11:12:51
自定义函数数据库连接  发帖心情 Post By:2011/3/5 12:31:25    Post IP:218.82.132.40[只看该作者]

请问是否可以在自定义函数中设置SQL数据库连接,进行数据库查询,更新操作?如果可以该如何设置数据库连接?谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
z7c9
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小飞侠 帖子:1882 积分:3310 威望:0 精华:15 注册:2010/3/15 13:11:56
  发帖心情 Post By:2011/3/5 13:01:55    Post IP:114.241.168.31[只看该作者]

'数据库操作
Function DataInsert()

'注意,不要使用:Server.CreateObject
Set adoConn=CreateObject("Adodb.Connection")
adoConn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=F:\test.mdb"
strSql="Insert into Fu1011(Price,Bs,Pos) Values('5000','5','5')"
adoConn.Execute(strSql)
adoConn.Close
End Function


 回到顶部
帅哥哟,离线,有人找我吗?
jimmyiii
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:60 积分:405 威望:0 精华:0 注册:2010/11/9 11:12:51
  发帖心情 Post By:2011/3/5 14:31:14    Post IP:218.82.132.40[只看该作者]

多谢


 回到顶部
帅哥哟,离线,有人找我吗?
jimmyiii
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:60 积分:405 威望:0 精华:0 注册:2010/11/9 11:12:51
  发帖心情 Post By:2011/3/5 18:12:28    Post IP:218.82.132.40[只看该作者]

再请问recordset该如何定义?我该如何在自定义函数中执行select查询语句,并获得是否存在查询结果的值呢?


 回到顶部
帅哥哟,离线,有人找我吗?
jimmyiii
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:60 积分:405 威望:0 精华:0 注册:2010/11/9 11:12:51
  发帖心情 Post By:2011/3/5 23:08:22    Post IP:218.82.132.40[只看该作者]

已经解决。

 set Rs =CreateObject("Adodb.Recordset")

 rs.open "Select * from stock where stockdate='2011-3-5 15:00:00'",Conn,3,2

 If RS.recordcount<=0  then

....

 else

....

 end if


 回到顶部