我的代码如下:
function TQXJLXX.GetCardCode : string;
var lQuery: TQuery;
begin
lQuery := TQuery.Create(nil);
lQuery.ConnectionString := 'DATABASEURL= Biz:\QXGL\QXGLSJK.Database';
lQuery.CommandText := 'SSELECT NVL( MAX(SUBSTR(GDH, 11,LENGTH(GDH) - 10 ) ) + 1,1 ) F, '+
'TO_CHAR(SYSDATE,''YYYY'') Y, '+
'TO_CHAR(SYSDATE,''MM'') M, '+
'TO_CHAR(SYSDATE,''DD'') D FROM GDZB '+
'WHERE SUBSTR(GDH, 3, 4) = TO_CHAR(SYSDATE,''YYYY'') AND '+
'SUBSTR(GDH, 7, 2) = TO_CHAR(SYSDATE,''MM'') AND '+
'SUBSTR(GDH, 9, 2) = TO_CHAR(SYSDATE,''DD'') AND '+
'SUBSTR(GDH, 1,2) = ''' + GetPirorWold + ''' ';
try
lQuery.Active := True; // 报错,
请问,其它情况下都能正常访问这个数据库,为什么自己写一个Query
就报错呢, 我使用平台时间还很短, 请问有没有类似大富翁这样的离线资料可以查阅? 因为在开发过程遇到的问题实在是太多了. |