Ver Mensaje Individual
  #18  
Antiguo 04-01-2020
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.043
Reputación: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Tengo una tabla tbDebug con los campos id, texto. El primero se autoincrementa mediante un generador y su correspondiente trigger. El segundo es un campo de texto.

En un proyecto he añadido un IBsql de los componentes IBX y el código:
Código SQL [-]
'insert into tbDebug (texto) values (:text) returning id';

He añadido un botón para ejecutarlo y, como puedes ver en el video enlazado, retorna el ID creado, como era de esperar.
Si no funciona con los componentes que estás usando, será problema de esos componentes.
Enlace a video captura.

El código es tan simple como:
Código Delphi [-]
  ibsql2.Close;
  ibsql2.SQL.Text := 'insert into tbdebug (texto) values (:text) returning id';
  ibsql2.Params[0].AsString := ed2.Text;
  ibsql2.ExecQuery;
  ed1.Text := ibsql2.Fields[0].AsString;
Responder Con Cita