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

<p><font face="Verdana">本范例显示 Connection、Field 和 Property 对象的 Attributes 属性的值。它使用 Name 属性来显示每个 Field 和 Property 对象的名称。</font></p>
<p><font face="Verdana">Public Sub AttributesX</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; Dim cnn1 As ADODB.Connection<br/>&nbsp;&nbsp;&nbsp; Dim rstEmployees As ADODB.Recordset<br/>&nbsp;&nbsp;&nbsp; Dim fldLoop As ADODB.Field<br/>&nbsp;&nbsp;&nbsp; Dim proLoop As ADODB.Property<br/>&nbsp;&nbsp;&nbsp; Dim strCnn As String<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ' Open connection and recordset.<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 cnn1 = New ADODB.Connection<br/>&nbsp;&nbsp;&nbsp; cnn1.Open strCnn<br/>&nbsp;&nbsp;&nbsp; Set rstEmployees = New ADODB.Recordset<br/>&nbsp;&nbsp;&nbsp; rstEmployees.Open "employee", cnn1, , , adCmdTable<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ' display the attributes of the connection.<br/>&nbsp;&nbsp;&nbsp; debug.Print "Connection attributes = " &amp; _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cnn1.Attributes</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; ' Display the attributes of the Employee table's<br/>&nbsp;&nbsp;&nbsp; ' fields.<br/>&nbsp;&nbsp;&nbsp; Debug.Print "Field attributes:"<br/>&nbsp;&nbsp;&nbsp; For Each fldLoop In rstEmployees.Fields<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Debug.Print "&nbsp;&nbsp;&nbsp; " &amp; fldLoop.Name &amp; " = " &amp; _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; fldLoop.Attributes<br/>&nbsp;&nbsp;&nbsp; Next fldLoop</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; ' Display Fields of the Employee table which are NULLABLE.<br/>&nbsp;&nbsp;&nbsp; Debug.Print "NULLABLE Fields:"<br/>&nbsp;&nbsp;&nbsp; For Each fldLoop In rstEmployees.Fields<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; IF CBool(fldLoop.Attributes And adFldIsNullable) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Debug.Print "&nbsp;&nbsp; " &amp; fldLoop.Name<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next fldLoop</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; ' Display the attributes of the Employee table's<br/>&nbsp;&nbsp;&nbsp; ' properties.<br/>&nbsp;&nbsp;&nbsp; Debug.Print "Property attributes:"<br/>&nbsp;&nbsp;&nbsp; For Each proLoop In rstEmployees.Properties<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Debug.Print "&nbsp;&nbsp;&nbsp; " &amp; proLoop.Name &amp; " = " &amp; _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; proLoop.Attributes<br/>&nbsp;&nbsp;&nbsp; Next proLoop</font></p>
<p><font face="Verdana">&nbsp;&nbsp;&nbsp; rstEmployees.Close<br/>&nbsp;&nbsp;&nbsp; cnn1.Close</font></p>
<p><font face="Verdana">End Sub<br/></font></p>