Como asignar un select a un Edit??

[Niiña]

Si. si lo tengo.. Pero no tengo idea de xq el error.. Ah y acabo de probar con lo que acabas de colocar y tambien me da error:

Operation cannot be performed on an active dataset.

[[oscarac]]

seria bueno que colocaras mas codigo no solo la porcion donde tratas de jalar el numero maximo sino lo que continua despues de eso...

quiza lo que estes haciendo despues sea el problema.. porque la instruccion que te han pasado deberia funcionar a la perfeccion

[Niiña]

Código Delphi [-]
  ShowMessage('Ingresando datos');
  transaccion.Active:=false;
  Query.Close;
  Query.SQL.Clear;
  Query.SQL.Add('select max(Tabla1.Idtabla)+1 FROM Tabla1');
  Query.Open;
  Edit1.Text:=IntToStr(Query.Fields[0].AsInteger);
  Query.ParseSQL:=false;
  conexion.ExecuteDirect('INSERT INTO Tabla1 (Idtabla, nombretabla) values ('+Edit1.Text+','+Edit2nombre.Text+')');
  transaccion.Commit;
  ShowMessage('El registro ha sido ingresado.');
  transaccion.Active:=true;

[[oscarac]]

depura y dinos donde es que salta el error

[Niiña]

uhmm.. Bien.. Ya tengo el dato que quiiero. La respuesta de la consulta en el Edit ya se muestra.

Lo del Error es una exception Noc xq pero se da cuando le doy al boton que tengo como registrar..que realiza el codigo que esta arriba.

y el error es: Conexion : PrepareStatement:
Dynamic SQL Error
SQL error code=-104
token unknown -line 1 , column 276

[ecfisa]

Hola Niiña.

No sé con que componentes estés trabajando pero podés hacer todo utilizando sólamente el query:

Código Delphi [-]
  with IBQuery do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT MAX(ID_TABLA)+1 FROM TABLA1');
    Open;
    Edit1.Text:= IntToStr(Query.Fields[0].AsInteger);
    Close;
    SQL.Clear;
    SQL.Add('INSERT INTO TABLA1 (ID_TABLA, NOMBRETABLA) ');
    SQL.Add('VALUES (:ID, :NOMBRE)');
    ParamByName('ID').AsString:= Edit1.Text;
    ParamByName('NOMBRE').AsString:= Edit2nombre.Text;
    ExecSQL;
  end;
  IBTransaction.Commit;

Un saludo.

[Niiña]

Gracias me sirvio mucho su ayudaa.. xD