根据TableDef的BizURL获得其数据连接方法

atiger

var
  lstring:String;
begin
  lstring := 'DATABASEURL='+ TSQLDataSet(DataSetBroker1.DataSet).Database.URL;
  Query1.ConnectionString := lstring;
  Query1.CommandText := 'select * from DCHBB';
  DataSource1.DataSet.Open;
end;

或者
var
  lDataBaseURL: string;
begin
  lDataBaseURL := SysUtils.ExtractFileDir('表(TableDef)的URL');
  lDataBaseURL := 'DATABASEURL='+ lDataBaseURL;
  Query1.ConnectionString := lDataBaseURL;
   lConnection.ConnectionString := lDataBaseURL;
end;