＋设为首页 ＋添加到收藏夹
我要做一个接口程序，对方给我一个Access数据库,里面只有一个表，其表名是随机产生的，所以不能确定表名。每天对方都要传个Access数据库根我对帐，但每次的表名都不同。
首先用一个DataBase连上该数据库，然后用
TSession.GetTableNames即可取得数据库中所有的表名。
字打错了！
ADOCon: TADOConnection;
Memo1: TMemo;
……
ADOCon.GetTableNames(memo1.Lines);
memo1.Lines中间的字符就是你的表名！
ADOConnection1.GetTableNames(ListBox1.Items, false);
得到表名,放在一个STRINGLIST变量里:
var
tablename:TStringlist;
begin
tablename:=TStringList.Create;
ADOConnection.GetTableNames(tablename,false);
end;
前提，你要先用adoconnection1连接到你要查看的数据库！
procedure TForm1.Button1Click(Sender: TObject);
var
str:tstringlist;
i:integer;
begin
str:=tstringlist.Create;
adoconnection1.GetTableNames(str,false);
for i:=0 to str.Count-1 do
listbox1.Items.Add(str.Strings[i]);
end;
呵呵，可以给分了吧！
