Office中国论坛/Access中国论坛

标题: Teechart 8 与压缩存在冲突 [打印本页]

作者: beenet 时间: 2008-8-13 17:09
标题: Teechart 8 与压缩存在冲突
程序只要打开Teechart8的图表，关闭时如选择压缩就会出现，
“尝试打开的数据库已经被机器以排它的方式打开当数据库可使用后请再试一次”的错误。
同样的语句如使用Teechart5，则没有问题。
不知那位老大能看看。

Dim conn As ADODB.Connection
Dim Record As New ADODB.Recordset
Dim Str As String
Set conn = CurrentProject.Connection '添加状态

TChart1.Series(0).Clear
TChart1.Series(1).Clear

Str = ""
Record.Open Str, conn, adOpenKeyset, adLockOptimistic

TChart1.Series(0).DataSource = Record
TChart1.Series(0).YValues.ValueSource = Record.Fields(1).name
TChart1.Series(0).LabelsSource = Record.Fields(0).name

TChart1.Series(1).DataSource = Record
TChart1.Series(1).YValues.ValueSource = Record.Fields(2).name
TChart1.Series(1).LabelsSource = Record.Fields(0).name

Record.Close
Set Record = Nothing
Set conn = Nothing

作者: 唐玉娥 时间: 2009-7-30 18:56
加一句conn.close试一下

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)