以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  有人通过VBA，操作数据库吗，给个示例，可以吗？  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=2628)
--  作者：msedu
--  发布时间：2010/8/26 11:57:45
--  有人通过VBA，操作数据库吗，给个示例，可以吗？
Function DataInsert()
Set adoConn=Server.CreateObject("adodb.Connecttion")
adoConn.Open "Provider=microsof.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
[此贴子已经被作者于2010-8-26 12:11:39编辑过]
--  作者：wattwei
--  发布时间：2010/8/26 12:31:06
--  
 你自己不是写了吗？
Function DataInsert()
Set adoConn=Server.CreateObject("adodb.Connecttion")
adoConn.Open "Provider=microsof.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
--  作者：wattwei
--  发布时间：2010/8/26 12:43:21
--  
 如果没有返回值，使用例程Sub
--  作者：msedu
--  发布时间：2010/8/26 12:49:40
--  

开心啊，成功了，正确代码如下：

 

\'数据库操作
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