枚举access数据库中自建表.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 13 行

枚举access数据库中自建表:
在Delphi中可以通过ADO实现枚举Access数据库中自建表功能
procedure TForm1.Button1Click(Sender:TObject);
begin
//设置连接命令字符串
//由于已经设置了系统DSN,可以直接使用DSN
ADOConnection1.ConnectionString:='DSN=Library';
//打开数据库连接
ADOConnection1.Open;
//获得tables名称,在列表框中显示
ADOConnection1.GetTableNames(listbox1.items);
end;