Форум программистов, компьютерный форум, киберфорум
Delphi: Базы данных
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
3 / 3 / 0
Регистрация: 01.11.2012
Сообщений: 803

Редактирование данных

13.11.2013, 11:29. Показов 1038. Ответов 12
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
SQLConnection1, SimpleDataSet.

Как сделать редактирование выбранного мне поля через Edit. Использую Mysql , как сделать это с помощью запроса UPDATE SET ? или если есть другие варианты, то прошу Вашей помощи.

Добавлено через 18 часов 14 минут
Что, никто не подкинет пример как заменить выделенную строку в DBGrid ? все данные находятся в Edit-ах
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.11.2013, 11:29
Ответы с готовыми решениями:

База данных Access, Редактирование данных
Здрасте всем.. Обращаюсь за помошью с такой проблемой... Преподаватель поставил задачу: Открыть базу данных Access и цифровые данные в...

База данных, редактирование данных из DbGrid-а
Создаю базу: IBDataBase (собстве база) IBTransaction.DefaultDataBase := IBDataBase; IBQuery.DataBase := IBDataBase; ...

Редактирование данных в БД
Дело вот в чем 1)Из БД информация грузится в DBEdit это нормально Пользователь может данные изменить Как из DBEdit измененные,...

12
Модератор
 Аватар для FIL
3492 / 2614 / 742
Регистрация: 19.09.2012
Сообщений: 7,977
13.11.2013, 11:33
Цитата Сообщение от Bookkc1 Посмотреть сообщение
Как сделать редактирование выбранного мне поля
Прочитать справку по UPDATE.
0
 Аватар для Waddonator
969 / 644 / 97
Регистрация: 01.11.2012
Сообщений: 1,447
13.11.2013, 11:36
Delphi
1
2
3
4
5
ADOQuery1.SQL.Text:='UPDATE table_name SET Field1=:P1, Field2=:P2 WHERE KeyField=:P3';
ADOQuery1.Parameters.ParamByName('P1').Value=Edit1.Text;
ADOQuery1.Parameters.ParamByName('P2').Value=Edit2.Text;
ADOQuery1.Parameters.ParamByName('P3').Value=KeyValue;
ADOQuery1.ExecSql;
0
3 / 3 / 0
Регистрация: 01.11.2012
Сообщений: 803
13.11.2013, 11:56  [ТС]
Цитата Сообщение от Waddonator Посмотреть сообщение
Delphi
1
2
3
4
5
ADOQuery1.SQL.Text:='UPDATE table_name SET Field1=:P1, Field2=:P2 WHERE KeyField=:P3';
ADOQuery1.Parameters.ParamByName('P1').Value=Edit1.Text;
ADOQuery1.Parameters.ParamByName('P2').Value=Edit2.Text;
ADOQuery1.Parameters.ParamByName('P3').Value=KeyValue;
ADOQuery1.ExecSql;
Делаю так

SQLQuery1.SQL.Text :='UPDATE clients_data SET Field1=:'+edit9.Text+' WHERE KeyField=:P3';

Ничего не происходит :-(
0
 Аватар для Waddonator
969 / 644 / 97
Регистрация: 01.11.2012
Сообщений: 1,447
13.11.2013, 12:01
Цитата Сообщение от Bookkc1 Посмотреть сообщение
Делаю так
Ничего не происходит
Если Вы пытаетесь засунуть строковую величину в сам текст SQL, то заключайте ее в кавычки. И уберите перед ней двоеточие. Оно нужно только для параметров.
0
3 / 3 / 0
Регистрация: 01.11.2012
Сообщений: 803
13.11.2013, 12:03  [ТС]
Цитата Сообщение от Waddonator Посмотреть сообщение
Если Вы пытаетесь засунуть строковую величину в сам текст SQL, то заключайте ее в кавычки. И уберите перед ней двоеточие. Оно нужно только для параметров.
а что такое WHERE KeyField=:P3'; ?
0
 Аватар для Waddonator
969 / 644 / 97
Регистрация: 01.11.2012
Сообщений: 1,447
13.11.2013, 12:05
Цитата Сообщение от Bookkc1 Посмотреть сообщение
что такое WHERE KeyField=:P3'
KeyField - ключевое поле в таблице, P3 - параметр, который и определяет, какую строку необходимо отредактировать.
0
 Аватар для Waddonator
969 / 644 / 97
Регистрация: 01.11.2012
Сообщений: 1,447
13.11.2013, 12:12
Пример:
Вложения
Тип файла: zip T66 (3).zip (22.8 Кб, 8 просмотров)
0
3 / 3 / 0
Регистрация: 01.11.2012
Сообщений: 803
13.11.2013, 12:31  [ТС]
Цитата Сообщение от Waddonator Посмотреть сообщение
Пример:
Ниче не понял...

Delphi
1
SQLQuery1.SQL.Text :='UPDATE clients_data SET Field1='+edit9.Text+' WHERE KeyField=:"№"';
Field1 это что такое? это название моего столбца? если да, то тогда так:

Delphi
1
SQLQuery1.SQL.Text :='UPDATE clients_data SET ФИО='+edit9.Text+' WHERE KeyField=:"№"';
Добавлено через 10 минут
Цитата Сообщение от Waddonator Посмотреть сообщение
Пример:
Сделал так:

Delphi
1
2
3
SQLQuery1.SQL.Text :='UPDATE clients_data SET ÔÈÎ="'+edit9.Text+'" WHERE ¹=P1';
SQLQuery1.ParamByName('P1').Value:=Form1.DBGrid1.DataSource.DataSet.Fields[0].AsInteger;
SQLQuery1.ExecSQL;
пишет Parametr P1 not found
0
3 / 3 / 0
Регистрация: 01.11.2012
Сообщений: 803
13.11.2013, 12:54  [ТС]
Такая ошибка, такой код

Delphi
1
2
3
4
5
6
7
8
SQLQuery1.SQL.Text :='UPDATE clients_data SET ÔÈÎ="'+edit9.Text+'" WHERE ¹=:P1';
SQLQuery1.ParamByName('P1').Value:=Form1.DBGrid1.DataSource.DataSet.Fields[0].AsInteger;
SQLQuery1.ExecSQL;
SimpleDataSet1.ApplyUpdates(1);
SQLConnection1.Connected:=False;
SimpleDataSet1.Active := False;
SQLConnection1.Connected:=True;
SimpleDataSet1.Active := True;
Миниатюры
Редактирование данных  
0
13.11.2013, 13:00

Не по теме:

Цитата Сообщение от Bookkc1 Посмотреть сообщение
Ниче не понял...
Заниматься бездумным копированием чужого кода из одного места в другое конечно интереснее, чем получить хотя бы минимальное представление о работе с БД.

0
 Аватар для Waddonator
969 / 644 / 97
Регистрация: 01.11.2012
Сообщений: 1,447
13.11.2013, 13:01
Bookkc1, называйте поля латинскими буквами и без пробелов - и не будет у Вас подобных проблем.
0
8 / 8 / 1
Регистрация: 11.11.2013
Сообщений: 43
13.11.2013, 13:21
Waddonator, а помимо полей, поименованных кирилицей, разве не стоит НЕ использовать в запросе двойные кавычки (")???!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
13.11.2013, 13:21
Помогаю со студенческими работами здесь

Редактирование данных в БД
Здравствуйте! Пишу небольшую БД и столкнулась с ошибкой, не знаю как решить. Используемые компоненты стандартные AdoQuery, DataSource,...

Редактирование данных
Не редактируются данные из ComboBox, RadioBox и CheckBox, а данные занесенные в Edit редактируются нормально и заносятся в БД. Помогите пж....

Редактирование данных в Excel
Пример беру из книги. Там такой код: procedure TForm1.Button6Click(Sender: TObject); begin ADOQuery1.Edit(); ADOQuery1.Post(); ...

Редактирование базы данных
Не могу понять как сделать редактирование. Ниже скину скрин формы. procedure TForm5.cbb1Change(Sender: TObject); begin case...

Редактирование данных в БД Firebird2
Приветствую всех участников форума! Возникла такая проблема: Пытаюсь редактировать данные в БД простой операцией: with MyTable...


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

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных через динамический список в справочнике
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru