【搞定】请教几行TIB2.0中的代码如何在X3下转换？**

zxpeng

请教几行TIB2.0中的代码如何在X3下转换？

//错误提示：Undeclared identifier "DataBaseDefID"
TLookupDef.DataBaseDefID;

//错误提示：Undeclared identifier "ConnectionManager"
TCustomConnection := ConnectionManager.GetConnection('DB');

//错误提示：不能隐式转换 “Object " 成为 "Double"
lWhereStr := lWhereStr + ' and'+ SysUtils.Format(' To_Char('+lFieldName+',''yyyy-mm-dd'') >= ''%S''',[SysUtils.FormatDateTime('YYYY-MM-DD',Fields.Value)])

//错误提示： 没有匹配的方法
lWhereStr :=lWhereStr +' and '+lFieldName+' = '+SysUtils.IntToStr(Fields.value);

alang

//错误提示：Undeclared identifier "DataBaseDefID"
TLookupDef.DataBaseDefID;
TLookupDef.DataBase.URL := 'biz:\system\system.db';

//错误提示：Undeclared identifier "ConnectionManager"
TCustomConnection := ConnectionManager.GetConnection('DB');
对2.0不熟悉，这是干什么的？


//错误提示：不能隐式转换 “Object " 成为 "Double"
lWhereStr := lWhereStr + ' and'+ SysUtils.Format(' To_Char('+lFieldName+',''yyyy-mm-dd'') >= ''%S''',[SysUtils.FormatDateTime('YYYY-MM-DD',Fields.Value)])

.Value   ->   .AsString

//错误提示： 没有匹配的方法
lWhereStr :=lWhereStr +' and '+lFieldName+' = '+SysUtils.IntToStr(Fields.value);

lWhereStr +' and '+lFieldName+' = '+Fields.AsString;

zxpeng

TCustomConnection := ConnectionManager.GetConnection('DB');

其中的ConnectionManager是2.0中的一个系统对象，是取得业务数据库ID为"DB"连接

alang

你可以直接设置ConnectionString来设置数据连接

zxpeng

解决了！
ConnectionString := 'DATABASEURL=Biz:\ERS3\ERS.Database';
ConnectionString := ADBConnect;