Value 属性范例 (VB)

2009-1-8 10:30:53 2612

0 Value 属性范例 (VB) 本范例通过显示 Employees 表的字段和属性值来演示 Field 和 Property 对象的 Value 属性。 Public Sub ValueX() Dim rstEmployees As ADODB.Recordset Dim fldLoop As ADODB.Field Dim prpLoop As ADODB.Property Dim strCnn As String ' Open recordset with data from Employees table. strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; " Set rstEmployees = New ADODB.Recordset rstEmployees.Open "employee", strCnn, , , adCmdTable Debug.Print "Field values in rstEmployees" ' Enumerate the Fields collection of the Employees ' table. For Each fldLoop In rstEmployees.Fields ' Because Value is the default property of a ' Field object, the use of the actual keyword ' here is optional. Debug.Print " " & fldLoop.Name & " = " & fldLoop.Value Next fldLoop Debug.Print "Property values in rstEmployees" ' Enumerate the Properties collection of the ' Recordset object. For Each prpLoop In rstEmployees.Properties ' Because Value is the default property of a ' Property object, the use of the actual keyword ' here is optional. Debug.Print " " & prpLoop.Name & " = " & prpLoop.Value Next prpLoop rstEmployees.Close End Sub 0
2009-1-8 10:30:53　　评论淘帖0 相关推荐 • Version 属性范例 (VB) 2489 • StayInSync 属性范例 (VB) 2165 • Sort 属性范例 (VB) 2925 • Optimize 属性范例 (VB) 2853 • Proteus编译出错Value '' of VALUE not found in parameter mapping table of sheet '74HC138'. [74HC138] 13 • 基于Key-Value型的NoSQL系统设计方法 5 • 如何在cadence原理图中批量修改元件属性？ 21915 • vb语言程序简单设计实例（5款vb语言设计程序分享） 102615 • MaxRecords 属性范例 (VB) 3367 • Item 属性范例 (VB) 2672