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]

[agustin173]

Código 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;

[agustin173]

revisa el ultimo que te envie ecfisa

[ecfisa]

Hola Agustin.

Probá de este modo:

Código Delphi [-]
  Temp.Close;
  Temp.SQL.Clear;
  Temp.SQL.Text:= 'SELECT CODIGO,FECHA,PAIS FROM PAIS ';
  if EdCodBuscar.Text <> '' then
   Temp.SQL.Add('WHERE CODIGO = ' + QuotedStr(EdCodBuscar.Text))
  else if EdPaisBuscar.Text <> '' then
   Temp.SQL.Add('WHERE PAIS = ' + QuotedStr(EdPaisBuscar.Text));
  Temp.Open;
  if not Temp.IsEmpty then
  begin
    EdCodBuscar.text:= Temp.Fields[0].AsString;
    EdFechaBuscar.Text:= Temp.Fields[1].AsString;
    EDPaisBuscar.Text:= Temp.Fields[2].AsString;
  end
  else
    ShowMessage('Registro no encontrado');

Saludos.

[agustin173]

ecfisa mi hermano funciono perfectamente bien gracias

pero una pregunta mas como uso el "like" eso se utiliza para completa las palabras en la busqueda verdad o no

Ejemplo yo tengo un nombre por decir Agustin en la base dato
si pongo agu me lo busca asi es como funciona o si no podrias explicarmercalo por favor

[ecfisa]

Hola Agustin.

El operador LIKE tiene dos comodines: _ y %
_ : En el lugar va cualquier caracter
%: Ningún o más caracteres.


Para realizar una busqueda incremental usando LIKE poné un (IBQuery,Query o ADOQuery) un TEdit y
este código en su evento OnChange:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  with IBQuery1 do
  begin
    Close;
    SQL.Text:= 'SELECT * FROM tu_tabla WHERE nombre LIKE  '+
                      QuotedStr(Edit1.Text+'%')+' ORDER BY nombre';
    Open;
  end;
end;

Saludos.

[agustin173]

muchas gracias hermano por tu explicacion