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

ram*_*omd 0 t-sql delphi firebird insert

我在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;
Run Code Online (Sandbox Code Playgroud)

pf1*_*957 5

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