主题：请问免费版是否有与数据库互交的功能

如题，看了下金字塔的扩展功能非常强，但免费版不支持“支持数据库、邮件发送”是否意味着免费版没有与数据库互交的功能？

版主你好，能否给个例子提示提示，谢谢

我用下面这个例子不行，请看看什么问题

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”

搞定了！

 

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

谢谢，真是我要的东西