看一下这条语句

Question

Private adors As ADODB.Recordset
Private adoconn As ADODB.Connection
Private cstring As StringPrivate Sub Command1_Click()
cstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\1.mdb;Persist Security Info=False"
adoconn.Open cstring
adors.Open "zuozhe", cstring, 3, 3
adoconn.Execute "select * from zuozhe  order by nianling"   不执行
adors.MoveFirst
Do While Not adors.EOF
   Debug.Print adors.Fields("nianling").Value
   adors.MoveNext
Loop
adors.Close
end subPrivate Sub Form_Load()
Set adors = New ADODB.Recordset
Set adoconn = New ADODB.Connection
End Sub
为什么adoconn.execute总是不执行呢  怎么才让adoconn.execute执行

Answer 1

在网吧，没测试，这样简单些，试一试
Private adors As ADODB.Recordset
Private adoconn As ADODB.ConnectionPrivate Sub Command1_Click()
with adoconn
  .Provider=Microsoft.Jet.OLEDB.4.0
  .Source=C:\1.mdb
end with
adors.open "select * from zuozhe  order by nianling",adoconn,3,3
adors.MoveFirst
Do While Not adors.EOF
   Debug.Print adors.Fields("nianling").Value
   adors.MoveNext
Loop
adors.Close
end subPrivate Sub Form_Load()
Set adors = New ADODB.Recordset
Set adoconn = New ADODB.Connection
End Sub

Answer 2

樓上的是一種做法
Set adors = adoconn.Execute "select * from zuozhe  order by nianling"   
也可以

Answer 3

qiangsheng(立足中原辐射西北) 
      怎么让我看到我的结果呢
dongyoushen(东
      其实我知道你的方法就是想用adoconn.execute的方法  能帮帮我吗   谢谢

Answer 4

set adors=adocnn.execute "select * form zuozhe order by nianling"

Answer 5

为什么 用set adors=adocnn.execute "select * form zuozhe order by nianling"
替代adoconn.Execute "select * from zuozhe  order by nianling"   总说没有对象啊

Answer 6

kingcom:我操死你妈!不要以为只有你会用马甲!我也会!不要以为你多牛,我鼠标一点就封了你!

Answer 7

adoconn.Execute "select * from zuozhe  order by nianling"这句好象没有什么意思呀？，你在程序中没有用到它

Answer 8

to smileskynet
我只是想索引一下  然后看一下索引结果  
另外用set adors=adocnn.execute "select * form zuozhe order by nianling"
替代adoconn.Execute "select * from zuozhe  order by nianling"   总说没有对象这是为什么？？？

Answer 9

错了
没有显示代码!!E-mail:[email protected]