Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Удаление выделеной строки в DBGrid 
:(
    Опции темы
Yagmort
Дата 28.6.2009, 13:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 339
Регистрация: 17.6.2009

Репутация: нет
Всего: -1
GL_F.DBG_PAC.Columns[12]... - что тут писать я все перепробывал и не удаляет ### ( 12 колонка в DBgrid у меня id_pacienta...

Вообще хотел сделать так, чтобы удалял выделенную строку но он ее не удаляет (
Код

procedure TDM.N5Click(Sender: TObject);
begin


DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('DELETE FROM pacient WHERE id_pacienta="'+GL_F.DBG_PAC.Columns[12]...+'"');
DM.ADOQ_PAC.ExecSQL;

DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('SELECT * FROM pacient');
DM.ADOQ_PAC.Open;

end;



GL_F.DBNavigator1.BtnClick(nbDelete); // через это не удаляет почему ?

Это сообщение отредактировал(а) Yagmort - 28.6.2009, 13:04
PM MAIL   Вверх
Данкинг
Дата 28.6.2009, 13:21 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Когда ты перемещаешься по DbGrid, происходит перемещение и по соответствующим строкам DataSet'а, который к нему подвязан. Т.е. можно просто использовать AdoTable.Delete и не придумывать лишних сложностей с запросом.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Yagmort
Дата 28.6.2009, 13:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 339
Регистрация: 17.6.2009

Репутация: нет
Всего: -1
Цитата(Данкинг @ 28.6.2009,  13:21)
Когда ты перемещаешься по DbGrid, происходит перемещение и по соответствующим строкам DataSet'а, который к нему подвязан. Т.е. можно просто использовать AdoTable.Delete и не придумывать лишних сложностей с запросом.

Я не использую ADOTable, использую ADOQuery, ADOConnection, DataSourse.
PM MAIL   Вверх
Данкинг
Дата 28.6.2009, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(Yagmort @  28.6.2009,  14:35 Найти цитируемый пост)
использую ADOQuery

Попробуй тогда ADOQuery.Delete эксперимента ради.


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Romikgy
Дата 28.6.2009, 22:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146
Цитата(Данкинг @  28.6.2009,  12:48 Найти цитируемый пост)
Попробуй тогда ADOQuery.Delete эксперимента ради.

я думаю это не удалить запись откуда производился квери ((


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Данкинг
Дата 30.6.2009, 02:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 35
Всего: 130
Цитата(Romikgy @  28.6.2009,  23:12 Найти цитируемый пост)
я думаю это не удалить запись откуда производился квери 

Не знаю, не пробовал. Я знаю только, если в DBGrid выбрать из квери, а затем в гриде изменить значение, то оно и в реальную таблицу внесётся. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Romikgy
Дата 30.6.2009, 09:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146
угу нашел уже , как я и думал помимо облегчения доступа к данным (редактированию) , это вещь добавила еще и кучу вопросов , "почему здесь редактируется , а здесь нет ", ИМХО не нужно было вводить такой ф-ционал .....


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
Romikgy
Дата 30.6.2009, 10:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 4
Всего: 146
а так если сделать ....
Код

procedure TDM.N5Click(Sender: TObject);
var 
    sx: string;
begin
if DBGrid1.SelectedRows.Count=1 then
    with DBGrid1.DataSource.DataSet do     
      begin
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[0]));
          sx:=FieldValues['id_pacienta'].AsString;       
        DM.ADOQ_PAC.Close;
        DM.ADOQ_PAC.SQL.Clear;
        DM.ADOQ_PAC.SQL.Add('DELETE FROM pacient WHERE id_pacienta="'+sx+'"');
        DM.ADOQ_PAC.ExecSQL;
        DM.ADOQ_PAC.Close;
        DM.ADOQ_PAC.SQL.Clear;
        DM.ADOQ_PAC.SQL.Add('SELECT * FROM pacient');
        DM.ADOQ_PAC.Open;
      end;
end;



--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Базы данных и репортинг"
Vit
Петрович

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Обязательно указание:

1. Базы данных (Paradox, Oracle и т.п.)

2. Способа доступа (ADO, BDE и т.д.)


  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • Вопросы по SQL и вопросы по базам данных не связанные с Дельфи задавать здесь

FAQ раздела лежит здесь!

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Vit, Петрович.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Базы данных и репортинг | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0464 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.