[求助]这个怎么实现的？？ - ASP技术论坛

问题点数：0 回复次数：8

[求助]这个怎么实现的？？

一、
这个有个数据库db.mdb
里面有3个表 a、b、c
在页面上怎么把这3个表的名字显示出来？？？

二、
我修改一条记录比如：ID＝20
sql＝select * from a

字段用 For i = 0 to rs.fields.count-1 来显示
<%=rs(i).value%>
next
有几个字段就显示几个
但是我修改后提交
更新表的代码怎么写呢？
这个怎么去更新表呢？？？

以上两个问题怎么解决啊？？？？

欢迎光临我的小站晒晒网 www.

第 2 楼

得分:0

问题一:
我没用过类似的功能.给你一点参考资料.

怎么样才能在ASP中显示ACCESS中所有的表名？
使用
SELECT MSysObjects.Name FROM MsysObjects WHERE (Left([Name],1)<>''~'') AND (Left$([Name],4) <> ''Msys'') AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name

会提示
Microsoft JET Database Engine 错误 ''80040e09''

不能读取记录；在 ''MsysObjects'' 上没有读取数据权限。

有其他的解决方法吗？

答案一

请参看以下代码

<%@ Language=VBScript %>
<%
''------- 利用ADOX取得Access中字段的说明 ---------------
Function OpenConnectionWithString(strMDBPath, strTableName, strColName)

Dim cat

Set cat = server.CreateObject("ADOX.Catalog")

cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & strMDBPath
OpenConnectionWithString = cat.Tables(strTableName).Columns(strColName).Properties("Description").Value

Set cat = Nothing
End Function

response.Write OpenConnectionWithString(server.MapPath("skajs.mdb"), "ajkx", "ajqs")
%>

注意里面的cat.Tables,这个就是所有的表,视图都可以求取出来.

问题二:
先查询你要修改的记录:
sql＝select * from a Where Id = 20
set rs = server.CreateObject ("Adodb.recordset")
sql="select * from 表名
sql="update 表名 set 字段落= 值1 where Id = 20 '修改内容
conn.execute(sql)

第 3 楼

得分:0

问题二：
我说的是
字段用 For i = 0 to rs.fields.count-1 来显示
<%=rs(i).value%>
next

这些是字段的值用 <%=rs(i).value%> 来输出
没有字段的名字

修改代码怎么得到和传过来的值是对应的字段并更新字段

欢迎光临我的小站晒晒网 www.

第 4 楼

得分:0

看错问题了..

第 5 楼

得分:0

以下是引用melack在2007-6-30 9:24:51的发言：
问题二：
我说的是
字段用 For i = 0 to rs.fields.count-1 来显示
<%=rs(i).value%>
next

这些是字段的值用 <%=rs(i).value%> 来输出
没有字段的名字

修改代码怎么得到和传过来的值是对应的字段并更新字段

用数组试试...

第 6 楼

得分:0

谢谢LS 了可是我还是解决不了！！！！！！

欢迎光临我的小站晒晒网 www.

第 7 楼

得分:0

自己顶一下高手帮看看！

欢迎光临我的小站晒晒网 www.

第 8 楼

得分:0

没个知道吗？

欢迎光临我的小站晒晒网 www.

第 9 楼

得分:0

怎么没人管啊

欢迎光临我的小站晒晒网 www.