Форум: "Базы";
Текущий архив: 2003.01.09;
Скачать: [xml.tar.bz2];

Вниз

Ошибка   Найти похожие ветки 

← →
Berg   (2002-12-15 16:48) [0]

При записи в БД необходимо проверить, не встречается ли в запись с таким же значением в конкретном поле (уникальное ключевое), делаю так:
...
Table1.Append;
...
if StrToInt(Memo1.Lines.Strings[0])= Table1.FieldByName("NCom").AsInteger then
ShowMessage("В БД есть под таким номером!")
else // если нет то запись
Table1.FieldByName("NCom").AsInteger:=StrToInt(Memo1.Lines.Strings[0]);
...

Появляется упомянутая ошибка, помогите разобраться, что здесь не так?

---

← →
Reindeer Moss Eater   (2002-12-15 16:52) [1]

if StrToInt(Memo1.Lines.Strings[0])= Table1.FieldByName("NCom").AsInteger then

А почему делается вывод что нет такой записи???

---

← →
Zz_   (2002-12-15 16:52) [2]

Table1.FindKey

---

← →
Reindeer Moss Eater   (2002-12-15 17:01) [3]

>Zz
Исключения нам даны не для того, что бы их обходить, а совсем для другого.

try
Table1.Post;
except
on E:........
begin
MessageDlg();
Table1.Cancel;
end;
end;

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.01.09;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c