Set cn = CreateObject("ADODB.Connection") cn.open "dsn=xxx;uid=xxx" Set rs = cn.OpenSchema(4, Array(Empty, Empty, "表名", "字段名")) response.write rs.fields("DESCRIPTION").Value Set rs = Nothing cn.Close Set cn = Nothing
dim conn dim rs Set conn=server.createobject("adodb.connection") Set rs=server.createobject("adodb.recordset") conn.open "dsn=test;uid=sa;pwd=" rs.open "select * from tablename",conn,2,3,1if not rs.eof then response.write rs("description") end ifrs.close set rs=nothing conn.close set conn=nothing
to:xuchu(许褚) 你的这断程序验证过了吗?我怎么试了不行啊?
Item cannot be found in the collection corresponding to the requested name or ordinal. response.write rs("description")有问题
to:hydnoahark(诺亚方舟) 为什么这个什么也写不出来啊 你给我的程序只能写出空值
<% sql="select name from syscolumns join sysindexes on syscolumns.id=sysindexes.id where syscolumns.cdefault<>0 and name='"&request("tablename")&"'" set rs=oConn.execute(sql) if not rs.eof then do while not rs.eof resposne.write rs("name")&"<br>" rs.movenext loop end if %>
to:efax(小飞) 谢谢,我不懂这个程序的意思.也没有试验成功.页面什么也没有.是空白的 我把select name ...中的name改为其他的字段了
cn.open "dsn=xxx;uid=xxx"
Set rs = cn.OpenSchema(4, Array(Empty, Empty, "表名", "字段名"))
response.write rs.fields("DESCRIPTION").Value
Set rs = Nothing
cn.Close
Set cn = Nothing
dim rs
Set conn=server.createobject("adodb.connection")
Set rs=server.createobject("adodb.recordset")
conn.open "dsn=test;uid=sa;pwd="
rs.open "select * from tablename",conn,2,3,1if not rs.eof then
response.write rs("description")
end ifrs.close
set rs=nothing
conn.close
set conn=nothing
你的这断程序验证过了吗?我怎么试了不行啊?
response.write rs("description")有问题
为什么这个什么也写不出来啊
你给我的程序只能写出空值
sql="select name from syscolumns join sysindexes on syscolumns.id=sysindexes.id where syscolumns.cdefault<>0 and name='"&request("tablename")&"'"
set rs=oConn.execute(sql)
if not rs.eof then
do while not rs.eof
resposne.write rs("name")&"<br>"
rs.movenext
loop
end if
%>
谢谢,我不懂这个程序的意思.也没有试验成功.页面什么也没有.是空白的
我把select name ...中的name改为其他的字段了