以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://222.73.7.161/bbs/index.asp)
--  公式模型编写问题提交  (http://222.73.7.161/bbs/list.asp?boardid=4)
----  自定义函数数据库连接  (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=5364)
--  作者：jimmyiii
--  发布时间：2011/3/5 12:31:25
--  自定义函数数据库连接
请问是否可以在自定义函数中设置SQL数据库连接，进行数据库查询，更新操作？如果可以该如何设置数据库连接？谢谢
--  作者：z7c9
--  发布时间：2011/3/5 13:01:55
--  

\'数据库操作
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
--  发布时间：2011/3/5 14:31:14
--  

多谢
--  作者：jimmyiii
--  发布时间：2011/3/5 18:12:28
--  

再请问recordset该如何定义？我该如何在自定义函数中执行select查询语句，并获得是否存在查询结果的值呢？
--  作者：jimmyiii
--  发布时间：2011/3/5 23:08:22
--  

已经解决。

 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