Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как объединить идентичные таблицы ADO 12 штук [D2005, XP]

Страницы: 1 2 >
Ирг © (2009-09-22 12:27:00)
Как объединить идентичные таблицы ? ADO

A.dbf 12 штук между собой таблицы лежат в разных папках C:\1, C:\2- C:\12
D.dbf 12 штук между собой таблицы лежат в разных папках C:\1, C:\2- C:\12

Желательно в одном запросе или цикле

Ирг (2009-09-24 13:51:00) [1]
Все нормально

Ирг (2009-09-24 13:47:00) [2]
почему то не объединяет ? выдает данные 1 таблицы

Ирг (2009-09-24 13:23:00) [3]
Все работает спасибо ВСЕМ !!!!!!!!!!
САМ ДУРАК

Ирг (2009-09-24 13:14:00) [4]
Изменяюсь "dBASE IV;" не ставил ;

сейчас выходит если без Union ов просто один запрос если с ними то ничего нет

Ирг (2009-09-24 12:15:00) [5]
как то не правильно подключаюсь ?

DataModule2.ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0; User ID=Admin;Data Source=C:\;Extended Properties=dBASE IV;Persist Security Info=False';

Ирг (2009-09-24 12:13:00) [6]
>> sniknik ©
>>SELECT * FROM A IN "1" "dBASE IV;"

файл не может быть открыт "C:\1" ядромс базы данных Microsoft.Jet уже открыт для монопольного доступа или требуеться рзрешение на просмотр данных

DataModule2.ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0; User ID=Admin;Data Source=C:\;Extended Properties=dBASE IV;Persist Security Info=False'; DataModule2.ADOQuery1.Close; DataModule2.ADOQuery1.SQL.Clear; DataModule2.ADOQuery1.SQL.Add('SELECT * FROM A IN "1" "dBASE IV;" '); DataModule2.ADOQuery1.SQL.Add('UNION ALL SELECT * FROM A IN "2" "dBASE IV;" '); DataModule2.ADOQuery1.SQL.Add('UNION ALL SELECT * FROM A IN "3" "dBASE IV;" '); DataModule2.ADOQuery1.SQL.Add('UNION ALL SELECT * FROM A IN "4" "dBASE IV;" '); DataModule2.ADOQuery1.SQL.Add('UNION ALL SELECT * FROM A IN "5" "dBASE IV;" '); ......... DataModule2.ADOQuery1.SQL.Add('UNION ALL SELECT * FROM A IN "12" "dBASE IV;" '); DataModule2.ADOQuery1.Active:=true;

Ирг (2009-09-24 08:47:00) [7]
Спасибо большое пробую

Sergey13 (2009-09-23 15:33:00) [8]
> [14] Leonid Troyanovsky © (23.09.09 14:23)

Ну, в принципе согласен, что исключение более отказоустойчивый вариант. Но не думаю, что у автора файлы появляются и исчезают с такой быстротой. Тем более что с функцией мне лично было бы собрать запрос удобнее. А исключение ловить на открытие запроса.

sniknik (2009-09-23 15:28:00) [9]
Ирг (23.09.09 14:42) [17]
> ...
> не правельно определен объект parameter....
а где юнион?

sniknik (2009-09-23 15:26:00) [10]
и действительно, не так очевидно как думал... должно получится так
SELECT * FROM A IN "1" "dBASE IV;"

Leonid Troyanovsky (2009-09-23 15:10:00) [11]

> Ирг (22.09.09 13:30) [4]

> как проверить есть ли чего открывать ?

FindFirst, FindNext, FindClose Example
See also MatchesMask function.

--
Regards, LVT.

Leonid Troyanovsky (2009-09-23 14:54:00) [12]

> Ирг (23.09.09 14:42) [17]

> Select * From [c:\1\A.dbf], [c:\2\A.dbf] ......[c:\12\A.
> dbf]

> не правельно определен объект parameter....

Тут, во-ще, много неправильного определено.

Научись сначала объединять две таблицы,
а дальше можно и циклом.

--
Regards, LVT.

Ирг (2009-09-23 14:42:00) [13]
>>A.dbf 12 штук между собой таблицы лежат в разных папках C:\1, C:\2- C:\12
>>D.dbf 12 штук между собой таблицы лежат в разных папках C:\1, C:\2- C:\12

пробую так

DataModule2.ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\;Extended Properties=dBASE IV;Persist Security Info=False';

Select * From [c:\1\A.dbf], [c:\2\A.dbf] ......[c:\12\A.dbf]

не правельно определен объект parameter....

Leonid Troyanovsky (2009-09-23 14:40:00) [14]

> Leonid Troyanovsky © (23.09.09 14:37) [15]

Ну и, конечно,TADOCommand.

--
Regards, LVT.

Leonid Troyanovsky (2009-09-23 14:37:00) [15]

> Ирг (23.09.09 14:18) [13]

> Помогли бы лучше хоть каким ни будь способом

INSERT INTO "Customer.db" (CustNo, Company)
SELECT CustNo, Company
FROM "OldCustomer.db"

Конкретный синтаксис надо уточнять для выбранной engine.

--
Regards, LVT.

Leonid Troyanovsky (2009-09-23 14:23:00) [16]

> Sergey13 © (23.09.09 14:11) [11]

> А в чем вредность функции и полезность исключения если

[5], [12].

А если исключение грамотно обработать,
то можно, например, и цикл продолжить.

--
Regards, LVT.

Ирг (2009-09-23 14:18:00) [17]
Хорошо мастерам философствовать

Помогли бы лучше хоть каким ни будь способом

Медвежонок Пятачок (2009-09-23 14:13:00) [18]
тем, что ее результаты верны для некоего момента в безвозвратно ушедшем прошлом

Sergey13 (2009-09-23 14:11:00) [19]
> [10] Leonid Troyanovsky © (23.09.09 14:06)

А в чем вредность функции и полезность исключения если

> [2] Ирг (22.09.09 12:58)

?

Leonid Troyanovsky (2009-09-23 14:06:00) [20]

> Sergey13 © (22.09.09 13:45) [6]

> Ну я бы проверил наличие конкретного файла в конкретном
> месте. Например FileExists

Совершенно бесполезная функция, и более того, даже вредная.
Гораздо полезней получить исключение: "Путь/Файл не найден".

--
Regards, LVT.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »