hola a todos tengo un problema con una consulta, me canso de revisarla y no he podido encontra donde radica el problema, ella se ejecuta bien pero esta condicionada y ahi es donde radica el problem,
tengo que insertar una información de un formulario, pero antes chequeo si la informacion que estoy introduciendo no está y ahi es donde radica el problema en esas condiciones les muestro el codigo
Código Delphi
[-]var servicios:string;
begin
if suiEdit5.Text<>'' then
begin
With Datamodule5.ADOQuery1 do
Begin
Close;
SQL.Clear;
SQL.Add('Select tservicios from servicios where tservicios = '+ QuotedStr(suiEdit5.text));
open;
servicios:=FieldByName('tservicios').asString;
end;
if servicios=suiEdit5.Text then
ShowMessage('Ese servicios ya EXISTE, por favor revise')
else
begin
With Datamodule5.ADOQuery1 do
Begin
Close;
SQL.Clear;
Sql.Add('Insert Into servicios(tservicios)');
SQL.Add('values ('+QuotedStr(suiEdit5.text)+')');
ExecSQL;
end;
With Datamodule5.ADOQuery2 do
Begin
Close;
SQL.Clear;
Sql.Add('Select * from servicios');
Open;
end;
suiEdit5.Clear;
end;
end
else
ShowMessage('Debe llenar el campo del tipo de servicios');
Espero que me ayuden