从插入中的查询中未返回游标

时间:2013-07-06 18:35:21

标签: delphi tsql insert firebird

我在Delphi中使用TSQLQuery执行插入。数据插入完美,但程序显示标题消息错误。有任何想法吗 ?。 这是我的代码:

With DMConnect.qryCrearProyecto do begin
    ParamByName('cliente').AsString := Self.Edit2.Text;
    ParamByName('obra').AsString := Self.Edit3.Text;
    ParamByName('ubicacion').AsString := Self.Edit4.Text;
    ParamByName('nroEstudio').AsInteger := StrToInt(Self.Edit5.Text);
    ParamByName('sondeo').AsInteger := StrToInt(Self.Edit6.Text);
    ParamByName('nivelFreatico').AsFloat := StrToFloat(Self.Edit7.Text);
    Open;
    Close;
  end;

1 个答案:

答案 0 :(得分:5)

我不知道TSQLQuery有多严格,但通常你不应该使用Open方法来SQL语句,它不会返回数据(这就是那个游标)。你应该改为调用ExecSql。