- 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp)
-- 高级功能研发区 (http://222.73.7.161/bbs/list.asp?boardid=5)
---- 请问免费版是否有与数据库互交的功能 (http://222.73.7.161/bbs/dispbbs.asp?boardid=5&id=49407)
-- 发布时间：2013/3/7 22:55:47
-- 请问免费版是否有与数据库互交的功能
如题，看了下金字塔的扩展功能非常强，但免费版不支持“支持数据库、邮件发送”是否意味着免费版没有与数据库互交的功能？
-- 发布时间：2013/3/8 8:30:41
--
使用vba应该是可以的，只是不能实现交易功能。
-- 发布时间：2013/3/18 8:39:42
--
版主你好，能否给个例子提示提示，谢谢
-- 发布时间：2013/3/18 9:08:46
--
我用下面这个例子不行，请看看什么问题
Sub dbdemo()
Dim cn \'As New ADODB.Connection \'定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
Dim strCn
Dim strSQL
strCn = "Provider=sqloledb;Server=127.0.0.1;Database=demo;Uid=sa;Pwd=sa;" \'定义数据库链接字符串
cn.Open strCn \'与数据库建立连接，如果成功，返回连接对象cn
strSQL= "insert into demoTable (code) values(\'abc\');" \'构造SQL命令串
cn.execute strSQL \'执行该SQL命令串，如果SQL命令没有错误，将在数据库中添加501个记录;也可以用rs.open strSQL,cn 执行
cn.close \'关闭数据库链接,释放资源
End Sub
提示是在“cn.Open strCn \'与数据库建立连接，如果成功，返回连接对象cn ”这一行
“缺少对象cn”
-- 发布时间：2013/3/18 9:15:49
--
你这个问题可以在下面这个帖子中
-- 发布时间：2013/3/18 9:17:02
--
搞定了！
Sub dbdemo()
\'Dim i As Integer, j As Integer, sht As Worksheet \'i,j为整数变量；sht 为excel工作表对象变量，指向某一工作表
Dim cn \'As New ADODB.Connection \'定义数据链接对象 ，保存连接数据库信息；请先添加ADO引用
\'Dim rs As New ADODB.Recordset \'定义记录集对象，保存数据表
Dim strCn
Dim strSQL
Set cn=CreateObject("ADODB.Connection")
strCn = "Provider=sqloledb;Server=127.0.0.1;Database=demo;Uid=sa;Pwd=sa;" \'定义数据库链接字符串
cn.Open strCn \'与数据库建立连接，如果成功，返回连接对象cn
strSQL= "insert into demoTable (code) values(\'abc\');" \'构造SQL命令串
cn.execute strSQL \'执行该SQL命令串，如果SQL命令没有错误，将在数据库中添加501个记录;也可以用rs.open strSQL,cn 执行
cn.close \'关闭数据库链接,释放资源
End Sub
-- 发布时间：2013/3/18 9:21:23
--
谢谢，真是我要的东西
-- 发布时间：2013/3/18 9:25:59
--
恭喜了，论坛是我们的庞大的信息库，搜搜就能搜到你想要的