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

Вниз

Access и AdoTable   Найти похожие ветки 

 
Dima L   (2006-10-02 12:49) [0]

В моей программе я работая с БД Access с помощью Ado. Так
Вот необходимо из одной таблицы БД перенести некоторые строки в другую таблицу. Таблицы имеют одинаковую структуру.Заранее спасибо!!!


 
UMU ©   (2006-10-02 12:58) [1]

Может это?

Запрос на добавление: Две таблицы одинаковой структуры и одинаковыми данными. Добавить только новые записи.

Вариант1

INSERT INTO Таблица1 ( Name, Summ )
SELECT Таблица2.Name, Таблица2.Summ
FROM Таблица2 LEFT JOIN Таблица1 ON Таблица2.Name = Таблица1.Name
WHERE Таблица1.Id Is Null;


===========

Вариант 2

INSERT INTO Таблица1 ( Name, Summ )
SELECT Таблица2.Name, Таблица2.Summ
FROM Таблица2
WHERE Таблица2.Name Not In (SELECT Таблица1.Name
FROM Таблица1);


 
Dima L   (2006-10-03 06:12) [2]

Что имеется в виду под Name и Summ, и в куда помещается такой код.


 
UMU ©   (2006-10-03 12:28) [3]

С вкладки ADO на форму вынести ADOCommand
в (ADOCommand) properties->CommandText->SQL подставить

INSERT INTO Таблица1 ( Поле1, Поле2 )
SELECT Таблица2.Поле1, Таблица2.Поле2
FROM Таблица2
WHERE Таблица2.Поле1 Not In (SELECT Таблица1.Поле1
FROM Таблица1)


Нажать ОК.

Таблица1 - таблица в которую будут добавляться данные
Таблица2 - таблица данные которой будут экспортироваться

Поле - поля который будут добавляться

в WHERE - пишем нужное условие. В данном примере  добавление осуществляется, если значения Поле1 из Таблица2 несовпадают с Поле1 Таблицы1.

Пример использования:

procedure TForm1.Button1Click(Sender: TObject);
Begin
 ADOCommand1.Execute;
End;



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

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

Наверх




Память: 0.44 MB
Время: 0.039 c
15-1163767455
mr1Andersen
2006-11-17 15:44
2006.12.10
Подскажите в чем может быть проблема.


3-1159946116
Монг
2006-10-04 11:15
2006.12.10
Проблема с выполнением функции


1-1161768709
BFG9k
2006-10-25 13:31
2006.12.10
Как скачать каринку с помощью idHTTPServer


15-1164033526
Beavercrazy
2006-11-20 17:38
2006.12.10
Живо ли еще разрешение 800*600?


15-1164079730
Slider007
2006-11-21 06:28
2006.12.10
С днем рождения ! 21 ноября





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский