[求助]这个怎么实现的？？
一、这个有个数据库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
有几个字段就显示几个
但是我修改后提交
更新表的代码怎么写呢？
这个怎么去更新表呢？？？
以上两个问题怎么解决啊？？？？
问题一:
我没用过类似的功能.给你一点参考资料.
怎么样才能在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)
<%@ 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)
