各位大侠，能不能用ADO得到SQLSERVER的字段描述值？有的话请给出简单的代码。谢谢

Question

各位大侠，能不能用ADO得到SQLSERVER的字段描述值？有的话请给出简单的代码。谢谢

Answer 1

Option ExplicitDim db As Database'以下 Function 需要二个参数，sTable 是 Table 名称，sField 是字段名称
Function Getdescription(sTable As String, sField As String) As String
    Dim Sna As Recordset
    Dim i As Integer
    Dim existDescr As Boolean
    
    Set Sna = db.OpenRecordset(sTable, dbOpenTable)
    existDescr = False
    For i = 0 To Sna(sField).Properties.Count - 1
        If Sna(sField).Properties(i).Name = "Description" Then
            existDescr = True: Exit For
        End If
    Next    If existDescr Then
        Getdescription = Sna(sField).Properties("Description")
    Else
        Getdescription = ""
    End If
End FunctionPrivate Sub Command1_Click()
    Dim x As String
    MsgBox Getdescription("AABLE_L", "AABLE_LNO")
End SubPrivate Sub Form_Load()
    Set db = opendatabase("c:\hris\ability.mdb")  '数据库
End Sub
这是抓ACCESS的办法。
  

Answer 2

len（某个字段） 得出它的长度

Answer 3

如果用ADO编程的话，再引用ADOX很麻烦，不如再建一张表来表示特定表中相应字段及其描述之间的关系
例如
表一
name      bornyear     class
dragon   1980-6-21     0332
......    ........     .....表二
fieldname     Description
name           姓名
bornyear       出生日期
class          班级