VB操作技巧集锦.doc

一、在数据库中取得正确的 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 ValidationRule on NowCase UnLockMyDB.TableDefs(aTable).ValidationRule = MyDB.TableDefs(aTable).ValidationText = Case TestThenUnLockIf MyDB.TableDefs(aTable).ValidationRule = True=False ThenMyDB.TableDefs(aTable).ValidationRule = MyDB.TableDefs(aTable).ValidationText = End IfEnd SelectHardLockTableErrorExit:subFlushDBEngineoptional, see next suggestionExit FunctionHardLockTableError:HardLockTable = FalseMsgBox Error$ error in HardLockTable trying to whichAction aTableResume HardLockTableErrorExitEnd Function 使用例子上锁Dummy = HardLockTable(Lock, TestTable) 开锁Dummy = HardLockTable(UnLock, TestTable) 三、Data 控件使用有密码的 Access 数据库使用 Data 控件打开 Accecc 数据库：设置 Connect 属性为 ;pwd=密码Data1.Connect = ;pwd=密码修改密码：Data1.Database.NewPassword _老密码_, _新密码_ 处理在 Access 数据库中的 Null 值Access 的字符串字段可以包含 NULL 值。在读这些字段到 VB 的 String 变量时，会出现运行时间的错误。最好的解决方法是使用 操作符将该字段与空串连接：sString = RS(0) 四、使用Data控件，连接Data到多个表单假设 Form1，Form2 表单都有 Data 控件，在 Form2 的 Form_Load 事件中加入以下的代码，可以实现对DATA 的多个连接。Sub Form_Load ()Set Data1.Recordset = Form1.Data1.RecordsetEnd Sub 五、如何在 MIDForm 中控制 KeyPress 事件?MDIForm 中是没有 KeyPress 事件的， 而在 MDIForm 中加入的 Picture 有， 那么只要在 MDIForm 中动手脚： Private Sub MDIForm_Activate()Picture1.SetFocusEnd Sub Private Sub MDIForm_Click()Picture1.SetFocusEnd Sub Private Sub Picture1_KeyPress(KeyAscii As Integer)Debug.Print In KeyPressEnd Sub 六、如何进行位操作？以下运算符可以直接进行位操