Delphi 获取Access中的表名

本文整理自网络，侵删。

 //声明变量：

lString,lTableName:TStrings;


//-----------获取表名信息-------------
lString:=TStringList.Create;
lTableName:=TStringList.Create;
DM_Conn.con_Access.GetTableNames(lString,True);
for i:=0 to lString.Count-1 do
begin
if (lString.Strings[i]<>'MSysACEs')
and (lString.Strings[i]<>'MSysObjects')
and (lString.Strings[i]<>'MSysQueries')
and (lString.Strings[i]<>'MSysRelationships') then
lTableName.Add(lString.Strings[i]);
end;
 

相关阅读 >>

Delphi 获取系统托盘程序列表

Delphi 动态创建一个ipedit控件

Delphi 无法结束进程的程序

Delphi 将base64字符串转化为jpeg图片

关于Delphi xe2的fmx的一点点研究之消息篇

Delphi 关于汇编call的例子

相对完整的多线程idhttp文件下载代码

Delphi base64编码/解码及zlib压缩/解压

Delphi 从paintbox拷贝一部分内容到tbitmap

Delphi ioutils 单元(5): tdirectory.tdirectory 的其他功能

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 获取Access中的表名