求教关于ADO的问题

Question

加上以下语句即可：
Dim rs As New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.LockType = adLockPessimistic

Answer 1

Dim cn As New ADODB.Connection
Dim rs As new ADODB.RecordsetPrivate Sub Form_Load()cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\我的资料.mdb;Persist Security Info=False"     '这个连接字符串是从ADODC拷贝过来的cn.Open
if rs.state=adstateopen then rs.close
rs.open "select * from 光碟资料",cn,adopenkeyset,adlockreadonly
msbox rs.recordcountEnd Sub

Answer 2

rs.CursorLocation = adUseClient
rs.cursortype=adclient

Answer 3

rs.open "select * from 光碟资料",cn,adopenkeyset,adlockreadonly如果想要将记录集前后GUN动，或recordCount
要用open "select * from 光碟资料",cn,adopenkeyset,adlockreadonly

Answer 4

综合楼上两位的
Dim cn As New ADODB.Connection
Dim rs As new ADODB.RecordsetPrivate Sub Form_Load()cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\我的资料.mdb;Persist Security Info=False"     '这个连接字符串是从ADODC拷贝过来的cn.Openrs.CursorLocation = adUseClient
rs.LockType = adLockPessimisticif rs.state=adstateopen then rs.close
rs.open "select * from 光碟资料",cn,adopenkeyset,adlockreadonly
msbox rs.recordcountEnd Sub

Answer 5

rs.RecordCount这个属性不是很好，经常返回不正确的信息。
比如recordcount很大时，它会返回-1，所以不要依赖这个属性

Answer 6

不是什么属性不好。是代码错误太多。
Dim cn As Connection
Dim rs As Recordset
Private Sub Form_Load()
'''''''''''''''''''''''
set cn=new connection
set rs=new recordset
''''''''''''''''''''''''
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\我的资料.mdb;Persist Security Info=False"     '这个连接字符串是从ADODC拷贝过来的
cn.Openrs.open "select count(*) from 光碟资料",cn,1,1
MsgBox rs(0)'''''''''''''''''''''''''
rs.close
set rs=nothing
cn.close
set cn=nothing
''''''''''''''''''''''''

Answer 7

你这样打开的记录会有这样的问题。
这样改：Dim cn As New ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\我的资料.mdb;Persist Security Info=False"     '这个连接字符串是从ADODC拷贝过来的
cn.OpenSet rs = cn.Execute("select * from 光碟资料", , -1) '光碟资料是我的一张表**************************
rs.movelast
MsgBox rs.absoluteposition
rs.movefirst
**************************MsgBox Adodc1.Recordset.RecordCount'显示正确的纪录数
'Adodc1.RecordSource="光碟资料"
End Sub

Answer 8

这样打开的记录集就是如此。这样改：
Dim cn As New ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Documents and Settings\我的资料.mdb;Persist Security Info=False"     '这个连接字符串是从ADODC拷贝过来的
cn.OpenSet rs = cn.Execute("select * from 光碟资料", , -1) '光碟资料是我的一张表
_____________________________________
rs.movelast
MsgBox rs.Absoluteposition
rs.movefirst
_____________________________________
MsgBox Adodc1.Recordset.RecordCount'显示正确的纪录数
'Adodc1.RecordSource="光碟资料"
End Sub