Question

delphi 怎样用listbox显示数据库中的所有表名 我是菜鸟求代码+解释

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
Adoconnection1.GetTableNames(listbox1.Items);
end;

追问

能修改表名吗?

Answer 2

要看是什么数据库了，可以查数据字典的

Answer 3

Adoconnection1.GetTableNames(ListBox.Items);
这个代码的功能是将AdoConnection所连接的数据库下面的所有表名，插入到括号里的ListBox列表里。这是AdoConnection自带的功能，很方便的哦，当然写SQL语法查询然后再循环插入也是可以的，不过前面一种方法最简单方便了楼主。