Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Проверить, есть ли значение в таблице

01.01.2007
If Exists (Select * From MyTable Where Field1=1)
 
Begin
     
Update MyTable
     
Set Field2=666
     
Where Field1=1
 
End
Else
 
Begin
     
Insert into MyTable (Field1, Field2)
     
Values (1, 666)
 
End
Соответственно отсутствие значения проверяется:

If not Exists (Select * From MyTable Where Field1=1)
 
Begin
     
Insert into MyTable (Field1, Field2)
     
Values (1, 666)
 
End
Else
 
Begin
     
Update MyTable
     
Set Field2=666
     
Where Field1=1
 
End

Автор: Vit