本文整理自网络,侵删。
ADOConnection1.Close;
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+ Edit1.Text + ';Persist Security Info=False';
ADOConnection1.Open;
ADOConnection1.GetTableNames(ComboBox1.Items);
ComboBox1.ItemIndex := 0;
相关阅读 >>
Delphi中使用内联变量(inline variables) 的5个理由
更多相关阅读请进入《Delphi》频道 >>