| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp) -- 公式模型编写问题提交 (http://222.73.7.161/bbs/list.asp?boardid=4) ---- 有人通过VBA，操作数据库吗，给个示例，可以吗？ (http://222.73.7.161/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 -- 开心啊，成功了，正确代码如下：
\'数据库操作 \'注意，不要使用：Server.CreateObject |