Como asignar un select a un Edit??

[Niiña]

Hola Estoy realizando una aplicación que muestra en un formulario las consultas que le realizo a la base de datos.. Por los momentos he podido realizar insert, pero no se como realizar los select y asignarselos a un Edit o label.. Alguien por favor podría darme la sintaxis..

[[oscarac]]

mmmmm
la verdad no te he entendido muy bien
podrias dar un poco mas de detalles?

en el edit quieres la cadena?
en el edit quiers el resultado de la consulta?

[Casimiro Notevi]

Tampoco estaría mal que dijeras de qué base de datos se trata

[[oscarac]]

digamos que lo que quieres es asignarle a un edit el valor de un campo de la consulta resultante, entonces lo asignarias mas o menos asi

Código Delphi [-]
 
Edit1.text := query.fieldbyname('Campo').value

aunque lo mas conveniente es usar DBEDITS, los cuales asumen el valor del campo en forma automatica, porque estan asociados a traves de un datasource

esperamos tus comentarios

[Niiña]

Esto es lo que quiero hacer.. Una consulta que muestre el max numero de la tabla y le sumo uno para agregarlo a la base de datos como id.

Código Delphi [-]
Query.SQL.Clear;
Query.SQL.Add('select max(Tabla1.idtabla)+1 FROM Tabla1');
Query.Open;
Edit1.Text:=(Query.FieldByName('Idtabla').AsString);

[[oscarac]]

Código Delphi [-]
query1.Close;
query1.SQL.Clear;
query1.SQL.Add('Select Max(idTabla)+1 From Tabla1');
query1.Open;
Edit1.Text := IntToStr(query1.Fields[0].AsInteger);

y si lo pruebas asi?

[Niiña]

Bueno necesito el resultado de la consulta en un Edit y en un Label.

No con un BDEdit no lo puedo hacer xq los campos después no los puedo modificar.. Si existe como modificar los datos todavía no lo se. La bd que uso esta en Firebird. Lo que tengo, lo pruebo pero me da error.. Modifique colocandole el .value y me da este error:

Query: Field not found: "idtabla".

No se si estoy haciendo algoo malo o falta algun detalle....

[[oscarac]]

pues... tienes un campo llamado idtabla en tu tabla?
si no lo tienes, es por eso que se genera el error

[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