Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/9: Рейтинг темы: голосов - 9, средняя оценка - 5.00
LuckyFromRussia
1 / 1 / 1
Регистрация: 04.12.2010
Сообщений: 25
1

sql запрос на удаление

07.02.2012, 18:42. Просмотров 1654. Ответов 2
Метки нет (Все метки)

Сижу уже пол дня,и не могу найти ошибку-при попытке удалить запись из таблицы выскакивает ошибка, что поле с таким именем не найдено(


procedure Tform_diagnozy.Button1Click(Sender: TObject);
begin
//проверим - есть ли текст в едит. Если нет, выходим:
if Edit1.Text = '' then begin
ShowMessage('Введите данные!');
Edit1.SetFocus;
Exit;
end;

dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('INSERT INTO diagnozy (nazvanie_diagnoza) VALUES (:field)');
dm.table_diagnozy.Parameters[0].Value:=Edit1.Text;
dm.table_diagnozy.ExecSQL;
Edit1.Clear;
//обновление отображаемых данных в dbgride
dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('SELECT nazvanie_diagnoza FROM diagnozy ');
dm.table_diagnozy.Active:=True;

end;

procedure Tform_diagnozy.Button2Click(Sender: TObject);
begin
//удаление записи
dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('DELETE FROM diagnozy WHERE nazvanie_diagnoza=:field') ;
dm.table_diagnozy.Parameters.ParamByName('field').Value:=dbgrid1.DataSource.DataSet.FieldByName('nazvanie_diagnoza').Val ue;
dm.table_diagnozy.ExecSQL;
//обновление отображаемых данных в dbgride
dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('SELECT nazvanie_diagnoza FROM diagnozy ');
dm.table_diagnozy.Active:=True;
end;

procedure Tform_diagnozy.formActivate(Sender: TObject);
begin
dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('SELECT nazvanie_diagnoza FROM diagnozy ');
dm.table_diagnozy.Active:=True;

end;

end.
0
Миниатюры
sql запрос на удаление  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.02.2012, 18:42
Ответы с готовыми решениями:

Sql запрос на удаление
Добрый день форумчане Можно ли как нибудь реализовать запрос на удаление всех...

SQL запрос на удаление
Есть вот такая схема Как удалить организацию и все что было с ней связано по...

Sql-запрос на удаление
Здравствуйте. Столкнулся с такой проблемой. Написал запрос на удаление. Ошибок...

sql Запрос (удаление предмета из таблицы)
Тема: электронный преподаватель. Есть таблицы Предмет, Тема, Вопрос. Они...

Составить SQL-запрос на удаление данных
Доброго времени суток. Прошу помощи в составлении sql-запросов. На добавление я...

2
Укрпошта
10 / 12 / 1
Регистрация: 07.02.2012
Сообщений: 25
07.02.2012, 20:15 2
Используй два разных компонента dm.table_diagnozy чтобы вставить и вибрать с таблицы.

//обновление отображаемых данных в dbgride
dm.table_diagnozy.Active:=false;
dm.table_diagnozy.SQL.Clear;
dm.table_diagnozy.SQL.Add('SELECT nazvanie_diagnoza FROM diagnozy ');
dm.table_diagnozy.Active:=True;


dm.table_diagnozy2.SQL.Clear;
dm.table_diagnozy2.SQL.Add('DELETE FROM diagnozy WHERE nazvanie_diagnoza=:field') ;
dm.table_diagnozy2.Parameters.ParamByName('field').Value:=dm.table_diagnozy.FieldByName('nazvanie_diagnoza').Value;
dm.table_diagnozy2.ExecSQL;
0
LuckyFromRussia
1 / 1 / 1
Регистрация: 04.12.2010
Сообщений: 25
07.02.2012, 20:24  [ТС] 3
Да,помогло))) Спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.02.2012, 20:24

Удаление записи через sql-запрос. Ошибка list index out of bounds (0)
Доброго времени суток, форумчане. Нужна ваша помощь, а именно: после написания...

SQL запрос по фрагменту строки сохраненной в таблице SQL
Прошу помощи. Есть SQL таблица-1, в ней есть столбец по имени Model_Vagona с...

SQL запрос, работающий в MS SQL Menegment'e не работает в делфи
Требуется выполнить запрос по нажатию кнопки, запрос сначала написал в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru