Question

判断ACCESS数据库中某个表是否存在，若存在则删除

我想用Delphi实现如下操作：判断ACCESS数据库中某个表是否存在，若存在则删除。请教各位应如何编程？切盼中...谢谢！！！
ACCESS中是否可用条件语句？使用Msysobjects为什么提示“无权限”？

Answer 1

rem x=0 表示不存在，x=1 表示存在

strConn="DBQ="+server.mappath("zw.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set objConn=server.createobject("Adodb.connection")
objConn.open strConn
set rsSchema=objConn.openSchema(20)
rsSchema.movefirst

tablename="gd111"
x=0
Do Until rsSchema.EOF
if rsSchema("TABLE_TYPE")="TABLE" then

if rsSchema("TABLE_NAME")=tablename then
x=1
exit do
end if
end if

rsSchema.movenext
Loop

if x=0 then response.write"没有找到！！！立即删除"

if x=1 then
response.write"找到了"
conn.execute("drop table recycletest")
end if
set objConn=nothing
%>

Answer 2

在delphi中如果你是用ADO连接的可以用ADOconnectiong来做．例如可以用listbox读出数据库．然后再进行判断是否来这个表．
另外，如果你你BDE连接，还可以用Tsesssion来读取．它需要的参数据包括别名．
自己试试吧，不太难．