Question

谁能帮我解释一下这段vb连接sql的代码的意思

连接部份不说了。就问一下连接数据库记录集是什么意思。
Public Function OpenRs(ByVal strSql As String) As Boolean
'连接数据库记录集
Dim Mag As String
Dim rpy As Boolean
On Error GoTo strErrMag
Set rsNew = New adodb.Recordset
If addFlag = False Then rpy = OpenCn
With rsNew
.ActiveConnection = CnNew ’这是什么意思
.CursorLocation = adUseClient ’这是什么意思
.CursorType = adOpenKeyset ’这是什么意思
.LockType = adLockOptimistic ’这是什么意思
.Open strSql
End With
addFlag = True
OpenRs = True
Exit Function
strErrMag:
Mag = "数据库数据集末连接"
Call MsgBox(Mag, vbOKOnly, "错误:数据库连接")
OpenRs = False
End
End Function

Answer 1

1.指示rsNew对象当前所属的Connection 对象
2.rsNew游标服务的位置
3.rsNew游标类型
4.rsNew锁类型

详细解释请看一下ADO文档。

Answer 2

谁能帮我解释一下这段vb连接sql的代码的意思
悬赏分：15 - 离问题结束还有 11 天 9 小时
连接部份不说了。就问一下连接数据库记录集是什么意思。
Public Function OpenRs(ByVal strSql As String) As Boolean
'连接数据库记录集
Dim Mag As String
Dim rpy As Boolean
On Error GoTo strErrMag
Set rsNew = New adodb.Recordset
If addFlag = False Then rpy = OpenCn
With rsNew
.ActiveConnection = CnNew ’这是什么意思
.CursorLocation = adUseClient ’这是什么意思
.CursorType = adOpenKeyset ’这是什么意思
.LockType = adLockOptimistic ’这是什么意思
.Open strSql
End With
addFlag = True
OpenRs = True
网上很多