Dim objRs as new RecordSet和Dim objRs as RecordSet的比较

我就是我 2022-06-10 11:45 169阅读 0赞

敲实例4遇到问题的思考，多一个new大有学问。

# 在内存中分配空间的时间和实例化的时间不同： #

对于Dim objRs as new RecordSet，当第一次使用objRs的时候，才在内存中分配空间和实例化。

对于Dim objRs as RecordSet，声明objRs为RecordSet类类型变量，和声明普通变量一样，此时已经在内存中分配存储空间了。当使用Set objRs=new RecordSet时，才被实例化。

# 虽然这两种定义方式，在分配空间和实例化的时间上不同，但是有时却不影响结果；然而有时也会相差甚远。 #

##     结果相同的情况: ##

通常在窗体的通用声明段Dim objRs as new RecordSet，这和在窗体的通用声明段用Dim objRs as RecordSet，并且在Form\_Load事件中用Set objRs=new RecordSet，得到的记录集以及之后对记录集做相应的处理，结果都是相同的。

Dim objRs As New Recordset, objCn As New Connection, intPage As Integer

和

Dim objRs As Recordset

Private Sub Form_Load() '在窗体事件中实例化objRs Set objRs=New Recordset

当在Click事件中，操作objRs，结果都是相同的（假设objRs是已经打开的游标）

'使当前记录的位置为下一条记录的位置 Private Sub cmdNext_Click() objRs.MoveNext If objRs.EOF Then objRs.MoveLast End Sub

结果不同的情况:

当Set objRs=new RecordSet这条语句放在允许被重复调用的过程中时，结果就会相差甚远。

Dim objDataSource As New Recordset

定义在窗体各事件过程中使用的公用变量

Set objRs=new RecordSet出现在下面这个过程中，这个过程作用是把objRs（假设objRs是打开的记录集）的当前页写入objDataSource这个对象中，以便在DataGrid中显示。

Public Sub ShowData(ByVal intPage As Integer) '实现分页显示记录功能 Dim intPageCount As Integer, intRecord As Integer Dim objDataSource As New Recordset '创建一个局部Recordset对象保存objRs当前记录页数据 For intRecord = 0 To objRs.Fields.Count - 1 objDataSource.Fields.Append objRs.Fields(intRecord).Name, _ adVarChar, _ objRs.Fields(intRecord).DefinedSize Next objDataSource.Open '打开局部Recordset对象 objRs.PageSize = Val(txtPageSize) '重新设置objRs每页显示的记录条数 objRs.AbsolutePage = intPage '重新设置objRs的当前记录页 For intRecord = 1 To objRs.PageSize '将objRs当前记录页中数据写入objDataSource objDataSource.AddNew objDataSource!用户名 = objRs!用户名 objDataSource!口令 = objRs!口令 objDataSource!身份 = objRs!身份 objRs.MoveNext If objRs.EOF Then Exit For Next Set DataGrid1.DataSource = objDataSource '将objDataSource设置为数据网格的数据源 txtPageMsg = intPage & "/" & objRs.PageCount '刷新当前记录页信息 End Sub

每执行一次这个过程，Set objRs=new RecordSet就产生一个对象，当再次执行这个过程时，又会新产生一个对象，并且把原有的对象覆盖掉。如果把这条语句换成在窗体通用声明段的Dim objRs as new RecordSet，则第二次调用这个过程时，就出错![1342084776_2339.jpg][]，因为始终用的是一个对象。

[1342084776_2339.jpg]: https://img-my.csdn.net/uploads/201207/12/1342084776_2339.jpg