蓝森林首页 | 返回主页 | 本站地图 | 站内搜索 | 联系信箱 |
 您目前的位置:首页 > 自由软件 > 技术交流 > 应用编程


    

蓝森林 http://www.lslnet.com 2006年8月25日 8:28

[ASP]关于OpenSchema问题?

用OpenSchema如何读出数据库中字段值?
用OpenSchema可以代替RS那样的数据库操作吗?
那里有比较全的OpenSchema教程?

这个是读数据库表名的,可不可以读字段值呢?
[code]
<%
Dim objConn, DBPath
Set objConn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("Productinfo.mdb")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Dim objRs
Set objRs = objConn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

Do While Not objRs.EOF
        Response.Write objRs("TABLE_NAME") & "<br />"
        objRs.MoveNext
Loop

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
[/code]

这样可以获得字段内容,怎么获得字段的值呢?

[code]
<%
Dim objConn, DBPath
Set objConn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("hblog.mdb")
objConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

Dim objRs
Set objRs = objConn.OpenSchema(adSchemaColumns, Array(Empty, Empty, strTableName, Empty))

Do While Not objRs.EOF
        Response.Write objRs("COLUMN_NAME") & "<br />"
        objRs.MoveNext
Loop

objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
[/code]

UPPPPPPPPPPPPP

有人对OpenSchema了解吗?

UPPPPPPPPPPPPP

如果OpenSchema返回的RecordSet对象中,技术fields集合,那command对象\RECORDSET对象\FIELD对象都没必要存在了吧.

微软上关于OpenSchema的介绍
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdmthopenschema.asp

如何使用OpenSchema获得字段值呢?
[code]
Set objRs = objConn.OpenSchema(adSchemaColumns, Array(Empty, Empty, strTableName, Empty))

Do While Not objRs.EOF
Response.Write (objRs("COLUMN_NAME").Value) & "<br />"
objRs.MoveNext
Loop
[/code]
这也有错误

楼主还不明白么?

OpenSchema返回的RecordSet跟conn.Execute(sql)返回的RecordSet不同的. :o




Copyright © 1999-2000 LSLNET.COM. All rights reserved. 蓝森林网站 版权所有。 E-mail : webmaster@lslnet.com