问:shuchang0626(舒畅)
dim rst as new adodb.recordset
dim cnn as new adodb.connection
dim sql as string
sql="select * from 地址库 where 地址=天津"
rst.Open sql, cnn, adOpenKeyset, adLockPessimistic
Set DataEnvironment1.rsCommand1.DataSource = rst
Set DataReport1.DataSource = DataEnvironment1
DataReport1.Show
在运行后,系统报错“实时错误 3709 — 连接无法用于此操作,在上下文中它可能已关闭或无效”
报错语句:rst.Open sql, cnn, adOpenKeyset, adLockPessimistic
别用那个控件了,引用ado
dim rst as new adodb.recordset
dim cnn as new adodb.connection
dim sql as string
sql="……"
rst.Open sql, cnn, adOpenKeyset, adLockPessimistic
Set DataEnvironment1.rsCommand1.DataSource = rst
Set DataReport1.DataSource = DataEnvironment1
DataReport1.Show