如何判断一个Access表是否存在?(50分)

  • 主题发起人 主题发起人 strock
  • 开始时间 开始时间
S

strock

Unregistered / Unconfirmed
GUEST, unregistred user!
如有个abcd.mdb的Access数据库,内有test1,test2...等表,
如何判断一个Access表是否存在?
 
adoConnection.gettable(...)
 
1.添加TSession控件,设定PrivateDir,SessionName
2.添加Tdatabase控件,SessionName选取上面的SessionName,AliasName选中别名,
DataBaseName选中数据库名称
3.添加Listbox控件,在FormCreate中加入:
//////////////////////添加表名字////////////////
ListBox_tablename.Items.Clear;//清空Liatbox_Tablename对话框
Session_Shijian.GetTableNames(database_tablename.DatabaseName ,'',False,False,ListBox_tablename.Items);
4.判断的表是否存在的函数:
////////////////////////////////////////////////////////////
////////////////////////判断表是否存在//////////////////////
Function TForm_Mingxi.TableExist(Tablename:String):Boolean;
Var i:integer;
Begin
Result:=False;
For i:=0 To MainForm.ListBox_Tablename.Items.Count-1 Do
If MainForm.ListBox_tablename.items=TableName Then
Begin
Result:=True;
Exit;
End;
End;
 
还是不行
 
直接select * from table
If error就是没有这个表
 
To strock:
怎么不行DataBaseName要选中数据源(我用ODBC数据源)!
我就是这么处理的吗!
 
var
mytables:tstringlist;
begin
mytables:=tstringlist.Create ;
adoconnect.GetTableNames(mytables);
if not (mytables.IndexOf(findtablename)=-1) then
showmessage('find');
 
to xiuguo:
张剑波的答案是我想要的
to all :
thanks
 
后退
顶部