2.8w+
社区成员
怎么判断access数据库中某个表是否存在
<%
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"找到了"
set objconn=nothing
%>
我从网上找来这断代码
但不成功
每次都是"没有找到！！！"
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"找到了"
set objconn=nothing
%>
我从网上找来这断代码
但不成功
每次都是"没有找到！！！"
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
cloudgamer 2007-01-09
等看
笨笨兔兔兔兔兔 2007-01-08
这个是本身可以做自动生成器用的
以后我给演示版本。。。。。脚本版 vb版，如果需要vc版也能很快写出来
以后我给演示版本。。。。。脚本版 vb版，如果需要vc版也能很快写出来
cloudgamer 2007-01-08
love007的方法就可以了
不过liuxiaoyi666的东西好象很有意思哦
不过liuxiaoyi666的东西好象很有意思哦
cloudgamer 2007-01-08
看了一下
一头雾水啊
能说一下怎么用么
一头雾水啊
能说一下怎么用么
笨笨兔兔兔兔兔 2007-01-04
http://blog.csdn.net/liuxiaoyi666/archive/2006/12/20/1450981.aspx
cloudgamer 2007-01-04
看看
zhangjun 2006-12-30
Dim cn ,strCnn,rstSchema
set cn = server.createobject("ADODB.Connection")
set strCnn = server.createobject("ADODB.Recordset")
set rstSchema = server.createobject("ADODB.Recordset")
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strCnn = strCnn & "Data Source=F:\asptest\tree.MDB;"
strCnn = strCnn & "Persist Security Info=False"
cn.Open strCnn
set rstSchema=cn.openSchema(20)
rstSchema.movefirst
Do Until rstSchema.EOF
if rstSchema("TABLE_TYPE")="TABLE" then
response.write rstSchema("TABLE_NAME") & "<br/>"
end if
rstSchema.movenext
Loop
cn.close
'set rstSchema = nothing
'set cn = nothing
set cn = server.createobject("ADODB.Connection")
set strCnn = server.createobject("ADODB.Recordset")
set rstSchema = server.createobject("ADODB.Recordset")
strCnn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strCnn = strCnn & "Data Source=F:\asptest\tree.MDB;"
strCnn = strCnn & "Persist Security Info=False"
cn.Open strCnn
set rstSchema=cn.openSchema(20)
rstSchema.movefirst
Do Until rstSchema.EOF
if rstSchema("TABLE_TYPE")="TABLE" then
response.write rstSchema("TABLE_NAME") & "<br/>"
end if
rstSchema.movenext
Loop
cn.close
'set rstSchema = nothing
'set cn = nothing
龙在天涯2021 2006-12-30
on error goto errHandle:
select count(1) from tablename
....
errHandle:
Response.write("表不存在！")
这种方法不知道可不可以，没测试，原理上应该能行得通
select count(1) from tablename
....
errHandle:
Response.write("表不存在！")
这种方法不知道可不可以，没测试，原理上应该能行得通
minkingshine 2006-12-29
用异常处理
dim isExist
isExist=o
try
{
//connect to the database
//open the table (tablename)
isExist=1
}
catch
{
//
}
finnally
{
//dispose the connection
}
dim isExist
isExist=o
try
{
//connect to the database
//open the table (tablename)
isExist=1
}
catch
{
//
}
finnally
{
//dispose the connection
}
cloudgamer 2006-12-29
cow8063的方法可以
但有时候不知道是不是因为没有建表而出错啊
但有时候不知道是不是因为没有建表而出错啊
lcw321321 2006-12-29
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[tablename]')
then
else
sql 2000里面的，不知道通用不
then
else
sql 2000里面的，不知道通用不
cow8063 2006-12-29
select * from tablename
如果没有此表会出错，根据此判断就行
如果没有此表会出错，根据此判断就行
检查access数据库中是否存在某个名字的表的asp代码 可以把本功能写成一个函数，函数的处理过程描述如下： 首先调用adodb.connection对象中的openSchema函数，这样会得到一个Recordset，其中每一条“纪录”对应着数据库中的一张表，“纪录”的每个“字段”包含了对应表...
查询access数据库中某个表是否存在 在Access数据库中通过SQL语句找到某一表是否存在的确是一件困难的事。幸好， Access本身就有一些隐含的数据对象能够保存你库中的信息，今天我就遇到了要用SQL，通过程序查询某一表是否存在的问题，解决方法如下： ...
Delphi中access和sql数据库分别判断一个表中某字段是否存在 {$IFDEF sql}//在sql server数据库语句中进行判断 with dm.ADOQuery1 do begin Close; SQL.Clear; SQL.Add(' SELECT 1 FROM SYSOBJECTS T1 INNER JOIN SYSCOLUMNS T2 ON T1.ID=T2.ID WHERE T1.NAME='...
Sql Server中判断表或者数据库是否存在 SQL Server中判断数据库是否存在：select * From master.dbo.sysdatabases where name='pubs' 最初安装 SQL Server 时，sysdatabases 包含 master、model、msdb、mssqlweb 和 tempdb 数据库的项。该表只存储在 ...
Access中判断一个表中某个字段是否存在，以及添加字段 所以要判断Access中一个字段是否存在，如果不存在就增加。 以下是参考http://topic.csdn.net/t/20021119/11/1188678.html Brunhild的解决方案，我又重写了一下。 private bool checkField(String sTblName, ...
判断数据在数据库中是否已存在. 今天下午和同事发生因为判断数据是否在数据库中已存在产生分歧.简易代码如下: //观点一,先取出数据库中已存在ID存入内存,再进行判断 //数据太多情况,内存爆炸 DateTable dt = ExcuteSQL('SELECT ID FROM TABL...
易语言查询ACCESS数据库指定表指定字段 在易语言操作数据库时，如果我们使用的是Acess数据库，对于数据查询，比如我们在登录时要判断一下账号是否存在，密码是否正确，也就是易语言查询ACCESS数据库指定表指定字段是否存在，代码如下： 方法1 记录集1....
C# 判断数据库是否存在某张表 1 #region 判断数据库表是否存在，通过指定专用的连接字符串，执行一个不需要返回值的SqlCommand命令。 2 /// <summary> 3 /// 判断数据库表是否存在，返回页头，通过指定专用的连接字符串，执行一...
C#操作ACCESS如何判断某表格存在 Restriction[0]表示表所在的Catalog //Restriction[1]表示表的所有者 //Restriction[2]表示表的名字 //Restriction[3]表示表的类型： ...
判断一个表中是否存在某个字段 及 判断数据库中是否有某个 判断一个表中是否存在某个字段 function IsFieldExists(aADO: TADOConnection; aTable,aField: string): Boolean; var aList : TStringList; begin Result := False; if not aADO.Connected then ...
检查access数据库中是否存在某个名字的表 可以把本功能写成一个函数，函数的处理过程描述如下： 首先调用adodb.connection对象中的openSchema函数，这样会得到一个Recordset，其中每一条“纪录”对应着数据库中的一张表，“纪录”的每个“字段”包含了对应表...
mysql和postgresql查询数据库中哪些表包含某个字段 想知道数据库中哪表含有edu_status字段 mysql>selecttable_name,column_namefrominformation_schema.columnswherecolumn_namelike'%edu_status%'; +-------------+-------------------+ |table_name...
判断数据库中是否存在某个表 判断ACCESS数据库中是否存在某个表,VB语法 Function ExistTable(Conn As ADODB.Connection , Byval strTableName As String ) Dim blnRet As Boolean Dim rstSchema As ADODB....
Java Web项目中连接Access数据库的配置方法 本文是对前几天的“JDBC连接...老师决定期末考试采用access数据库实现增删改查，我认为现在的我已经没有问题了，但是以前都是在JSP页面中连接access数据库，无论是以下的那种方式都进行了连接的练习，但是现在我想
[代码问题梳理]c#向Access数据库插入数据 近来在做一个项目,纯粹拿来练手学习的,其中涉及到了C#与Access数据库这一块,故将其记录下来,作为个人的成长记录。 这篇文章主要有这几个小内容： 向Access数据库插入数据 数据的几种情况 数据插入语句的书写 注意...
office中为何还要保留Access数据库? 【3500人回复】知乎 因为Access一直是Office系列中、甚至是微软全产品系列中的“奇葩”存在。 Access的忠实用户是谁？ 多年以前，我也在职场中见到过使用它的真实故事： 使用Access的当事人并不是我，而是一位总监，他负责在线教育...
