我有一个函数,它使用ADO连接对SQL数据库执行查询,它只是为数据库条目提供单个结果,只能匹配SELECT
类型的查询(即从ID 45获取x值,其中只有一个ID 45条目。
该函数工作正常,直到我点击一个不返回结果的查询。查询只是挂起,应用程序无法继续。以下是一个示例查询字符串:
'SELECT Cost FROM MaterialCost ' +
'WHERE MaterialType = ''' + 'MS' +
''' AND Thickness = ''' + '0.250' + '''';
再次这个确切的字符串将正常工作,直到我可能查询之前我知道的东西不存在,这应该返回null或空字符串。这是功能:
function SelectOneQuery(AQueryString : String; AADOConnectionString : String) : String;
var
ADOQuery: TADOQuery;
begin
//Create empty ADO Query, then connect to connection string
ADOQuery := TADOQuery.Create(nil);
ADOQuery.ConnectionString:=AADOConnectionString;
ADOQuery.SQL.Clear;
ADOQuery.SQL.Add(AQueryString);
ADOQuery.ExecSQL;
ADOQuery.Open;
//Set first query result and return first result
ADOQuery.First;
if(ADOQuery.Fields.Count > 0) then begin
result:=ADOQuery.Fields[0].Value;
end
else begin
result := '';
end;
end;
我添加了字段计数的东西,但我不确定这是否有帮助。基本上,如果没有结果,我想要result := ''
答案 0 :(得分:12)
您的代码段中存在一些问题:
FieldCount
。 FieldCount
将始终为非零,因为它包含查询返回的列数,而不管您的查询是否返回记录。一种选择是检查RecordCount
表示返回的行数,但更好的选择是检查 EOF
标志。try/finally
块来创建和清理对象。ExecSQL
用于不返回记录集的查询(如INSERT和DELETE),
使用Open
代替First
Open
示例:
ADOQuery.SQL.Text := 'SELECT Cost FROM MaterialCost WHERE MaterialType = :MaterialType AND Thickness = :Thickness';
ADOQuery.Parameters.ParamByname('MaterialType').Value := 'MS';
ADOQuery.Parameters.ParamByname('Thickness').Value := 0.25;
你的功能代码应该是这样的:
function SelectOneQuery(const AQueryString, AADOConnectionString: string): string;
var
ADOQuery: TADOQuery;
begin
Result := '';
ADOQuery := TADOQuery.Create(nil);
try
ADOQuery.ConnectionString := AADOConnectionString;
ADOQuery.SQL.Text := AQueryString;
ADOQuery.Open;
if not ADOQuery.EOF then
Result := ADOQuery.Fields[0].AsString;
finally
ADOQuery.Free;
end;
end;