delphi6一个很大的BUG,大虾们来解决一下
procedure TForm1.Button1Click(Sender: TObject);
var
sSql: string;
ll_rowcount:integer;
begin
try
with ADOQuery1 do
begin
sSql := 'SELECT files FROM clwbz.ts_report where rptname = ''模版''';
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text := sSql;
ADOQuery1.Prepared;
ADOQuery1.Open;
ADOQuery1.First;
ll_rowcount := ADOQuery1.RecordCount;
showmessage(inttostr(ll_rowcount));
end;
ADOQuery1.Free;
except
on e: Exception do
begin
ADOQuery1.Free;
end;
end;
end;
这么一个简单的查询语句,后台oracle10是有数据的,adoquery里面查出来居然是0行。
网上查了很多资料,没有办法解决。哪个版本已经修正了对adoquery中动态SQL中文字符的解决办法了。