Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2003.04.17;
Скачать: [xml.tar.bz2];

Вниз

Помогите, как такое сотворить? ADOTable, Delphi6.   Найти похожие ветки 

 
Viktor1   (2003-03-30 15:53) [0]

Есть 4 таблицы A, B, C, D.
1. В таблице D удалить все записи и обнулить имеющееся в ней поле счётчика (ID).
2. Данные из A перенести в D.
3. Данные из B добавить к полученным данным в D.
4. Данные из C добавить к полученным данным в D.
Как это проще сделать?

И второй вопрос что изменить, чтобы это работало, как в BDE.
При установке фильтра кол-во (цифра) записей не изменяется.
procedure TDM.VolsDSDataChange(Sender: TObject; Field: TField);
begin
StatusBar1.Panels[0].Text := IntToStr(DM.VolsTable.RecordCount);
end;

Спасибо!!!


 
sniknik   (2003-03-30 19:17) [1]

> Есть 4 таблицы A, B, C, D.
...
> Как это проще сделать?

запросом естественно (вернее двумя)

DROP TABLE D

SELECT * INTO D FROM (SELECT * FROM A
UNION ALL
SELECT * FROM B
UNION ALL
SELECT * FROM C)

надо чуть изменить (не * а поля, иначе будет в автоикрементное поле пытатся записать и ругатся)

> И второй вопрос что изменить ...
логику программы. не используй фильтры используй запросы.



Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2003.04.17;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.44 MB
Время: 0.009 c
1-54587
Елена
2003-03-30 23:46
2003.04.17
TStringGrid с свойством Captions:TStrings(заголовки столбцов)


3-54495
Veles
2003-03-31 09:18
2003.04.17
Перекодировка dbf


7-54895
jack128
2003-02-20 14:47
2003.04.17
Как узнать когда данные реально ушли из ком порта ?


14-54792
vic_vm
2003-04-01 16:19
2003.04.17
Каким компонентом реализована кнопка на панели IDE в Delphi


4-54951
ltexcimer
2003-02-18 18:12
2003.04.17
FindWindowEx





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский