Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 23.03.2011, 20:52
daraemon daraemon вне форума
Прохожий
 
Регистрация: 23.03.2011
Сообщения: 14
Репутация: 10
По умолчанию редактирование query

Доброе вам время суток, такая проблема:
Ни в какую не могу написать sql для редактирования таблицы соединенных в query.
dbgrid>>DataSource>>Query
Соединял таким способом:
Цитата:
SELECT DISTINCT glav.IDych, glav.Family, glav.Name, glav.SecName, glav.Pol, glav.DataRozh, groop.Nazvanie, gorod.Nazv, glav.Ylica, glav.Dom, glav.Kv, glav.Telefon, master.Family, glav.PocleEnd, spec.Kratkoe FROM glav, groop, gorod, master, spec
join glav on glav.IDgroop=groop.IDgroop
join glav on glav.IDgorod=gorod.IDgorod
join glav on glav.IDmaster=master.IDmaster
join glav on glav.IDspec=spec.IDspec
где то увидел что определение выбранной строки можно задать так
Цитата:
Query1.Fields[0].AsInteger;
а вот редактировать, удалить, создать, сохранить нивкакую
при том еще когда удаляешь нада удалять только из главной таблицы glav а в других оставить, но чтоб с dbgrida пропала строка
Посоветуйте, подскажите пожалуйста
Ответить с цитированием
  #2  
Старый 23.03.2011, 23:39
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,906
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Это запрос на выборку, т.е. по сути ты прочитал некий набор данных из БД. Для того чтобы изменить данные в БД следует использовать запрос на изменение. Читай на тему UPDATE.
__________________
Некоторые программисты настолько ленивы, что сразу пишут рабочий код.

Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты.
Ответить с цитированием
  #3  
Старый 24.03.2011, 09:27
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Код:
SELECT DISTINCT glav.IDych, glav.Family, glav.Name, glav.SecName, glav.Pol, glav.DataRozh, groop.Nazvanie, gorod.Nazv, glav.Ylica, glav.Dom, glav.Kv, glav.Telefon, master.Family, glav.PocleEnd, spec.Kratkoe 
FROM glav, groop, gorod, master, spec
join glav on glav.IDgroop=groop.IDgroop
join glav on glav.IDgorod=gorod.IDgorod
join glav on glav.IDmaster=master.IDmaster
join glav on glav.IDspec=spec.IDspec 

Хмм смущает меня такой запрос вообще (*только меня интересно!?*)
Фром и джойн к одним и тем же таблицам....хммм...

а по поводу вопроса в другой квери пишите запрос вида Update [имя таблицы] SET [поле1]=[значение], [поле2]=[значение] WHERE [ключевое поле]=[значение ключ. поля]
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
Ответить с цитированием
  #4  
Старый 24.03.2011, 14:13
daraemon daraemon вне форума
Прохожий
 
Регистрация: 23.03.2011
Сообщения: 14
Репутация: 10
По умолчанию

Цитата:
Фром и джойн к одним и тем же таблицам....хммм...
а без джоинов будет выводить много значений на одни и те же фамилии, сделал так и все получилось как надо
проблему малость решил с помощью UpdateSQL, но не совсем,
вот например при удалении у меня строка как бы остается и не удаляется, а как перезапускаю программу так ее нет(значит удаляет, но вот почему не исчезла сразу?), можно ли как то обновить данные чтоб после удаления она всеж пропала?
DBGrid1.Refresh; невыходит
прочитал где то что с помощью update можно, дак тож не выходит, немогу понять
Ответить с цитированием
  #5  
Старый 24.03.2011, 14:21
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

перепиши запрос :
Код:
SELECT glav.IDych, glav.Family, glav.Name, glav.SecName, glav.Pol, glav.DataRozh, groop.Nazvanie, gorod.Nazv, glav.Ylica, glav.Dom, glav.Kv, glav.Telefon, master.Family, glav.PocleEnd, spec.Kratkoe 
FROM glav
left join groop on glav.IDgroop=groop.IDgroop
left join gorod on glav.IDgorod=gorod.IDgorod
left join master on glav.IDmaster=master.IDmaster
left join spec on glav.IDspec=spec.IDspec 

DBGrid1- Это средство отображения того что в Query.
Обновляй Query т.к. после того как ты сделал Select у тебя данные кхммм... как бы хранятся в Query.
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
Ответить с цитированием
  #6  
Старый 24.03.2011, 15:05
daraemon daraemon вне форума
Прохожий
 
Регистрация: 23.03.2011
Сообщения: 14
Репутация: 10
По умолчанию

спасибо сейчас проверим, и еще пытаюсь добавить строку для ввода данных, использую insert правильный подход? а то я сомневаюсь потому что несколько инсертов сделать не выходит а таблиц то аж 5, не хочет показывать таблицу в dbgride если в ней хотя б одна ячейка пуста=( не знаю как быть
Ответить с цитированием
  #7  
Старый 24.03.2011, 15:18
daraemon daraemon вне форума
Прохожий
 
Регистрация: 23.03.2011
Сообщения: 14
Репутация: 10
По умолчанию

Цитата:
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('SELECT DISTINCT glav.IDych, glav.Family, glav.Name, glav.SecName, glav.Pol, glav.DataRozh, groop.Nazvanie, gorod.Nazv, gorod.IDgorod, glav.Ylica, glav.Dom, glav.Kv, glav.Telefon, master.Family, glav.PocleEnd, spec.Kratkoe');
Query1.SQL.Add('FROM glav, groop, gorod, master, spec');
Query1.SQL.Add('join glav on glav.IDgroop=groop.IDgroop');
Query1.SQL.Add('join glav on glav.IDgorod=gorod.IDgorod');
Query1.SQL.Add('join glav on glav.IDmaster=master.IDmaster');
Query1.SQL.Add('join glav on glav.IDspec=spec.IDspec');
Query1.Open;
DBGrid1.Refresh;
работает спасибо
Ответить с цитированием
  #8  
Старый 24.03.2011, 15:20
daraemon daraemon вне форума
Прохожий
 
Регистрация: 23.03.2011
Сообщения: 14
Репутация: 10
По умолчанию

теперь бы с добавлением строки разобраться=(
Цитата:
для ввода данных, использую insert правильный подход? а то я сомневаюсь потому что несколько инсертов сделать не выходит а таблиц то аж 5, не хочет показывать таблицу в dbgride если в ней хотя б одна ячейка пуста=( не знаю как быть
Ответить с цитированием
  #9  
Старый 24.03.2011, 15:27
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Подход правильный. Почему ж несколько инсертов не выходит?

а вот не показывает он не таблицу а запись в которой хотя б одно поле пустое после выполнения вашего запроса.
В случае если подставите мой запрос по он покажет все записи из таблицы glav и дополнит их данными из доп. таблиц.
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
Ответить с цитированием
  #10  
Старый 24.03.2011, 15:43
daraemon daraemon вне форума
Прохожий
 
Регистрация: 23.03.2011
Сообщения: 14
Репутация: 10
По умолчанию

ну я попробывал вот так вот поиздеваться и ничего не вышло=( SQL не знаю вообще, 2ой день с учебником парюсь.. не судите строго
Цитата:
insert into glav
(Name, Family, SecName, DataRozh, Pol, Ylica, Dom, Kv, Telefon, PocleEnd, IDych)
values
(:Name, :Family, :SecName, ataRozh, :Pol, :Ylica, om, :Kv, :Telefon, :PocleEnd)
insert into master
(Family)
values
(:Family)
insert into gorod
(Nazv, IDgorod)
values
(:Nazv, :IDgorod)
insert into groop
(Nazvanie)
values
(:Nazvanie)
insert into spec
(Kratkoe)
values
(:Kratkoe)
на второй insert ругается=(
Ответить с цитированием
  #11  
Старый 24.03.2011, 15:48
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Код:
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('insert into glav ');
Query2.SQL.Add('(Name, Family, SecName, DataRozh, Pol, Ylica, Dom, Kv, Telefon, PocleEnd, IDych) ');
Query2.SQL.Add('values (:Name, :Family, :SecName, :DataRozh, :Pol, :Ylica, :Dom, :Kv, :Telefon, :PocleEnd)');
Query2.parametrs.parambyname('Name').value:='Name';
и т.д.
Query2.execSql;

Код:
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('insert into master (Family) ');
Query2.SQL.Add('values(:Family)');
Query2.parametrs.parambyname('Family').value:='Family';
Query2.execSql;
и т.д. оставшиеся таблицы
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
Ответить с цитированием
  #12  
Старый 24.03.2011, 16:09
daraemon daraemon вне форума
Прохожий
 
Регистрация: 23.03.2011
Сообщения: 14
Репутация: 10
По умолчанию

ооо спасибо огромное, а под query1 если сделать, ничего плачевного не будет?
а даже если под query2 то соединять прийдется?
Ответить с цитированием
  #13  
Старый 24.03.2011, 16:15
Black Raider Black Raider вне форума
Местный
 
Регистрация: 31.05.2010
Адрес: Москва
Сообщения: 466
Версия Delphi: 7
Репутация: 40
По умолчанию

Не будет, разве что в гриде у вас не будет отображаться
вообще для Select и Update,Insert,Delete лучше использовать разные квери.

Объединять все равно надо если вы хотите получить нужные вам данные.
__________________
Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение"
Ответить с цитированием
  #14  
Старый 24.03.2011, 20:55
daraemon daraemon вне форума
Прохожий
 
Регистрация: 23.03.2011
Сообщения: 14
Репутация: 10
По умолчанию

а неподскажете как сделать связь между query и dbgrid>datasource>query? ( а то вообще печально, только с одной query работал, или так же как и с Table?
Ответить с цитированием
  #15  
Старый 24.03.2011, 21:07
daraemon daraemon вне форума
Прохожий
 
Регистрация: 23.03.2011
Сообщения: 14
Репутация: 10
По умолчанию

эхушки, несоответствие типов пишит, IDych убрал птомучт счетчик, хоть эт прально сделал?
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:01.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter