神马品牌网08年中国报复美国流感:ADODB.Recordset 绑定
来源：百度文库 编辑：神马品牌网 时间：2024/04/27 15:20:27
我用的是ACCESS2000中文版。
首先，建立只有一个数据表"ProjectExecution"的ACCESS数据库，然后建立
一个窗体，名为"frmExecution". 然后把"ProjectExecution"绑定在窗
体"frmExecution"上，并通过ACCESS的自动功能加入文本框等控件，并绑定
在数据表"ProjectExecution"的各个字段上。
由于想自己通过ADO来进行开发，于是我将窗体"frmExecution"的“记录源”
属性删除，并修改“Form_Open”方法如下：
Private Sub Form_Open(Cancel As Integer)
Dim cnnExec As ADODB.Connection
Dim rstExec As ADODB.Recordset
Set cnnExec = CurrentProject.Connection
Set rstExec = New ADODB.Recordset
rstExec.CursorLocation = adUseClient
rstExec.Open "ProjectExecution", cnnExec, adOpenKeyset,
adLockOptimistic
Set Me.Recordset = rstExec
End Sub
运行，发现窗体的控件里面数据可以显示，但根本不能修改，每当我尝试修改，控件没有反
映，而且在ACCESS状态栏显示“该记录集不是可更新的”。
请问是怎么回事？怎样解决？
谢谢！！！
补充一下,刚才我写了一个子过程如下:
Private Sub 命令16_Click()
Me.Recordset.Fields("closed") = True 'closed 为其中一个字断,布尔值
Me.Recordset.Update
End Sub
首先，建立只有一个数据表"ProjectExecution"的ACCESS数据库，然后建立
一个窗体，名为"frmExecution". 然后把"ProjectExecution"绑定在窗
体"frmExecution"上，并通过ACCESS的自动功能加入文本框等控件，并绑定
在数据表"ProjectExecution"的各个字段上。
由于想自己通过ADO来进行开发，于是我将窗体"frmExecution"的“记录源”
属性删除，并修改“Form_Open”方法如下：
Private Sub Form_Open(Cancel As Integer)
Dim cnnExec As ADODB.Connection
Dim rstExec As ADODB.Recordset
Set cnnExec = CurrentProject.Connection
Set rstExec = New ADODB.Recordset
rstExec.CursorLocation = adUseClient
rstExec.Open "ProjectExecution", cnnExec, adOpenKeyset,
adLockOptimistic
Set Me.Recordset = rstExec
End Sub
运行，发现窗体的控件里面数据可以显示，但根本不能修改，每当我尝试修改，控件没有反
映，而且在ACCESS状态栏显示“该记录集不是可更新的”。
请问是怎么回事？怎样解决？
谢谢！！！
补充一下,刚才我写了一个子过程如下:
Private Sub 命令16_Click()
Me.Recordset.Fields("closed") = True 'closed 为其中一个字断,布尔值
Me.Recordset.Update
End Sub