SQL错误:错误映射失败

时间:2015-05-19 16:38:18

标签: delphi delphi-7

当我使用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

0 个答案:

没有答案