Value 属性范例 (VB)

<p><font face="Verdana">Value 属性范例 (VB)</font></p><font face="Verdana">
<p><br/>本范例通过显示 Employees 表的字段和属性值来演示 Field 和 Property 对象的 Value 属性。</p>
<p>Public Sub ValueX()</p>
<p>&nbsp;&nbsp;&nbsp; Dim rstEmployees As ADODB.Recordset<br/>&nbsp;&nbsp;&nbsp; Dim fldLoop As ADODB.Field<br/>&nbsp;&nbsp;&nbsp; Dim prpLoop As ADODB.Property<br/>&nbsp;&nbsp;&nbsp; Dim strCnn As String</p>
<p>&nbsp;&nbsp;&nbsp; ' Open recordset with data from Employees table.<br/>&nbsp;&nbsp;&nbsp; strCnn = "Provider=sqloLEDb;" &amp; _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; "<br/>&nbsp;&nbsp;&nbsp; Set rstEmployees = New ADODB.Recordset<br/>&nbsp;&nbsp;&nbsp; rstEmployees.Open "employee", strCnn, , , adCmdTable</p>
<p>&nbsp;&nbsp;&nbsp; debug.Print "Field values in rstEmployees"<br/>&nbsp;&nbsp;&nbsp; ' Enumerate the Fields collection of the Employees<br/>&nbsp;&nbsp;&nbsp; ' table.<br/>&nbsp;&nbsp;&nbsp; For Each fldLoop In rstEmployees.Fields<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' Because Value is the default property of a <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' Field object, the use of the actual keyword<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' here is optional.<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Debug.Print "&nbsp;&nbsp;&nbsp; " &amp; fldLoop.Name &amp; " = " &amp; fldLoop.Value<br/>&nbsp;&nbsp;&nbsp; Next fldLoop</p>
<p>&nbsp;&nbsp;&nbsp; Debug.Print "Property values in rstEmployees"<br/>&nbsp;&nbsp;&nbsp; ' Enumerate the Properties collection of the<br/>&nbsp;&nbsp;&nbsp; ' Recordset object.<br/>&nbsp;&nbsp;&nbsp; For Each prpLoop In rstEmployees.Properties<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' Because Value is the default property of a <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' Property object, the use of the actual keyword<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' here is optional.<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Debug.Print "&nbsp;&nbsp;&nbsp; " &amp; prpLoop.Name &amp; " = " &amp; prpLoop.Value<br/>&nbsp;&nbsp;&nbsp; Next prpLoop</p>
<p>&nbsp;&nbsp;&nbsp; rstEmployees.Close</p>
<p>End Sub</p>
<p></font>&nbsp;</p>