今天测试了好长时间,终于得到此段代码,感谢老铁
'========================公共函数,绑定数据到select=============================
'<Summary>公共函数,绑定数据到一个multiple select,2008-03-08</Summary>
'<param>Table:数据表</param>
Public Sub MakeMultipleSelect(Table)
set MyDB = server.CreateObject("ADOX.Catalog")
set MyTable = server.CreateObject("ADOX.Table")
set MyField = server.CreateObject("ADOX.Column")
MyDB.ActiveConnection = Conn
Set MyTable = MyDB.Tables(Table)
For i=1 to MyTable.Columns.count-1
GetFieldDesc=MyTable.Columns(i).Properties("Description") '获取注释
Response.Write("<option value="&trim(MyTable.Columns(i).name)&" title='"&LCase(trim(GetFieldDesc))&"'>"&trim(MyTable.Columns(i).name)&"</option>")
next
End Sub
不难看出MyTable.Columns(i).Properties("Description") 就是要取得的值,但多次测试不果,原来我用了MDB DRIVER,应该使用OLEDB做数据驱动
这段代码是使用在用来绑定字段批量导入数据时候使用的,等完全运作正常后奉献