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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 04.03.2012, 13:49
wymkent wymkent вне форума
Прохожий
 
Регистрация: 04.03.2012
Сообщения: 19
Репутация: 10
По умолчанию HelpDesk

Здравствуйте! помогите пожалуйста написать прогу HelpDesk на Delphi, не большой пример или же исходник. использую в качестве бд Access, по идеи нужно использовать 2 бд одна для ежедневной работы вторая в качестве отчета для начальства типа)) и вот тут я затупил вопрос такой как сделать так чтобы при нажатии кнопки (пример)выполнено строка выполненной заявки удалялась с одной базы и вставлялась на вторую которая используется в качестве архива для вышестоящего руководства) прошу помогите...............
Ответить с цитированием
  #2  
Старый 11.03.2012, 22:34
Аватар для Klassenas
Klassenas Klassenas вне форума
Новичок
 
Регистрация: 25.05.2009
Адрес: Казахстан, Павлодар
Сообщения: 87
Версия Delphi: Rad Studio 2010
Репутация: 1570
По умолчанию

Используй два ADOConnection. Один для подключения к рабочей БД, другой - к БД для начальства. А при нажатии на кнопку во вторую БД добавляешь запись методом append или insert, копируешь туда запись из первой БД. Просто присваиваешь значения полям. А потом удаляешь запись из первой БД методом delete.
__________________
Если ты чего-то не знаешь, значит есть шанс научиться чему-то новому
Ответить с цитированием
Этот пользователь сказал Спасибо Klassenas за это полезное сообщение:
wymkent (16.04.2012)
  #3  
Старый 16.04.2012, 15:46
wymkent wymkent вне форума
Прохожий
 
Регистрация: 04.03.2012
Сообщения: 19
Репутация: 10
По умолчанию

помогите разобраться с кодом! по идеи должно копировать только поля имя и фам, а копируется вся таблица. не могу понять. вот код:

ADOQuery1.Active:=false;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('INSERT INTO Таблица1(Imya, fam) ');
ADOQuery1.SQL.Add('SELECT Imya, fam');
ADOQuery1.SQL.Add('FROM Таблица2');
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='SELECT * FROM Таблица1';
ADOQuery2.Delete;
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

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

ВКонтакте   Facebook   Twitter