Проверка записей в таблице БД Access - БД в Delphi

Slobodchikov_y · 06.03.2012, 19:00

Помогите пожалуйста! На форме Edit и ComboBox! Ввожу данные и они записываются в таблицу БД Access, при это надо чтоб в столбце "Номер телефона" проверялись записи и если запись повторяется то выводится ShowModal "Такой номер присутствует в такойто строке и все записи строки". Нажимаем ОК запись сохраняется не перезаписываться. Просто идет уведомление пользователя!

_SERGEYX_ · 06.03.2012, 22:11

Вар. 1

Код:

if Table1.Locate('Номер телефона',Edit1.text,[]) then //Есть такой номер

Вар. 2

Код:

Query.Close;
Query.SQL.Text:= 'select count(*) from Table where [Номер телефона] = '+Edit1.text;
Query.Open;
if Query.Fields[0].AsInteger > 0 then  //Есть такой номер

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

Slobodchikov_y · 07.03.2012, 01:26

Спасибо, попробую! Если бы я был не начинающий то русских имен не было!

06.03.2012, 19:00	#1
Slobodchikov_y Регистрация: 06.03.2012 Сообщений: 6	Проверка записей в таблице БД Access Помогите пожалуйста! На форме Edit и ComboBox! Ввожу данные и они записываются в таблицу БД Access, при это надо чтоб в столбце "Номер телефона" проверялись записи и если запись повторяется то выводится ShowModal "Такой номер присутствует в такойто строке и все записи строки". Нажимаем ОК запись сохраняется не перезаписываться. Просто идет уведомление пользователя!

06.03.2012, 22:11	#2
_SERGEYX_ Участник клуба Регистрация: 07.07.2007 Сообщений: 1,518	Вар. 1 Код: `if Table1.Locate('Номер телефона',Edit1.text,[]) then //Есть такой номер` Вар. 2 Код: `Query.Close; Query.SQL.Text:= 'select count(*) from Table where [Номер телефона] = '+Edit1.text; Query.Open; if Query.Fields[0].AsInteger > 0 then //Есть такой номер` Не знаю как с русскими именами работать будет. Вообще, когда я вижу русские названия полей, таблиц и т.п. меня бросает в холодный пот...

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Обновление записей в таблице	ua3pno	Microsoft Office Access	4	20.02.2011 19:56
Количество записей в таблице	Марк Охман	БД в Delphi	2	27.09.2010 14:07
Фильтрация записей в таблице	TaTT DoGG	БД в Delphi	49	28.03.2009 19:04
Счетчик записей в таблице	John_chek	Общие вопросы Delphi	2	01.03.2007 11:36

07.03.2012, 01:26	#3
Slobodchikov_y Регистрация: 06.03.2012 Сообщений: 6	Спасибо, попробую! Если бы я был не начинающий то русских имен не было!