Question

VB代码求助

Public Function UpdateRepair() As Boolean
Dim Ws As Workspace
Dim Db As Database
Dim Rs As Recordset
Dim SQLs As String
On Error Resume Next
Set Ws = DBEngine.Workspaces(0)
Set Db = Ws.OpenDatabase(App.Path & "\housing.mdb")
SQLs = "Select * From Park where 住户名称='" & ListView1.SelectedItem.SubItems(1) & "'"
Set Rs = Db.OpenRecordset(SQLs, dbOpenDynaset)

If Not Rs.EOF Then
Rs.Edit
Rs.Fields("车位编号") = Text1.Text
'Rs.Fields("住户名称") = Text2.Text
Rs.Fields("使用日期") = DTPicker1.Value
Rs.Fields("备注") = Text3.Text
Rs.Update
MsgBox "修改成功!", 64,
UpdateRepair = True
Else
MsgBox "无此住户的车位资料!", 64,
UpdateRepair = False
End If

Rs.Close
Db.Close
Ws.Close
Set Rs = Nothing
Set Db = Nothing
Set Ws = Nothing
End Function
谁可以帮我解释下这段代码的意思Set Rs = Nothing又是什么意思啊

Answer 1

由于前面的定义
Dim Rs As Recordset
所以在使用完Rs后需要关闭连接，释放资源。
Set Rs = Nothing就是释放Recordset对象的资源。

Answer 2

那些应该都是自定义类型吧.
就是把他们占用的空间释放了.以免占用内存.
C语言中好像也是这像,如画图最后必须用CLOSEGRAPH();以释放其占有的空间
要不运行几次就不行了.