Funcion?

[Neftali [Germán.Estévez]]

Empezado por borlandpablo

Es un TComboBox, lo rhice con un Query, y en el evento OnShow del formulario hice un while. Mi intención era recuperar el ID con una sentencia SQL, pero no sé como meterlo en una variable entera. Creo recordar, que también se podía averiguar con una función, no sé si con un TComboBox o un DBComboBox. Gracias por la respuesta.

Pues entonces ya has hecho lo más complejo.
Si ya has hecho una sentencia SQL para recuperar todos los nombres, debes hacer una similar para recuperar el ID o el código.

Habrás hecho algo similar a esto:

Código SQL [-]
  Select * from Tabla

o

Código SQL [-]
Select NOMBRE FROM TABLA

Una vez que seleccionen un nombre en el ComboBox, para obtener el ID o el Código deberás hacer una similar a esta:

Código SQL [-]
SELECT CODIGO,ID >from TABLA where Nombre = [Nombre]

Eso en Delphi será algo así:

Código Delphi [-]
var
  StrSQL, Str:String;
begin

  ...
  Str := ComboxBox.Text;
  // o Este
  Str := ComboBox.Items[ComboBox.ItemIndex];
  // en Str está el nombre
  StrSQl := 'SELECT CODIGO,ID FROM TABLA WHERE NOMBRE =' + QuotedStr(Str);
  // el valor nombre debe ir entre comillas, por eso usamos QuotedStr
  ...

  // Si lanzas la consulta con el componente query1, para recuperar los valores sería...
  cod := query1.FieldByName('Codigo').AsInteger;
  ID := query1.FieldByName('Codigo').AsString;

  ...