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 清空某个form的控件内容,用tag来判断

Delphi随机字符(密码生成)函数

Delphi 合并动态数组

Delphi中使用自定义字体

Delphi adoconnection1 连接excel 读取数据

Delphi cef4Delphi chromium1 设置user-agent

Delphi windows 编程[6] - 学习窗体生成的过程六: 最终的代码!

Delphi中关于字符串的操作

Delphi 得到字符串拼音首字母

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

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

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