Attributes和Name属性应用实例(VB)

2009-1-8 10:14:56 3176

0 本范例显示 Connection、Field 和 Property 对象的 Attributes 属性的值。它使用 Name 属性来显示每个 Field 和 Property 对象的名称。 Public Sub AttributesX Dim cnn1 As ADODB.Connection Dim rstEmployees As ADODB.Recordset Dim fldLoop As ADODB.Field Dim proLoop As ADODB.Property Dim strCnn As String ' Open connection and recordset. strCnn = "Provider=sqloledb;" & _ "Data Source=srv;Initial Catalog=Pubs;User Id=sa;Password=; " Set cnn1 = New ADODB.Connection cnn1.Open strCnn Set rstEmployees = New ADODB.Recordset rstEmployees.Open "employee", cnn1, , , adCmdTable ' Display the attributes of the connection. Debug.Print "Connection attributes = " & _ cnn1.Attributes ' Display the attributes of the Employee table's ' fields. Debug.Print "Field attributes:" For Each fldLoop In rstEmployees.Fields Debug.Print " " & fldLoop.Name & " = " & _ fldLoop.Attributes Next fldLoop ' Display Fields of the Employee table which are NULLABLE. Debug.Print "NULLABLE Fields:" For Each fldLoop In rstEmployees.Fields If CBool(fldLoop.Attributes And adFldIsNullable) Then Debug.Print " " & fldLoop.Name End If Next fldLoop ' Display the attributes of the Employee table's ' properties. Debug.Print "Property attributes:" For Each proLoop In rstEmployees.Properties Debug.Print " " & proLoop.Name & " = " & _ proLoop.Attributes Next proLoop rstEmployees.Close cnn1.Close End Sub 0
2009-1-8 10:14:56　　评论淘帖0 相关推荐 • 请问pads2007中元件的用户定义属性Attributes怎么设置？ 1841 • Version 属性范例 (VB) 2492 • Value 属性范例 (VB) 2613 • Sort 属性范例 (VB) 2926 • vb连接Access数据库实例 16 • VB数据库学习教程 36 • 使用Get_Name指令读取PROFINET IO设备名称 1368 • vb语言程序简单设计实例（5款vb语言设计程序分享） 102723 • NumericScale 和 Precision 属性范例 (VB) 2816 • Item 属性范例 (VB) 2675