Inserción masiva condicionada

[[duilioisola]]

Igual que en un SELECT...

No conozco BCB pero supongo que hay algo así como FieldByName().

Query->Close();
Query->SQL->Text = "EXECUTE PROCEDURE Act_Libro (:Registro, :Titulo, :Autor, :Genero, :Situacion)";
Query->ParamByName("Titulo")->AsString       = Titulo_libro->Text;
Query->ParamByName("Autor")->AsString        = Autor->Text;
Query->ParamByName("Genero")->AsString       = Genero_libro->Text;
Query->ParamByName("Situacion")->AsString    = Situacion_libro->Text;
Query->ParamByName("Registro")->AsInteger = this->Tag;
Query->ExecSQL();

RegistroCreado = Query->FieldByName("newrec")->AsInteger;

Query->Transaction->Commit();

[Casimiro Notevi]

Creo que algo así:

Código Delphi [-]
int newrec = Query->Params->ParamByName("newrec")->AsSmallInt;

EDITO: No había visto el mensaje de [duilioisola].

[Angel.Matilla]

Gracias a los dos. Lo probaré y os digo como va.

[Angel.Matilla]

Pues no: tanto con FieldByName como con ParamByName da error. Con FieldByName me dice Query; Field 'NewRec, not found, y con ParamByName en vez de Field dice que lo no encontrado es el parámetro. He probado a ejecutarlo desde SQL Manager y se ejecuta bien y devuelve un valor coherente, pero no veo como recuperarlo para la aplicación.

[Angel.Matilla]

Aclarado y solucionado el problema. Lo estaba intentando ejecutar desde un TIBQuery y lo suyo es un TIBStoredProc.