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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 公式模型编写问题提交 → 有人通过VBA，操作数据库吗，给个示例，可以吗？

   

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

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

主题：有人通过VBA，操作数据库吗，给个示例，可以吗？
帅哥哟，离线，有人找我吗？
msedu
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：232 积分：1256 威望：0 精华：0 注册：2010/4/24 21:58:28 		有人通过VBA，操作数据库吗，给个示例，可以吗？  发帖心情 Post By：2010/8/26 11:57:45    Post IP：116.25.210.162[显示全部帖子]

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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
msedu
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游侠 帖子：232 积分：1256 威望：0 精华：0 注册：2010/4/24 21:58:28 		  发帖心情 Post By：2010/8/26 12:49:40    Post IP：116.25.210.162[显示全部帖子]

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

 

'数据库操作
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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 05.76856 秒, 7 次数据查询