[求教]关于类和ADO的两个问题

红尘如烟

问题一：自定义集合类中如何设置一个属性为默认？
像Application.Forms.Item("Form1")
由于Item为默认，则可以像这样引用:Application.Forms("Form1")
在自定义类中,如clsCustom.Item("Item1")
怎么样才能这样引用:clsCustom("Item1")?

问题2：
ADO事务机制中不能提交更新的问题：
如下面的代码：
Dim cnn As New ADODB.Connection
Set cnn = CurrentProject.Connection
Dim lngRecordsAffected As Long

cnn.BeginTrans
cnn.Execute "DELETE * FROM tblCumtomers WHERE Id=1", lngRecordsAffected
If MsgBox("确定删除" & lngRecordsAffected & "条记录吗？", vbQuestion + vbOKCancel) = vbOK Then
    cnn.CommitTrans
Else
    cnn.RollbackTrans
End If
无论在对话框中选是或选否，操作查询所做的更改都不能提交

djt

问题2 测试过，还是没有任何问题！
问题1 我是用COLLECTION来处理的。我的报表是自己编写代码来填写内容。比如自定义属性如下：
Header;True;
RsMove;0;
RowPerPage;50;
NumberAllign;0;
MoveRs;<*\02\01\1rs\2Move\0\50\1\0\;
RowStart;0;
RowHeight;0;
FieldSetting;0;
PageFooter;<*\04\02\1x\2y\3Print\4Size\5\27\Page\20\6\27\共\20\7\27\Pages\20\;

dim collRpt as collection
'把上面的属性循环放入数组里arrtemp
        For n = 0 To UBound(arrTemp, 1)
            collRpt.Add arrTemp(n, 2), arrTemp(n, 1)
            'MsgBox collRpt(n + 1)
        Next

'下面调用collection的movers属性 来根据页号来移动记录集
    For lngRs = 0 To lngRsCount - 1
        'If rsdata(lngrs).EOF Then Exit Sub
        rsData(lngRs).Move collRpt("MoveRs")(lngRs, 2) * (adoRpt.Page - 1), 1         
    Next

红尘如烟

非常感谢几位的热心帮助
问题一可能是我的表述不清楚，我记得VB当中可以在属性窗体设置默认属性或默认方法，但在ACCESS VBA中这样不行，应该怎么做？
问题二中由于我需要在提交更新前根据影响的记录行数来判断是否进行后续操作，所以需要在Begintran事件后弹出确认对话框，我对ADO没怎么深入研究过，所以不是很熟悉

djt

问题2从代码上说没有问题。我的也是这样做的，没有问题。
可能是，你在执行这段代码之前，执行了begintran,但是没有commit,这样造成以后的commit没有提交

t小宝

一、如果是指 Collection 对象，本来就可如你说的引用。

二、cnn.BeginTrans... 是在操作ADO记录记录集时使用的方法，操作查询中应该：
  用 cnn.Execute "BEGIN TRANSACTION" 代替 cnn.BeginTrans
    用 cnn.Execute "COMMIT TRANSACTION" 代替 cnn.CommitTrans
    用 cnn.Execute "ROLLBACK TRANSACTION" 代替 cnn.RollbackTrans

djt

用collection来代替

andymark

If MsgBox("确定删除" & lngRecordsAffected & "条记录吗？", vbQuestion + vbOKCancel) = vbOK Then

把上面的代码放到cnn.BeginTrans 前面