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; 
我最终使用的代码如下： 
procedure TForm1.FormCreate(Sender: TObject); 
var 
//声明变量： 
lString:TStrings; 
i:Integer; 
Begin 
//-----------获取表名信息------------- 
lString:=TStringList.Create; 
form1.ADOConnection1.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 
form1.combobox1.Items.Add(lString.Strings[i]); 
End; 
button2.Enabled:=false; 
end; 
procedure TForm1.FormCreate(Sender: TObject); 
var//声明变量： 
lString:TStrings; 
i:Integer; 
Begin    //-----------获取表名信息-------------lString:=TStringList.Create; 
form1.ADOConnection1.GetTableNames(lString,True); 
for i:=0 to lString.Count-1 dobeginif (lString.Strings[i]<>'MSysACEs')and (lString.Strings[i]<>'MSysObjects')and (lString.Strings[i]<>'MSysQueries')and (lString.Strings[i]<>'MSysRelationships') thenform1.combobox1.Items.Add(lString.Strings[i]); 
End; 
button2.Enabled:=false; 
end; 
 

相关阅读 >>

Delphi 双击dbgrid然后得到字段里面的内容

Delphi比较两个位图是否相同

Delphi system.sysutils.tmarshaller 与 system.tmarshal

Delphi unigui中如何监听session的开始与结束

Delphi 获取星期几

Delphi中嵌入汇编检测是否在虚拟机里运行

Delphi 将程序加裁到启动项

Delphi xe7使用本身的md5单元进行字符串加密

Delphi 安装apk

Delphi 下载者源代码

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

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