当我使用TSQLDataSet连接数据库远程时出现问题,我设置了属性if dmOS.ExecutaPesquisa('Select IDLOJA from LOJA') > 0 then
begin
with dmOS.qryPesquisa do
begin
while not EOF do
begin
strCampos := Concat('Insert into PRODUTOFILIAL (PRO_CODIGO, LOJA_ID, ');
strValores := Concat(' Values (', QuotedStr(cdsProduto.FieldByName('pro_codigo').AsString), ',', FieldByName('IDLOJA').AsString, ',');
strSQL := CriaSQLInclusao(cdsProduto, strCampos, strValores, 2);
AtualizaDados(strSQL, False, strMensagemErro);
Next;
end;
end;
end;
function TdmOS.ExecutaPesquisa(strSQLPesquisa: string): Integer;
{Esta função serve para fazer pesquisas no banco de dados, de acordo com o parâmetro SQL
dado. Retorno: -1: Erro na execução da pesquisa, > 0:Query OK - Retorna número de registros encontrados}
begin
Result := -1;
qryPesquisa.Close;
qryPesquisa.CommandText := strSQLPesquisa;
try
qryPesquisa.Open;
except
on E: Exception do
begin
GravaLog(Concat('Erro SQL: ', strSQLPesquisa, '-', E.Message), 'LG');
Exit;
end;
end;
if qryPesquisa.IsEmpty then
Result := 0
else
Result := qryPesquisa.RecordCount; // Here's the error
end;
,即使这样,错误仍然存在。当我调用方法recordCount时,我意识到这个错误。
(100% - 2 * 15px) / 3