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定位注册表指定键位

Delphi文本转换图片

Delphi getfilehashmd5获取文件 hashmd5值

Delphi 获取随机字符串的方法 getrandomstring

Delphi遍历进程并获取进程路径

Delphi 编写ie代理服务器

Delphi 读url下txt中的下载地址的简单下载者代码

Delphi中使用ado连接带密码的access

Delphi windows 编程[21] - wm_menuselect 消息与 getmenustring 函数

Delphi 下载并运行的代码

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...