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


// 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í:
select Area, Pais from Area
where
Area=:ParametroArea and
Pais=:ParametroPais
// 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