DAO/链接表/ADO/ADP
Access如何使用ADO或DAO获取字段的描述属性(KB)
2005-02-06 01:47:52
property that you can reference with ADO or DAO. The following examples demonstrates how to return a field's description:

ADO Method

The sample code in this article uses ActiveX Data Objects. For this code to run properly, you need to reference the Microsoft ADO Ext. 2.5 for DDL and Security Library.
1. Start Microsoft access and open the sample database Northwind.mdb.
2. Create a new module, and then type the following line in the Declarations section if it is not already there:

Option Explicit

3. Type or paste the following procedure:

Function GetFieldDesc_ADO(ByVal MyTableName As String, _ ByVal MyFieldName As String) Dim MyDB As New ADOX.Catalog Dim MyTable As ADOX.Table Dim MyField As ADOX.Column On Error GoTo Err_GetFieldDescription MyDB.ActiveConnection = CurrentProject.Connection Set MyTable = MyDB.Tables(MyTableName) GetFieldDesc_ADO = MyTable.Columns(MyFieldName).Properties("Description") Set MyDB = Nothing Bye_GetFieldDescription: Exit Function Err_GetFieldDescription: Beep MsgBox Err.Description, vbExclamation GetFieldDescription = Null Resume Bye_GetFieldDescription End Function

4. Click Immediate Window on the View menu or press CTRL+G to open the Immediate window.
5. To test this function, type the following line in the Immediate window, and then press ENTER:
? GetFieldDesc_ADO("Employees", "EmployeeID")
Note that the description for the EmployeeID field is returned.

DAO Method

NOTE: The sample code in this article uses Microsoft Data access Objects. For this code to run properly, you must reference the Microsoft DAO 3.6 Object Library. To do so, click References on the Tools menu in the Visual Basic Editor, and make sure that the Microsoft DAO 3.6 Object Library check box is selected.
1. Start Microsoft access and open the sample database Northwind.mdb.
2. Create a new module, and then type the following line in the Declarations section if it is not already there:

Option Explicit

3. Type or paste the following procedure:

Function GetFieldDesc_DAO (ByVal MyTableName As String, _ ByVal MyFieldName As String) Dim DB As DAO.Database Dim TD As DAO.TableDef Dim FLD As DAO.Field Set DB = CurrentDB On Error GoTo Err_GetFieldDescription Set TD = DB.TableDefs(MyTableName) Set FLD = TD.Fields(MyFieldName) GetFieldDesc_DAO = FLD.Properties("Description") Bye_GetFieldDescription: Exit Function Err_GetFieldDescription: Beep MsgBox Err.Description, vbExclamation GetFieldDescription = Null Resume Bye_GetFieldDescription End Function

4. Click Immediate Window on the View menu or press CTRL+G to open the Immediate window.
5. To test this function, type the following line in the Immediate window, and then press ENTER:
? GetFieldDesc_DAO("Employees", "EmployeeID")
Note that the description for the EmployeeID field is returned.
首页