Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open strConnection
strTemp="select a1 into #t from a select * from #t "
rs.Open strTemp, cn
Dim rs As New ADODB.Recordset
cn.Open strConnection
strTemp="select a1 into #t from a select * from #t "
rs.Open strTemp, cn
不象是SQL语句的问题。
你的cn确实打开了?
cn.open ...
strTemp = " Select * from sysobjects "
if rs.state = adstateopen then rs.close
rs.open strTemp,cn
Dim rs As New ADODB.Recordset
cn.Open strConnection
strTemp="select a1 from a" '直接查询即可,不用临时表
rs.Open strTemp, cn
呵呵~~隻是舉個列子而已。
不過我已定搞定了。
散分..