VB操作技巧集锦.docVIP

一、在数据库中取得正确的 RecordCount 值特别是在 RecordSet 中记录比较多的情况，在更新 RecordSet 后 RecordCount 返回的值一般比真实的值要小， 以下的方法可以保证得到正确的值：Data1.Recordset.MoveLastRCount = Data1.Recordset.RecordCount 二、锁住数据库中的表把表达式 True=False 放到表的 ValidationRule 属性就能锁上。 HardLockTable 实现了该功能。声明Public MyDB As DatabaseDim Dummy As Integer 函数Function HardLockTable (ByVal whichAction As String, ByVal aTable As String) As IntegerOn Error GoTo HardLockTableErrorHardLockTable = TrueSelect Case whichActionCase LockMyDB.TableDefs(aTable).ValidationRule = True=FalseMyDB.TableDefs(aTable).ValidationText = This table locked via Valida