Recoger valor campo autonumerico

[mamsantos]

Hola.
Me temo, Jonnhy Q, que ese código no me vale, ya que después del nombre del dbQuery lo que tengo que poner es alguna de las funciones que tiene asociado ese componente. He estado mirando todas las que trae, pero no consigo obtener ese dichoso valor.
Gracias y saludos.

[marcoszorrilla]

edit1.text := NombreQueryNombreCampo.Value;

Lo que te dice Johnny Q, funcionará con campos persistentes, es decir si has hecho doble clic en el componente Tquery y luego añadido los campos al editor.

Sino como solamente vas a obtener un campo:

Código Delphi [-]
 edit1.text := NombreQuery.Fields[0].AsString;
 

Un Saludo.

[Johnny Q]

No entiendo porque dices que tienes que poner algunas de las funciones asociadas al Query.

Si yo creo un Query que hace referencia a la tabla Proveedores y a sus campos Codigo y Nombre, por citar un ejemplo entonces lo que hago es invocar el campo directamente.

Cuando se activa autocompletar de código que trae delphi, si yo quiero invocar el campo Codigo del query Proveedores me debe mostrar en algun momento:

qryProveedorCodigo

y el resto ya depende de lo que se necesite. No se si en Kylix funcione muy diferente a Win32, pero no creo.

Saludos....

[[maeyanes]]

Pero eso solo es cuando creas campos persistentes, tal y como comenta mi tocayo zorrilla. De otra forma se usaría:

Código Delphi [-]
Edit1.Text := NombreQuery.FieldByName('NombreCampo').AsString; // o .Value

O si el campo requerido en el query es solo uno, se puede usar la forma usada por marcoszorrilla.


Saludos...

[mamsantos]

Hola.
Muchas gracias a todos, por vuestra ayuda.
Al final es como dice marcoszorrilla. Aunque me ha seguido dando dolores de cabeza. No se porque aun haciendolo así

  edit1.text := NombreQuery.Fields[0].AsString;

me daba un error de que me salía fuera de los límites de la lista, es decir, que el campo[0] no existia, hasta que se me hincharon y al final borre el query y lo volvi a hacer, con lo cual el fallo debía estar ahí.
De nuevo gracias a todos y saludos.