📄 mdprocursortypex.htm

📁 ADO使用手册,非常详细
💻 HTM
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML dir=ltr>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=gb2312"><title>CursorType、LockType 和 EditMode 属性范例</title>
<style>@import url(msdn_ie4.css);</style>
</HEAD>
<BODY>
<h3><a name="mdprocursortypex"></a>CursorType、LockType 和 EditMode 属性范例</h3>
<p>
该范例说明如何在打开 <b>Recordset</b> 之前设置 <b>CursorType</b> 和 <b>LockType</b> 属性。同时还显示不同情况下 <b>EditMode</b> 的属性值。该过程运行时需要 <b>EditModeOutput</b> 函数。</p>
<pre>Public Sub EditModeX()   Dim cnn1 As ADODB.Connection
   Dim rstEmployees As ADODB.Recordset
   Dim strCnn As String   ' 使用雇员表中的数据打开记录集。
   Set cnn1 = New ADODB.Connection
   strCnn = "Provider=sqloledb;" &amp; _
      "Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
   cnn1.Open strCnn
      
   Set rstEmployees = New ADODB.Recordset
   Set rstEmployees.ActiveConnection = cnn1
   rstEmployees.<span class=cfe><b>CursorType</b></span> = adOpenKeyset
   rstEmployees.<span class=cfe><b>LockType</b></span> = adLockBatchOptimistic
   rstEmployees.Open "employee", , , , adCmdTable   ' 显示不同编辑状态下的 EditMode 属性。
   rstEmployees.AddNew
   rstEmployees!emp_id = "T-T55555M"
   rstEmployees!fname = "temp_fname"
   rstEmployees!lname = "temp_lname"
   EditModeOutput "After AddNew:", rstEmployees.<span class=cfe><b>EditMode</b></span>
   rstEmployees.UpdateBatch
   EditModeOutput "After UpdateBatch:", rstEmployees.<span class=cfe><b>EditMode</b></span>
   rstEmployees!fname = "test"
   EditModeOutput "After Edit:", rstEmployees.<span class=cfe><b>EditMode</b></span>
   rstEmployees.Close
   
   ' 删除新记录，因为这只是演示。
   cnn1.Execute "DELETE FROM employee WHERE emp_id = 'T-T55555M'"End SubPublic Function EditModeOutput(strTemp As String, _
   intEditMode As Integer)   ' 打印基于 EditMode 属性值的报表。
   Debug.Print strTemp
   Debug.Print "&nbsp; EditMode = ";   Select Case intEditMode
      Case adEditNone
         Debug.Print "adEditNone"
      Case adEditInProgress
         Debug.Print "adEditInProgress"
      Case adEditAdd
         Debug.Print "adEditAdd"
   End SelectEnd Function
</pre>
<center> <A HREF="http://www.51windows.Net">www.51windows.Net</A></center>
<SCRIPT LANGUAGE="JavaScript" src="/log/sitelog2.asp"></SCRIPT>
<script src="script.js"></script></BODY>
</HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -