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;