delphi中使用adoconnection 的openschema的例子源代码

关于odbc对话框，openschema等用法的例子源代码

不知道怎么样上船？关键内容如下

ADOConnection1.Connected:=false;
ADOConnection1.ConnectionString:=adodb.PromptDataSource(handle,self.ADOConnection1.ConnectionString);
try
ADOConnection1.Connected:=true;
ADOConnection1.OpenSchema(siTables,oleempty,oleempty,self.adodataset1);
except
on E: Exception do
memo1.Lines.Add(datetimetostr(now())+':'+e.Message);
end;