en query -- ExcecSQL y Open

[olbeup]

En la primera sentencia que haces, no esta bien por que te traes todos los pacientes y solo te compara uno, de los xx que te trae.

Querypac.Close;
querypac.SQL.Clear;
Querypac.Sql.Text := 'Select * From pacientes';
Querypac.Open;
if ((Querypac.FieldValues['nombre']= edit3.Text)) then //edit 3 es donde pongo el nombre del paciente
begin
showmessage('El usuario ya existe');
exit;
end
end;

Lo correcto seria:

Código Delphi [-]
Querypac.Close;
querypac.SQL.Clear;
Querypac.Sql.Text := 'Select count(*) AS Existe From pacientes where nombre = ' + QuotedStr(edit3.Text);
Querypac.Open;
if (Querypac.FieldValues['Existe'] > 0) then // Si el valor devuelto es mayor que 0 (cero) el paciente ya existe
   begin
   showmessage('El usuario ya existe');
   exit;
   end
  end;

Un saludo.

[afunez2007]

Hola Amigo

Solo hacerte un par de comentarios:

1.- Siempre que vas a utilizar una query debes desactivarla antes de cambiarle el sql text, en vez de utilizar open / close, a mi en lo particular me da mejores resultados:

Código Delphi [-]
Querypac.Active:=False;
Querypac.SQL.Clear; 
Querypac.Sql.Text := 'Select * From pacientes where nombre ='+QuotedStr(edit3.Text);
Querypac.Active:=True;
  if Querypac.RecordCount>0 then
   begin
     showmessage('El paciente ya existe');
     exit;
  end;

2.- Por una practica sana si utilizas una query para checar la existencia del cliente, utiliza otra para hacer el insert

Código Delphi [-]
QueryPac2.Sql.Clear;
QueryPac2.SQL.Text:='Insert into pacientes(nombre,edad)  values('
                    +QuotedStr(edit71.Text)+','+QuotedStr(edit72.Text)+')';
QueryPac2.ExecSQL;
showmessage('El paciente se agregó correctamente');

Espero te sirvan este par de comentarios y como veras he cambiado un poco el texto en ambas querys, yo utilizo este tipo de cosas rutinariamente y con esto no me falla

Saludos

[radenf]

Estimado marareta :

Otro comentario.
Yo también programo aplicaciones para uso con pacientes y es sorprendente la cantidad de pacientes que tienen el mismo nombre. Si utilizas este criterio para incluir nuevos registros en tu base de datos probablemente tendrás problemas.
A mi me ha resultado de mayor utilidad utilizar un número único de identificación, que puede ser el Nº de la ficha del paciente o su RUT, NIF o como se llame en tu país.

Saludos y ojalá este comentario te sirva

[Casimiro Noteví]

Totalmente de acuerdo con radenf, usa el DNI o algún identificador único, porque como uses nombres... ya veo extirpándole el apéndice al que fue a curarse una picadura de mosquito, y amputarle el pié al que fue por una gripe