Set qdfTmp = gdbCurrentDB.CreateQueryDef("", txtSQL.Text)
Set rsTmp = qdfTmp.OpenRecordset(dbOpenDynaset)
程序中的 txtsql 是"select into c01 from c3" 第二句的错误是无效的操作”
加上以下两句,但不支持这些属性。
Set rsTmp.locktype = adlockoptimistic
Set rsTmp.cursortype = adopendynamic