Case0
RequeryRecordset＝0
EXit Function
Case Else
'不返回错误给调用程序
Err＝0
RequeryRecordset＝-l
EXit FUnctlon
End Select
End Select
End Function
用上面的过程可以再查询一个指定的记录集。如果再查询成功，则过程返回0；如果程序不能对记录集进行再查询，则重新打开记录集。如果不能重新打开记录集，则过程返回-1。该过程有两个参数，其中参数dbs是一个数据库对象；而rst是一个Recordset对象。为了调用上面的过程，可以在窗体上画一个命令按钮，然后编写如下的事件过程：
Private Sub Command1_CliCk()
Dim Mvdbs As Database
Dim MvTab As Recordset
Set Mydbs＝OPenDatabase("c:\dbdir\db1.mdb",dbOpenDynaset)
Set MyTab＝Mydbs.OpenRecordset("Tabel1",dbOpenTable)
a＝RequeryReCordset(Mydbs,MyTab)
If a＝0 Then
MsgBox "再查询成功"
ElSe
MsgBox "不能执行再查询"
End if
End Sub
程序运行后，单击命令按钮，将调用上面的过程，然后根据具体情况显示相应的信息框。在一般情况下，大多数Recordset对象是可重启动的(或者是可以被再查询的)，但基于传递查询和没有固定列宽的交叉表查询的Recordset对象例外，不能再查询这些类型的Recordset对象，为了获得数据的最新状态，必须重新打开这些对象。
2．在多用户环境中使用事务
上一页 [1] [2] [3] 下一页
|
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 