17,377
社区成员
发帖
与我相关
我的任务
分享
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cnn.Open "Provider=MSDAORA.1;Password=密码;User ID=帐号;Data Source=数据库;Persist Security Info=True"
rs.Open "select * from abc where rownum<=10", cnn, adOpenKeyset, adLockOptimistic
cnn.Close