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();