请问大家如何用ADO来判断库中一个特定表的存在与否
Description of your first forum.
23 篇帖子 & 分页：1 / 2 &
由 mayao & 星期二, 日 16:58
小弟不才，最近编写一个数据库的小软件，其中有一个汇总功能，需要把数据库里面的一个表里面的数据拿出来计算，再写入到一个临时表再导出，所以我用了select ..sum... 然后Insert into 某临时表，在计算完成导出数据以后就删掉，但是如果有异常操作而中止了程序，临时表就会留在库里，下次计算时就会报错，说已有同名表存在而无法继续，我的问题就是里面的ADO有什么用法可以判断库里某个表是否已经存在了，就类似于BDE的TTable的exist属性一样，或是其他办法呢？
& &拜上各位帮忙的兄弟，我今天要下班了，希望大家看了捧捧场，留下自己的思路，帮我参谋一下，明天回来上班再来谢谢了
由 Arfsoft & 星期二, 日 17:07
得到所有的ADOConnection1表名；
ADOConnection1.GetTableNames(memo1.Lines,true);
由 jennykiller & 星期二, 日 17:11
用到临时表，加个事务控制不就行了？
由 vvyang & 星期二, 日 17:22
function TabelIsExist(const TableName: string): B
&cat: OleV
&Result := F
&cat := CreateOleObject('ADOX.Catalog');
&cat.ActiveConnection := ADOConnection1.ConnectionO
&for i := 0 to cat.Tables.Count - 1 do
& &if cat.Tables[i].Name = TableName then
& & &Result := T
如果不区分大小写可以加个
由 酷辰 & 星期二, 日 17:23
执行 SQL ：
select * from dbo.sysobjects where id = object_id(N'[dbo].[t_flLib1]') and OBJECTPROPERTY(id, N'IsUserTable') = 1
由 hhmyz & 星期二, 日 17:30
直接用select * from sysobjects where name='tablename'也可
由 龙眠山人 & 星期二, 日 18:16
ADOConnection1.GetTableNames(aStringList,true);
if aStringList.indexof(aTableName) & 0 then
/////////////
由 mayao & 星期三, 日 11:19
不好意思，不好意思，应为公司正好有台机出问题，去忙了，来迟了，先谢谢大家我再仔细看，多谢了!
由 mayao & 星期三, 日 14:12
vvyang &我想请问一下，它会出错
[Error] Unit9.pas(118): Undeclared identifier: 'CreateOleObject'
[Error] Unit9.pas(119): Undeclared identifier: 'ADOConnection1'
这是为什么啊，顺便你写的这个意思我看明白了，可是应该怎么应用呢?
谢谢 &酷辰，hhmyz，龙眠山人 &你们三位，你们提出的方法我试了，如果表存在，可以select到，但是，好像没有返回值，在程序里不好判断啊，vvyang 兄的函数有boolean的返回值，很方便判断，但不会用...能不能顺便请教一下用法啊！
由 wangergulei & 星期三, 日 14:42
谁说没有返回值？
你使用tadoquery的recordcount属性，判断一下查询后该属性是否大于0
或者isempty属性是true还是false就可以了啊。
由 mayao & 星期三, 日 14:55
wangergulei 兄，说得太有道理了，我马上去试。多谢！
顺便，有哪位兄弟能告诉我 vvyang 的这个在编译的时候为什么会出错呢？抑或是告诉我用法？
vvyang &我想请问一下，它会出错
[Error] Unit9.pas(118): Undeclared identifier: 'CreateOleObject'
[Error] Unit9.pas(119): Undeclared identifier: 'ADOConnection1'
这是为什么啊，顺便你写的这个意思我看明白了，可是应该怎么应用呢?
由 mayao & 星期三, 日 15:22
[:)] & 多谢楼上，一语点醒梦中人，完全可行，多谢了！
我再看看有人能帮我看看 vvyang 的那个解决方法不就结贴，如果高手路过，望不吝赐教！
谢谢大家帮忙，解决我一个老大的问题！ &[:D]
由 vvyang & 星期三, 日 15:50
1、用到一个单元
2、另外你连接数据库要用到一个 ADOConnection1 吧，在 ADO 那页，如果你没用到那玩意再跟我联系。
由 mayao & 星期三, 日 16:20
vvyang &你好，按你说的引用了那个单元后，第一个错误没有了，可是第二个依然存在；
[Error] Unit9.pas(119): Undeclared identifier: 'Adoconnectio1'
呵呵，adoconnection这个组件我还是知道的，前面也有声明啊，ADOConnection1: TADOC让我觉得奇怪的是，这个错误只是在你那一段里才有，我在别处使用adoconnection1.Connected:=这样的语句却不会报错，这就让我百思不得其解了，另外，你那段语句我逐字打过，当我打到 ADOConnection1. 时，后面不会有提示出来，也会报错，说：[Pascal Error] Unit9.pas(1): Unable to invoke Code Completion due to errors in source code ，这也是奇怪的地方，所以还请你多多指教，如不介意，我们可以通过QQ联系，也许图片会直观些，谢谢了！ &[:)]
由 mayao & 星期三, 日 16:22
vvyang &你好，按你说的引用了那个单元后，第一个错误没有了，可是第二个依然存在；
[Error] Unit9.pas(119): Undeclared identifier: 'Adoconnection1'
呵呵，adoconnection这个组件我还是知道的，前面也有声明啊，ADOConnection1: TADOC让我觉得奇怪的是，这个错误只是在你那一段里才有，我在别处使用adoconnection1.Connected:=这样的语句却不会报错，这就让我百思不得其解了，另外，你那段语句我逐字打过，当我打到 ADOConnection1. 时，后面不会有提示出来，也会报错，说：[Pascal Error] Unit9.pas(1): Unable to invoke Code Completion due to errors in source code ，这也是奇怪的地方，所以还请你多多指教，如不介意，我们可以通过QQ联系，也许图片会直观些，谢谢了！ &[:)]
不好意思，我打错字了，但在代码里检查过，不是拼写的原因。
23 篇帖子 & 分页：1 / 2 &}