http://www.wesoho.com/showlog.asp?log_id=1309

procedure TForm1.Button1Click(Sender: TObject);
begin
ADOConnection1.GetTableNames(ComboBox1.Items, False);
end;

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text<>'' then
begin
ADOConnection1.GetFieldNames(ComboBox1.Text,ComboBox2.Items);
end;
end;

其实关键是两个函数，GetTableNames和GetFieldNames，定义如下：

procedure TADOConnection.GetTableNames(List: TStrings;
  SystemTables: Boolean);

procedure TADOConnection.GetFieldNames(const TableName: string;
  List: TStrings); 

发表于 @ 2006年11月14日　20:36:00 | 评论( loading... ) | 编辑| 举报| 收藏

旧一篇:linux下启动时自动运行程序 | 新一篇:qreader无法进入的解决方法