看一下这条语句

[doudoushen]

Private adors As ADODB.Recordset
Private adoconn As ADODB.Connection
Private cstring As String

Private 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 sub

Private Sub Form_Load()
Set adors = New ADODB.Recordset
Set adoconn = New ADODB.Connection
End Sub


为什么adoconn.execute总是不执行呢 怎么才让adoconn.execute执行

[qiangsheng]

就算它执行了，你的程序里也没有显示它执行结果的代码呀。

[dongyoushen]

在网吧，没测试，这样简单些，试一试
Private adors As ADODB.Recordset
Private adoconn As ADODB.Connection

Private 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 sub

Private Sub Form_Load()
Set adors = New ADODB.Recordset
Set adoconn = New ADODB.Connection
End Sub

[spland]

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

[doudoushen]

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

[dongyoushen]

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

[dongyoushen]

Debug.Print adors("nianling")

[doudoushen]

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

[doudoushen]

怎么每人回答啊

[SmileSkyNet]

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

[doudoushen]

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

[Mars.CN]

错了
没有显示代码!!

E-mail:[e-mail]