1840年以来外国从海上:ADODB.Recordset 绑定
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/04 15:38:08
我用的是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