老板，怎么uADOLib.pas单元，自己修改的代码不执行啊
比如：这个过程，我改成这样
function GetValues(const aConnection : OleVariant;
const aSQLCommand : string;
Arguments : array of const) : OleVariant;
var rs : _Recordset;
i : integer;
begin
try
Result := '';
OpenFireHoseRecordset(aConnection, aSQLCommand, Arguments, rs, TRUE);
if (rs.RecordCount >0) then
begin
if (rs.Fields.Count>1) then
begin
result := VarArrayCreate([0, rs.Fields.Count-1], varVariant);
for i := 0 to (rs.Fields.Count-1) do result[i] := rs.Fields[i].Value;
end
else Result := rs.Fields[0].Value;
end;
finally
rs.Close;
rs := NIL;
end;
end;
以前那样，如果没有数据会出什么真或假 |
