Determina si existe un registro

[agustin173]

hola nuevamente

tengo un problema para saber si existe un registro me explico mejor

Estoy usando delphi 7
una tabla llamada = Area
un edit llamado = EDArea
un combobox llamado = CBPaisBuscar
Adoquery llamado = Temp

Código Delphi [-]
// Determina si Existe un Registro en la Base de Datos
 with Temp do
  begin
    Temp.close;
    Temp.sql.Clear;
    Temp.sql.Add('select Area,Pais from Area');
    Temp.sql.Add('where Area = '+QuotedStr(EDAreaBuscar.Text));
    Temp.open
  end;
   if not Temp.IsEmpty then
     raise exception.Create('Registro Existe');
 end;

Lo que yo deseo es que si el registro del Area y Pais son igual al de la base de dato me diga registro existe.

[[duilioisola]]

Solo debes agregar "and pais = "LoQueDigaElCombo"
El SQL quedaría así:

Código SQL [-]
select Area, Pais from Area
where 
Area=:ParametroArea and
Pais=:ParametroPais

Código Delphi [-]
// Determina si Existe un Registro en la Base de Datos
 with Temp do
  begin
    Temp.close;
    Temp.sql.Clear;
    Temp.sql.Add('select Area,Pais from Area');
    Temp.sql.Add('where Area = '+QuotedStr(EDAreaBuscar.Text));
    Temp.sql.Add('and pais = '+QuotedStr(CBPaisBuscarText));
    Temp.open
  end;
   if not Temp.IsEmpty then
     raise exception.Create('Registro Existe');
 end;

[agustin173]

muchas gracias duioisola me sirvio de mucho se resolvio el problema muchas gracias

Te lo agradesco