Problema al mostrar un registro en un label

[rufo]

Gracias amigos ya me quedo mi código tome el que me dijo el amigo aposi y me funciono y de nuevo gracias.

[[nlsgarcia]]

rufo,

Empezado por ecfisa

...Siempre que sea posible usa parámetros (Evita la inyección SQL)...

Empezado por rufo

...ya me quedo mi código tome el que me dijo el amigo aposi...

Te sugiero considerar las recomendaciones dadas en el Msg #4, combinado todo lo anterior con algunas variaciones:

Código Delphi [-]
procedure TPrincipal2.ComboBox7Change(Sender: TObject);
begin
   with dm1.Q_CFacturas do
   begin
      Close;
      SQL.Clear;
      SQL.Add('Select ID_Cuenta, NumeroCta From CFacturas');
      SQL.Add('Where Cuenta = :P1');
      ParamByName('P1').AsString := ComboBox7.Items[ComboBox7.ItemIndex];
      Open;
      if Recordcount <> 0 then
      begin
         V_idcuenta := FieldByname('ID_Cuenta').AsInteger
         Label114.Caption := FieldByname('NumeroCta').AsString;
      end;
   end;
end;

Espero sea útil

Nelson.

[ecfisa]

Hola.

Voy a hacer una fe de errata del mensaje #4, producto de que escribi el código diréctamente sobre el mensaje.

Donde dice:

Código Delphi [-]
 label114.Caption := FieldByName('CTA').AsString;

debería decir:

Código Delphi [-]
 label114.Caption := FieldByName('ID_CUENTA').AsString;

Repetí el nombre de parámetro al referenciar la columna.

Saludos