registro no existe y consultarlos

[agustin173]

hola muchachos espero que esten bien

Tengo un problema es con una consulta por dos campos especificos me Explico mejor

Estoy usando delphi 7
una tabla llamada = Pais
un adoquery llamado = Temp
dos campos llamados = codigo(Numerico) y pais(Alfanumerico)
en la tabla los declare el codigo como "int" y el pais como Varchar(25)

Cuando busco el codigo me lo consulta bien sin problema y si no existe el registro me lo dice hasta ahi bien.

Pero cuando trato de consultarlo por el pais me da un error

el codigo es el siguiente:

Código Delphi [-]
if edcodbuscar.Text <> '' then
   begin
    Temp.SQL.Add(' where codigo = '+EdCodBuscar.Text);
    Temp.Active := True;
     If Temp.Fields[0].AsString <> edcodbuscar.Text then    begin
     Showmessage(' Registro No Existe ');
     end
     else
    EdCodBuscar.text:= Temp.Fields[0].AsString;
    EDfechaBuscar.text:= Temp.Fields[1].AsString;
    EDPaisBuscar.Text:= Temp.Fields[2].AsString;
  end

este codigo consulta bien por el campo codigo, pero no se como hacerlo para que me consulte por los campos tanto por codigo como por pais y si no existen ninguno de los dos me mande el letro que me diga registro no existe, ayudenme por favor.

[ecfisa]

Hola Agustin.

¿ Cuál es el error que te dá ?


Aunque mirando por arriba, la sentencia:

Temp.SQL.Add(' where codigo = '+EdCodBuscar.Text);

está incompleta, debería ser:

Código Delphi [-]
   Temp.Close;
   Temp.SQL.Clear;
   Temp.SQL.Add('SELECT lo_que_sea FROM tu_tabla WHERE codigo = '+QuotedStr(EdCodBuscar.Text);
   Temp.Open;

Saludos.

[agustin173]

como estas ecfisa

el error es el siguiente

Project synapse.exe raised exception class eiolecption with message ' incorrect syntax near 'dominicana' process stopped. use step or run to continue.

el codigo completo es este:

[delphi]
//Busca Registros en la Base de Dato por Codigo y Pais
Temp.close;
Temp.SQL.Text := 'Select codigo, fecha, Pais From Pais ';
if edcodbuscar.Text <> '' then
begin
Temp.SQL.Add(' where codigo = '+EdCodBuscar.Text);
Temp.Active := True;
If Temp.Fields[0].AsString <> edcodbuscar.Text then begin
Showmessage(' Registro No Existe ');
end
else
EdCodBuscar.text:= Temp.Fields[0].AsString;
EDfechaBuscar.text:= Temp.Fields[1].AsString;
EDPaisBuscar.Text:= Temp.Fields[2].AsString;
end
else
if EDPaisbuscar.Text <> '' then
begin
Temp.SQL.Add(' where Pais = '+EDPaisBuscar.Text);
Temp.Active := True;
if Temp.RecordCount= 0 Then ShowMessage('Registro No Existe');
EdCodBuscar.Text:= Temp.Fields[0].AsString;
EdFechaBuscar.Text:= Temp.Fields[1].AsString;
EDPaisBuscar.Text:= Temp.Fields[2].AsString;
[\delphi]
me falto poner algo del codigo, si tu crees que hay un metodo mas facil ayudame por favor.

[agustin173]

si la puse completa ahora mirala

[agustin173]

[delphi]
//Busca Registros en la Base de Dato por Codigo y Pais
Temp.close;
Temp.SQL.Text := 'Select codigo, fecha, Pais From Pais ';
if edcodbuscar.Text <> '' then
begin
Temp.SQL.Add(' where codigo = '+EdCodBuscar.Text);
Temp.Active := True;
If Temp.Fields[0].AsString <> edcodbuscar.Text then begin
Showmessage(' Registro No Existe ');
end
else
EdCodBuscar.text:= Temp.Fields[0].AsString;
EDfechaBuscar.text:= Temp.Fields[1].AsString;
EDPaisBuscar.Text:= Temp.Fields[2].AsString;
end
else
if EDPaisbuscar.Text <> '' then
begin
Temp.SQL.Add(' where Pais = '+EDPaisBuscar.Text);
Temp.Active := True;
if Temp.RecordCount= 0 Then ShowMessage('Registro No Existe');
EdCodBuscar.Text:= Temp.Fields[0].AsString;
EdFechaBuscar.Text:= Temp.Fields[1].AsString;
EDPaisBuscar.Text:= Temp.Fields[2].AsString;
[delphi]

[agustin173]

[delphi]
//Busca Registros en la Base de Dato por Codigo y Pais
Temp.close;
Temp.SQL.Text := 'Select codigo, fecha, Pais From Pais ';
if edcodbuscar.Text <> '' then
begin
Temp.SQL.Add(' where codigo = '+EdCodBuscar.Text);
Temp.Active := True;
If Temp.Fields[0].AsString <> edcodbuscar.Text then begin
Showmessage(' Registro No Existe ');
end
else
EdCodBuscar.text:= Temp.Fields[0].AsString;
EDfechaBuscar.text:= Temp.Fields[1].AsString;
EDPaisBuscar.Text:= Temp.Fields[2].AsString;
end
else
if EDPaisbuscar.Text <> '' then
begin
Temp.SQL.Add(' where Pais = '+EDPaisBuscar.Text);
Temp.Active := True;
if Temp.RecordCount= 0 Then ShowMessage('Registro No Existe');
EdCodBuscar.Text:= Temp.Fields[0].AsString;
EdFechaBuscar.Text:= Temp.Fields[1].AsString;
EDPaisBuscar.Text:= Temp.Fields[2].AsString;
[\delphi]