rufo,
Cita:
Empezado por ecfisa
...Siempre que sea posible usa parámetros (Evita la inyección SQL)...
|
Cita:
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.