如何得到access2k中所有的表的名称?(用vbscript)

cloud_soft 2001-12-29 09:51:16
...全文
260 24 打赏 收藏 转发到动态 举报
写回复
用AI写文章
24 条回复
切换为时间正序
请发表友善的回复…
发表回复
julyclyde 2001-12-31
  • 打赏
  • 举报
回复
我没注意过这个问题

如果这个方法不行,可以读系统表。不过系统表的名称我忘记了。系统表都是MSys开头的
aydgeLee 2001-12-31
  • 打赏
  • 举报
回复
你这三嘎
asp对数据库来说就是client端,好好看看你的代码吧
cloud_soft 2001-12-31
  • 打赏
  • 举报
回复
julyclyde(foreverkok.yeah.net) , 在server端没法用OPENSCHEMA方法的!所以用RESPONSE.WRITE无法输出的!我查了些资料,确实OPENSCHEMA只能在CLIENT端运行,你知道其他的方法码?谢谢
julyclyde 2001-12-30
  • 打赏
  • 举报
回复
ado 2.1的帮助在OFFICE 2000盘里,文件名ADO210.CHM
2.6的英文帮助在MDAC SDK里边。http://www.microsoft.com/data/

那行出错是需要include一下adovbs.inc
cloud_soft 2001-12-30
  • 打赏
  • 举报
回复
还是不行呀,ie提示有错误发生:0x800A0CB3,错误还是在set rs = gConn.OpenSchema ( adSchemaTables ),我已经加上了xmao的set rstSchema=server.CreateObject("ADODB.Recordset"), 大虾们。。。。。。。。。。。。。。
xmao 2001-12-30
  • 打赏
  • 举报
回复
set rstSchema=server.CreateObject("ADODB.Recordset")
cloud_soft 2001-12-30
  • 打赏
  • 举报
回复
我把部分代码贴出:
<%
Dim gConn,gDBPath
Dim rs
set gConn = Server.CreateObject("ADODB.Connection")
gDBPath ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\CRM\webPub\common\Mdb\db1.mdb;Persist Security Info=False"
gConn.Open gDBPath
set rs = gConn.OpenSchema ( adSchemaTables )
%>

大虾们多多帮忙看看呀!
cloud_soft 2001-12-30
  • 打赏
  • 举报
回复
请大家给出vbs的代码吧,上面两位大虾的代码我在vi下用vbs怎么出错呀!错误在:Set rstSchema = cnn1.OpenSchema(adSchemaTables),请多多帮忙呀!
julyclyde 2001-12-30
  • 打赏
  • 举报
回复
修改连接
lanying 2001-12-30
  • 打赏
  • 举报
回复
那sql server该怎么办?
julyclyde 2001-12-30
  • 打赏
  • 举报
回复
msgbox msg改成response.write msg
自己想想不就知道了?
cloud_soft 2001-12-30
  • 打赏
  • 举报
回复
哦,十分感谢julyclyde(Clyde) , 那SERVER端的VBS版本的。。。。。。@_@
julyclyde 2001-12-30
  • 打赏
  • 举报
回复
给你一个可以用的,改一下数据库文件名即可。客户端VBS版本的


db="provider=microsoft.jet.oledb.4.0;data source=kok.mdb"
set conn=createobject("adodb.connection")
conn.open db
set rs=conn.openschema (20)

msg=""
do
if left(rs("TABLE_NAME"),4)<>"MSys" then
msg=msg &rs("TABLE_NAME") &vbcrlf
end if
rs.movenext
loop until rs.eof

msgbox msg
jian 2001-12-30
  • 打赏
  • 举报
回复
强烈关注中
cloud_soft 2001-12-30
  • 打赏
  • 举报
回复
<%
<!--#include file="ADOVBS.INC"-->
Dim gConn,gRecordset,gDBPath
Dim rs
Dim szSql
szSql = "select * from titles"
set gConn = Server.CreateObject("ADODB.Connection")

gDBPath ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\CRM\webPub\common\Mdb\db1.mdb;Persist Security Info=False"

gConn.Open gDBPath
Response.Write IsObject(rs)
set rs = Server.CreateObject("ADODB.Recordset")
set rs = gConn.OpenSchema (adSchemaTables)
%>

还是不行呀。。。。。。。
xmao 2001-12-29
  • 打赏
  • 举报
回复
Dim cnn1 As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnn As String

Set cnn1 = New ADODB.Connection
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=comdir;Data Source=E:\test\test.mdb;Persist Security Info=False "
cnn1.Open strCnn

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop
rstSchema.Close

cnn1.Close
cloud_soft 2001-12-29
  • 打赏
  • 举报
回复
kaka
win1st 2001-12-29
  • 打赏
  • 举报
回复
顺便问一道:哪里有ADO的详细中文文档啊?
zarz 2001-12-29
  • 打赏
  • 举报
回复
:)
julyclyde 2001-12-29
  • 打赏
  • 举报
回复
是用的VBS,不是ASP
ASP最后要response.write out
加载更多回复(4)

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧