类型:转载 责任编辑:asp 日期:2007/03/01
dim cn as new adodb.connection
dim rs as new adodb.recordset
dim cm as new adodb.command
dim sq as string
dim databasename as string
dim a as integer
databasename = app.path & "\db1.mdb"
ssql = "provider=microsoft.jet.oledb.3.51;data source=" & databasename & ""
cn.open ssql
cm.commandtext = "select * from yanjing"
set rs = cm.execute
问题就出在set rs=cm.execute这里,出现错误提示:在一个已关闭的或无效连接的对像参照上操作不被充许
推荐阅读