CursorType、LockType 和 EditMode 属性范例 (VB)

2009-1-8 10:19:05 3087

0 CursorType、LockType 和 EditMode 属性范例 (VB) 本范例演示在打开 Recordset 前设置 CursorType 和 LockType 属性，还显示不同情况下 EditMode 属性的值。运行此过程需要 EditModeOutput 函数。 Public Sub EditModeX() Dim cnn1 As ADODB.Connection Dim rstEmployees As ADODB.Recordset Dim strCnn As String ' Open recordset with data from Employee table. Set cnn1 = New ADODB.Connection strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; " cnn1.Open strCnn Set rstEmployees = New ADODB.Recordset Set rstEmployees.ActiveConnection = cnn1 rstEmployees.CursorLocation = adUseClient rstEmployees.CursorType = adOpenStatic rstEmployees.LockType = adLockBatchOptimistic rstEmployees.Open "employee", , , , adCmdTable ' Show the EditMode property under different editing ' states. rstEmployees.AddNew rstEmployees!emp_id = "T-T55555M" rstEmployees!fname = "temp_fname" rstEmployees!lname = "temp_lname" EditModeOutput "After AddNew:", rstEmployees.EditMode rstEmployees.UpdateBatch EditModeOutput "After UpdateBatch:", rstEmployees.EditMode rstEmployees!fname = "test" EditModeOutput "After Edit:", rstEmployees.EditMode rstEmployees.Close ' Delete new record because this is a demonstration. cnn1.Execute "DELETE FROM employee WHERE emp_id = 'T-T55555M'" End Sub Public Function EditModeOutput(strTemp As String, _ intEditMode As Integer) ' Print report based on the value of the EditMode ' property. Debug.Print strTemp Debug.Print " EditMode = "; Select Case intEditMode Case adEditNone Debug.Print "adEditNone" Case adEditInProgress Debug.Print "adEditInProgress" Case adEditAdd Debug.Print "adEditAdd" End Select End Function 0
2009-1-8 10:19:05　　评论淘帖0 相关推荐 • Version 属性范例 (VB) 2489 • Status 属性范例 (Recordset) (VB) 3057 • Sort 属性范例 (VB) 2925 • Resync 方法范例 (VB) 3034 • 基于VB6.0的机车静压试验台程序 3 • Visual C++程序设计教程之属性单和属性页的详细资料说明 4 • 如何访问对象属性 194 • vb语言程序简单设计实例（5款vb语言设计程序分享） 102596 • OriginalValue 和 UnderlyingValue 属性范例 (VB) 2785 • Optimize 属性范例 (VB) 2853