|
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.
|