обработка ошибок в базе данных

← →
intel © (2005-10-08 06:54) [0]

Помогите пожилуйста. у меня в базе данных есть 2 поля,которые не должны повторяться, в базе я сделал их клычевыми.Мне надо сделать так, чтобы при вводе повторяющихся значений программа не вылетала, а будавала сообщение.

← →
Anatoly Podgoretsky © (2005-10-08 13:05) [1]

Это невозможно, в таблице может быть только один первичный ключ

← →
intel © (2005-10-08 17:02) [2]

нет мне надо чтобы программа не добавляла эти данные в базу, а бывела сообщение(не завершая работу программы)

← →
Германн © (2005-10-09 02:40) [3]

А как ты их добавляешь?
В процедуре добавления проверяй ошибки и реагируй соответственно. Сообщай юзеру об ошибке и отменяй запись в базу.

← →
intel © (2005-10-09 08:23) [4]

я добавляю в базу с помощю процедуры Table1.InsertRecord
я не знаю как проверять охибки

← →
Anatoly Podgoretsky © (2005-10-09 13:34) [5]

Сделай сначала первичный ключ (ОДИН)

← →
intel © (2005-10-09 19:17) [6]

я сделал один первичный ключ, как теперь мне проверять его правильность?

← →
Fay © (2005-10-09 19:20) [7]

2 Anatoly Podgoretsky © (09.10.05 13:34) [5]
Мне почему-то кажется, что речь идёт о естественном ключе из двух полей...

P.S.
...об ОДНОМ 8)

← →
Anatoly Podgoretsky © (2005-10-09 19:20) [8]

В блоке try except

← →
Anatoly Podgoretsky © (2005-10-09 19:21) [9]

Fay © (09.10.05 19:20) [7]
А я по твоему про что?

← →
Fay © (2005-10-09 20:09) [10]

2 Anatoly Podgoretsky © (09.10.05 19:21) [9]
Дык, по всему выходит, что автор уже позаботился о создании такого крюча, презрев тот очевидный факт, что "Это невозможно"

← →
intel © (2005-10-09 20:38) [11]

я в базе через DataBase Desktop поставил 2 звездочки около нужных строк в поле "key"

← →
Германн © (2005-10-10 02:47) [12]

Ты всё сделал правильно.
Только не сказал, какой движок баз данных ты используешь :(
Имхо, это - Парадокс.
Тогда смотри [8]

← →
intel © (2005-10-10 06:23) [13]

я написал вот так, но что у меня не правильно?
try
FORM2.Table1.InsertRecord([Edit8.text,
Edit9.text,
a,//Edit7.text,
form2.ComboBox1.text,
form2.ComboBox2.text,// Edit11.text,
Edit2.text,
form2.ComboBox3.text,
Edit3.text,
Edit4.text,
form2.ComboBox4.text,//Edit13.text,
Edit5.text,
form2.Memo1.Lines,
form2.ComboBox3.text,
b]);

except EDatabaseError do
showmessage("bla bla bla")

← →
syte_ser78 © (2005-10-10 17:05) [14]

Только не нужно говорить что в этом виноват Архангельский

← →
msguns © (2005-10-10 17:41) [15]

>syte_ser78 © (10.10.05 17:05) [14]
>Только не нужно говорить что в этом виноват Архангельский

Я думаю, что, возможно, Фаронов. Именно у него во всех примерах нет ни одной проверки на корректность данных в эдитах !
Кроме того, нет даже упоминания о предваряющем поиске в таблице записей с добавляемыми ключами (индексами). Видимо, подразумевается, что Ttable (компонент, которому посвящено больше всего места в книге по работе с БД в Дельфи) сам все сделает как надо ;))

← →
intel © (2005-10-10 18:08) [16]

а причем тут Фаронов и Архангельский?
Объясните мне пожалуйста как мне проверить наличие ошибки.

← →
icWasya © (2005-10-10 18:21) [17]

ну если по синтаксису то
try
FORM2.Table1.InsertRecord([Edit8.text,
Edit9.text,
a,//Edit7.text,
form2.ComboBox1.text,
form2.ComboBox2.text,// Edit11.text,
Edit2.text,
form2.ComboBox3.text,
Edit3.text,
Edit4.text,
form2.ComboBox4.text,//Edit13.text,
Edit5.text,
form2.Memo1.Lines,
form2.ComboBox3.text,
b]);

except on E:EDatabaseError do
showmessage("bla bla bla")
end;

Не знаю кто, но использовать InsertRecord как то не кошерно. А обрабатывать все равно в try except

> Не знаю кто, но использовать InsertRecord как то не кошерно.

я просто при добавлении записей в БД не хотел мучиться с BDEditами

Удалено модератором
Примечание: Создание пустых сообщений

У TDataSet (деда TTable) есть события, одно из которых называется BeforeInsert. В обработчике его надо послать запрос, ищущий в таблице записи с введенными юзером ключами:

Что-то типа

result := true;
With TQuery.Create(nil) do
try
DataBase := Table1.DataBase;
SQL.Text := "SELECT * FROM "+Table1.TableName+" WHERE ("+Table1.Fields[0].FieldName+"=:par1) AND ("+Table1.Fields[1].FieldName+"=:par2)";
ParamByName("par1").AsString=Edit1.Text; // Ключ- поле1
ParamByName("par1").AsString=Edit2.Text; // Ключ- поле2
Open;
if RecordCount=0 then result := false;
Close;
finally
Free;
end;

Хотя у тебя есть уже 2 глобальные ошибки:
1. Использование в качестве праймари нативных объектов
2. Использование TTable

Блин, поправка:

Вместо result использовать переменную типа бул
В конце после with..end добавить:

if <bool-переменная> then
begin
ShowMessage("Уже есть в БД");
abort;
end;

Кстати, такой обработчик не убережет тебя от граблей в многопользовательскои режиме.

>Anatoly Podgoretsky © (23.10.05 19:59) [24]
>Это хорошо для однопользовалького варианта и неверно для многооднопользовалького

А перечитать концовку [23] ?

обработка ошибок в базе данных Найти похожие ветки