запрос SQL

← →
Ирг (2009-09-25 11:06) [0]

Помогите разобраться !!!

DataModule2.ADOQuery2.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\;Extended Properties=dBASE IV;Persist Security Info=False";
DataModule2.ADOQuery2.Close;
DataModule2.ADOQuery2.SQL.Clear;
DataModule2.ADOQuery2.SQL.Add("declare @var1 int, @var2 int, @quer1 int, @quer2 int");
DataModule2.ADOQuery2.SQL.Add("set @var1 = "SELECT IDn, f, i, o, dr FROM Atab IN "1" "dBASE IV;" ");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, f, i, o, dr FROM Atab IN "2" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, f, i, o, dr FROM Atab IN "3" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, f, i, o, dr FROM Atab IN "4" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, f, i, o, dr FROM Atab IN "5" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, f, i, o, dr FROM Atab IN "6" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, f, i, o, dr FROM Atab IN "7" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, f, i, o, dr FROM Atab IN "8" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, f, i, o, dr FROM Atab IN "9" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, f, i, o, dr FROM Atab IN "10" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, f, i, o, dr FROM Atab IN "11" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, f, i, o, dr FROM Atab IN "12" "dBASE IV;""");
DataModule2.ADOQuery2.SQL.Add("set @var2 = "SELECT IDn, v, m, s, f FROM Btab IN "1" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add(" UNION All SELECT IDn, v, m, s, f FROM Btab IN "2" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add(" UNION All SELECT IDn, v, m, s, f FROM Btab IN "3" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add(" UNION All SELECT IDn, v, m, s, f FROM Btab IN "4" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add(" UNION All SELECT IDn, v, m, s, f FROM Btab IN "5" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, v, m, s, f FROM Btab IN "6" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, v, m, s, f FROM Btab IN "7" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, v, m, s, f FROM Btab IN "8" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, v, m, s, f FROM Btab IN "9" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, v, m, s, f FROM Btab IN "10" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, v, m, s, f FROM Btab IN "11" "dBASE IV;"");
DataModule2.ADOQuery2.SQL.Add("UNION All SELECT IDn, v, m, s, f FROM Btab IN "12" "dBASE IV;""");
DataModule2.ADOQuery2.SQL.Add("set @quer1 = "SELECT * FROM @var1 INNER JOIN @var2 ON Atab.IDn = Btab.IDn"");
DataModule2.ADOQuery2.SQL.Add("set @quer2 = "SELECT DISTINCT CL.IDn, CL.f, CL.i, CL.o, CL.dr, CL.v, CL.m, CL.s, CL.f ");
DataModule2.ADOQuery2.SQL.Add("FROM @quer1 CL INNER JOIN @quer1 CR ON ");
DataModule2.ADOQuery2.SQL.Add("CL.IDn <> CR.IDn ");
DataModule2.ADOQuery2.SQL.Add("AND CL.f = CR.f ");
DataModule2.ADOQuery2.SQL.Add("AND CL.v = CR.v ");
DataModule2.ADOQuery2.SQL.Add("AND CL.i = CR.i ");
DataModule2.ADOQuery2.SQL.Add("AND CL.o = CR.o ");
DataModule2.ADOQuery2.SQL.Add("AND CL.m = CR.m");
DataModule2.ADOQuery2.SQL.Add("AND CL.dr = CR.dr ");
DataModule2.ADOQuery2.SQL.Add("AND CL.s <= CR.f "");
DataModule2.ADOQuery2.SQL.Add("EXEC (@quer2)");
DataModule2.ADOQuery2.Active:=true;

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

← →
Игорь Шевченко © (2009-09-25 11:47) [1]

Приз!

← →
Ирг (2009-09-25 11:47) [2]

Разве так нельзя ?

← →
sniknik © (2009-09-25 12:10) [3]

запрос составлен по принципу - "а что тут думать, тут прыгать надо" © какой то анекдот
только с добавкой "если что на дельфимастере спрошу"...

> Разве так нельзя ?
ну, никто не запрещает, т.что можно. но только работать не будет, ни в jet ни в mssql, нигде. кстати а почему нет добавления особенностей/стилей из оракла/файребирд/mysql? упущение однако...

> Помогите разобраться !!!
бери книжку/справку где есть описание sql в jet и читай. тут нужно не разбираться, а переучиваться.

← →
Anatoly Podgoretsky © (2009-09-25 12:33) [4]

> Разве так нельзя ?

Да кто же будет в этом разбираться, к тому же не по теме форума.

← →
Сергей М. © (2009-09-25 12:41) [5]

Объявили ц/ч переменную

> declare @var1 int

и пытаемся засунуть в нее текст

> set @var1 = "SELECT

КаковО ?

← →
test © (2009-09-25 13:21) [6]

Расскажи как ты умудряешся в одну переменную int воткнуть несколько полей?

← →
MsGuns © (2009-09-25 13:34) [7]

Сабж напомнил старую притчу о том. как солдат просил у вдовицы водички попить - дай говорит, воды напиться, а то так жрать охота, что переночевать негде
:)

← →
Ирг (2009-09-25 13:39) [8]

>>test © (25.09.09 13:21) [6]

>>Расскажи как ты умудряешся в одну переменную int воткнуть несколько полей?

ступил маленько

varchar или char втыкать ? я не знаю какой размер будет запроса !

← →
Сергей М. © (2009-09-25 13:43) [9]

> Ирг (25.09.09 13:39) [8]

> не знаю какой размер будет запроса

А зачем вообще тебе понадобилось все это ?
У клиента нет прямого доступа к этим DBF-файлам что ли ?

← →
MsGuns © (2009-09-25 14:05) [10]

Да черт с ним, с доступом - меня больше всего забавляет то, что огурцы ваяют все эти небоскребы, очевидно ленясь написать мини-цикл :)

← →
Сергей М. © (2009-09-25 14:14) [11]

> ленясь написать мини-цикл

Так и я туда же гну)

Цикл прямо на клиенте, не трогая никаким боком ни SQL вообще ни MSSQL в частности)

← →
Сергей М. © (2009-09-25 14:21) [12]

> MsGuns © (25.09.09 14:05) [10]

У огурцов, насколько я пониял, задача импорта из кучи однотипных таблиц с какими-то там документами, которые ежемесячно валятся с луны в 12 специально на то подготовленные папки.
Актуальные результаты этого импорта огурцы желают получить в любой момент времени в виде некоего активного дейтасета (зачем - не знаю).

← →
MsGuns © (2009-09-25 14:27) [13]

>Сергей М. © (25.09.09 14:21) [12]
>зачем - не знаю.

Однако нацяльника сказал

← →
MsGuns © (2009-09-25 14:45) [14]

>зачем - не знаю.

Рискну предположить (телепатор заржавел, ну а вдруг !)
Овощ тянет лямку в каком-нибудь Облупрснабсбытчего-то-тампроме, занимающемся в числе прочих и такой лабудой как сбор и анализ результатов работы своих подчиненных на "местах". В деревнях и селах поставили компы, а на них самопальную чуду-софтюху на клиппере или, если контора продвинутая, на фоксе. Местные служаки усердно заполняют "поля", и в результате образуются дбф-ки, которые и мылятся или эфтээпятся в контору.
Нацяльника конторы очень заботит возможность оперативного (т.е. в любой момент) обзора всего заполненного, но смотреть по одному отчету, клацая мышкой по надцать раз, его колбасит,- вот он и поручил своему программеру сострогать что-то поудобнистее

:)

← →
Ирг (2009-09-25 14:49) [15]

Огурец еще зеленый !!!

базы нет

есть куча dbf которые поступают каждый месяц

мне нужно достать из них нужные цифры

к dbf полный доступ можно воротить ими как угодно

покажите как лучше

>>Да черт с ним, с доступом - меня больше всего забавляет то, что огурцы >>ваяют все эти небоскребы, очевидно ленясь написать мини-цикл :)

я не ленюсь а не знаю как пробовал по разному не выходит !!!

ПОМОГИТЕ ЧЕМ МОГИТЕ ...........

← →
test © (2009-09-25 14:50) [16]

MsGuns © (25.09.09 14:45) [14]
Перечитал тему не понял, как приведенный код относиться к твоей версии?

← →
Anatoly Podgoretsky © (2009-09-25 14:52) [17]

> MsGuns (25.09.2009 14:45:14) [14]

Может быть, я как то видел очень крутой софт, для горуправы, очень дорогой, а на самом деле это был Нортон Коммандер под ДОС

← →
sniknik © (2009-09-25 14:53) [18]

> ни MSSQL в частности)
какой MSSQL? у него jet. это в запросе сборная солянка.

> ПОМОГИТЕ ЧЕМ МОГИТЕ ...........
программу за тебя написать? тебе уже сказано что делать - изучать то что используешь, в этом случае jet.

← →
Сергей М. © (2009-09-25 14:55) [19]

> MsGuns © (25.09.09 14:45) [14]

Вполне может быть)

← →
sniknik © (2009-09-25 14:58) [20]

> покажите как лучше
лучше, оно не абстрактное, оно конкретное, по обстановке, в твоем случае возможно было бы лучше заливать данные в какую то нормальную базу например mssql и отчеты делать уже с нее. (но это только по тому что видно отсюда, раскрой еще какой нибудь инфы и все может поменяться с ног на голову)

← →
Сергей М. © (2009-09-25 14:59) [21]

> к dbf полный доступ можно воротить ими как угодно

ну так а зачем тогда весь этот огород с запросами, юнионами, ХПшными заморочками и прочей лабудой ?

Возьми обычный TClientDataSet, пройдись в цикле по всем DBFам, открывая их по очереди, и заполни ClientDataSet записями из этих DBF ..

← →
Сергей М. © (2009-09-25 15:01) [22]

> sniknik © (25.09.09 14:53) [18]
> какой MSSQL?

А бис его знает)
Откуда-то же к нему свались шматки текстов в синтаксисе, характерном для MSSQL ..

← →
Плохиш © (2009-09-25 15:08) [23]

> ПОМОГИТЕ ЧЕМ МОГИТЕ ...........

А смысл?

← →
Anatoly Podgoretsky © (2009-09-25 15:14) [24]

> Откуда-то же к нему свались шматки текстов в синтаксисе,
> характерном для MSSQL ..

А ничего другого просто в Сети не нашел.

← →
test © (2009-09-25 15:48) [25]

Пишешь програмулинку чтобы пасла на предмет новых dbf папку, новые открываешь и как в [21] отправляешь в основную БД, после копируешь в папку обработанные. Потом удаляешь обработанный файл.

← →
Ирг (2009-09-25 16:16) [26]

Огурец не получал еще так много информации в абстрактном виде .....
Можно код товарищи мастера !!!

>>Возьми обычный TClientDataSet, пройдись в цикле по всем DBFам, открывая их >>по очереди, и заполни ClientDataSet записями из этих DBF ..

как это ?

>>Пишешь програмулинку чтобы пасла на предмет новых dbf папку, новые >>открываешь и как в [21] отправляешь в основную БД, после копируешь в >>папку обработанные. Потом удаляешь обработанный файл.

и это как ?
как ?

← →
Сергей М. © (2009-09-25 16:22) [27]

> как это ?

> и это как ?

> как ?

Вот ведь раскакался)

Ты вот расскажи для начала, что ты дальше собрался делать с этим ADOQuery2, если бы вся эта петрушка у тебя чудесным образом заработала ?

← →
Ирг (2009-09-25 16:26) [28]

если бы вся эта петрушка у меня чудесным образом заработала !!!!!!!
вывел в DBGrid1 и мне больше и не надо !

← →
Сергей М. © (2009-09-25 16:29) [29]

А DBFы с луны все падают и падают ..

Ты вообще представляешь себе, какой кошмар ожидает того, кто будет глазеть в этот грид, когда DBFов этих накопится с вагон и более ..

← →
Ирг (2009-09-25 16:33) [30]

Мне нужно в при выходе удалять результат запроса

dbf всего 2 талицы по 12 шт и больше быть не может

← →
MsGuns © (2009-09-25 16:35) [31]

Блин, вот пример допотопного алгоритма
1. В десктопе создаешь дбф нужной структуры (вообще-то можно автоматом получить из имеющихся в папке-"обезьяннике" (для непронятливых: обезьянником менты называют накопитель, куда сажают пойманных на базаре-вокзале личностей без длокументов, а так как там полно негров, пардон, афроамериканцев, то.. в общем понятно, я думаю), но это надо быть слегка продвинутым.
2. Пишешь в дельфи (ваське, сях, пёрдле, жабе или где-нибудь - по барабану) такую хитровыдуманную софтюху:
- чистишь агрегатный дбф (тот самый, что был сварганен в DBD)
- опрашиваешь содержимое "обезьянника" и всех афроамериканцев поименно заносишь в список
- в цикле пробегаешь список и для каждого мастеришь строку
Insert * into MyDBF from select * from <имя афроамериканца (подставляешь из списка>
после чего встромляешь его в TQuery.Text и выполняешь.
- открываешь MyDBF, связываешь его с сеткой и наблюдаешь результаты.
- к сетке примастрячь делфишный нафигатор типо для крутизны
3. Показываешь нацяльнику софтишшу и намякиваешь, что за месяцок и скромную премию в размере 3-х окладов сможешь соорудить еще поиски, фильтры, сортировки и прочую малину.
4. Если нацяльника соглашается, нанимаешь программиста-желтоогуречника и за одын оклад и одын день он делает в подшаманивает твою прогу до нужной функциональности.

← →
Сергей М. © (2009-09-25 16:44) [32]

> в при выходе удалять результат запроса

Он и так сам по себе "удалится", ты же нигде его не сохраняешь)

> dbf всего 2 талицы по 12 шт и больше быть не может

И там они застынут на веки вечные ?
Тогда дождись, когда все 24 штуки благополучно свалятся, и не морочь людям голову, мол, чего делать если дбф в папке не оказалось.. Ты ведь именно этим изначально озаботился ?)

← →
Плохиш © (2009-09-25 16:54) [33]

> MsGuns © (25.09.09 16:35) [31]
>
> Блин, вот пример допотопного алгоритма

Хм, аФФтар вроде алгоритма не просил.

> Ирг (25.09.09 16:33) [30]

Подойди к начальнику, сделай добрые глазёнки и скажи "Насяльника, насяльника, найми программиста"

← →
Ирг (2009-09-25 16:54) [34]

Огурцы всегда тупят по началу !!!

>>Он и так сам по себе "удалится", ты же нигде его не сохраняешь)

если он заработает !!!

← →
Плохиш © (2009-09-25 16:56) [35]

Не полетит!

← →
MsGuns © (2009-09-25 16:59) [36]

Кстати, в предложенный в [31] алгоритм надо добавить едну штукенцию дабы начальник свовсем обалдел от радости, а именно в агрегатный дбф добавить поле, куда заносить погонялово очередной "обезьяны". Тогда в сетке можно будет увидеть кто собсна "заполнял".
Как говорил Петр I "Чтоб дурь каждого видна была"

← →
Сергей М. © (2009-09-25 17:03) [37]

> если он заработает

Оно не заработает, даже не надейся)

А что, собссно, мешает создать собственную БД с таблицей MyTable, куда можно было добавлять содержимое вновь упавших DBF, по одной по мере падения ?
Тогда это заработало бы при простейшем запросе "SELECT * FROM MyTable"

Или начальник запретил ?)

← →
MsGuns © (2009-09-25 17:08) [38]

>Сергей М. © (25.09.09 17:03) [37]

Плагиатничаем помаленьку ?
:)

← →
Сергей М. © (2009-09-25 17:11) [39]

> MsGuns © (25.09.09 17:08) [38]

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

← →
Ирг (2009-09-25 17:15) [40]

Если так намного лучше то конечно создам.

//в цикле пробегаешь список и для каждого мастеришь строку
// Insert * into MyDBF from select * from <имя афроамериканца //(подставляешь из списка>

i:=0
while i<12 do
begin
Insert IDn, f, i, o, dr into MyDBF from (SELECT IDn, f, i, o, dr FROM Atab IN "1" "dBASE IV;");
i++
end

как менять папку в цикле ?

← →
test © (2009-09-25 17:29) [41]

Ирг (25.09.09 17:15) [40]
Через переменную

← →
test © (2009-09-25 17:33) [42]

Ирг (25.09.09 17:15) [40]
Берешь книшшку по программированию и читаешь это ведь даже не начинающий, это какой то кошмар.

← →
Ирг (2009-09-25 17:36) [43]

var i, b:integer
b:=0
i:=0
while i<12 do
begin
Insert IDn, f, i, o, dr into MyDBF from (SELECT IDn, f, i, o, dr FROM Atab IN "b" "dBASE IV;");
i++
b++
end

так ?

← →
test © (2009-09-25 18:24) [44]

insert into IDn(IDn, f, i, o, dr) SELECT IDn, f, i, o, dr FROM Atab IN "b" "dBASE IV;"
Во первых

var
dir:string;
i,b:integer;
begin
b:=0
i:=0
while i<12 do
begin
dir := "name_dir"+IntTostr(i);
Insert IDn, f, i, o, dr into MyDBF from (SELECT IDn, f, i, o, dr FROM Atab IN "b" "dBASE IV;");
inc(i);
inc(b);
end
end;
Во вторых

в третьих возьми книжку и прочитай как это пишется

← →
Сергей М. © (2009-09-25 18:38) [45]

> Ирг (25.09.09 17:15) [40]

Вот этот шедевр, что ты сейчас написал, он на каком языке писан ?

← →
Ирг (2009-09-25 18:47) [46]

А так можно ?
var dir:string; i,b:integer; begin b:=0 i:=0 while i<12 do begin dir := "name_dir"+IntTostr(i); Insert into MyTable (IDn, f, i, o, dr, v, m, s, f) from ((SELECT IDn, f, i, o, dr FROM Atab IN "b" "dBASE IV;"); INNER JOIN (SELECT IDn, v, m, s, f FROM Btab IN "b" "dBASE IV;") ON Atab.IDn = Btab.IDn); inc(i); inc(b); end end;

← →
Сергей М. © (2009-09-25 18:50) [47]

Чума)

На вопрос в [45] ответить изволишь ?

← →
test © (2009-09-25 18:52) [48]

Запрос на прямую тебе Дельфи не отработает. Возьми книгу Марко Кенту по Дельфи

← →
Leonid Troyanovsky © (2009-09-25 19:10) [49]

> test © (25.09.09 18:52) [48]

> Запрос на прямую тебе Дельфи не отработает.

У Марко также прямых шансов нет, IMHO.
--
Regards, LVT.

← →
Игорь Шевченко © (2009-09-25 19:11) [50]

Хорошо, что железо не паяют, программу исправить проще. Только что выдернул 4 беременных электролита из материнской платы, так один вывод у них вполне свободно вышел, без отпайки :)

← →
Германн © (2009-09-25 19:24) [51]

То огурцы, то беременные конденсаторы...
Куда всё катится???
:)

← →
Leonid Troyanovsky © (2009-09-25 19:28) [52]

> Игорь Шевченко © (25.09.09 19:11) [50]

А как насчет Joe Bonamassa?

--
Regards, LVT.

← →
Ирг (2009-09-25 19:44) [53]

>> На вопрос в [45] ответить изволишь ?
огурцы путают разные языки , рнр или с++

>>Запрос на прямую тебе Дельфи не отработает. Возьми книгу Марко Кенту по Дельфи

ушел читать

а что искать подскажи ?

Всем спасибо большое !!!!!!!!!!!!!!!!!!!!!!!!

← →
Игорь Шевченко © (2009-09-25 22:31) [54]

Leonid Troyanovsky © (25.09.09 19:28) [52]

На почту письмо отправил

← →
MsGuns © (2009-09-26 01:40) [55]

>А как насчет Joe Bonamassa?

Вот все бы ветки так заканчивались ;)

← →
tesseract © (2009-09-26 08:41) [56]

> То огурцы, то беременные конденсаторы...

Ну на беременных КЗ конденсаторов, я насмотрелся сполна :-)

← →
Ирг (2009-09-26 16:08) [57]

Вернулся !!!!!!! ну огурец я не понимаю почему не работает и как написать чтоб заработал ?

procedure TForm6.N1Click(Sender: TObject); var dir,jet:string; i,b:integer; begin b:=1; i:=1; DataModule2.ADOQuery2.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\;Extended Properties=dBASE IV;Persist Security Info=False"; jet:= DataModule2.ADOQuery2.ConnectionString; DBGrid1.Options:= DBGrid1.Options - [dgTitles]; DataModule2.ADOQuery2.Close; DataModule2.ADOQuery2.SQL.Clear; while i<12 do begin dir := "jet"+IntTostr(i); DataModule2.ADOQuery2.SQL.Add("Insert into MyTable (IDn, f, i, o, dr, v, m, s, f) SELECT * from ((SELECT IDn, f, i, o, dr FROM Atab IN "b" "dBASE IV;") "); DataModule2.ADOQuery2.SQL.Add("INNER JOIN (SELECT IDn, v, m, s, f FROM Btab IN "b" "dBASE IV;") ON Atab.IDn = Btab.IDn) "); inc(i); inc(b); end ; DataModule2.ADOQuery2.Active:=true;

← →
test © (2009-09-26 16:17) [58]

procedure TForm6.N1Click(Sender: TObject);
var
dir,jet:string;
i,b:integer;
begin
b:=1;
i:=1;
DataModule2.ADOQuery2.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\;Extended Properties=dBASE IV;Persist Security Info=False";
jet:= DataModule2.ADOQuery2.ConnectionString;
DBGrid1.Options:= DBGrid1.Options - [dgTitles];
DataModule2.ADOQuery2.Close;
DataModule2.ADOQuery2.SQL.Clear;
while i<12 do
begin
dir := "jet"+IntTostr(i);
DataModule2.ADOQuery2.SQL.Add("Insert into MyTable (IDn, f, i, o, dr, v, m, s, f) SELECT * from ((SELECT IDn, f, i, o, dr FROM Atab IN "b" "dBASE IV;") ");
DataModule2.ADOQuery2.SQL.Add("INNER JOIN (SELECT IDn, v, m, s, f FROM Btab IN "b" "dBASE IV;") ON Atab.IDn = Btab.IDn) ");
inc(i);
inc(b);
// выполнять кто будет?
// Очищать кто будет? он у тебя накапливать запросы будет пачками
end ;
DataModule2.ADOQuery2.Active:=true;// Работает только для select для
// для insert"a нужен exec

← →
Сергей М. © (2009-09-26 16:39) [59]

Реактивный огурец)
Суток не прошло, а книга уже проштудирована от корки до корки)

← →
Ирг (2009-09-26 16:44) [60]

>>// выполнять кто будет?

DataModule2.ADOQuery2.ExecSQL; // так ?

>> // Очищать кто будет? он у тебя накапливать запросы будет пачками

DataModule2.ADOQuery2.SQL.Clear; // так ?

← →
Inovet © (2009-09-26 16:48) [61]

> [60] Ирг (26.09.09 16:44)
> >>// выполнять кто будет?
>
> DataModule2.ADOQuery2.ExecSQL; // так ?

Тебе в другой ветке уже говорили про метод Open()

← →
Ирг (2009-09-26 16:53) [62]

procedure TForm6.N1Click(Sender: TObject); var dir,jet:string; i,b:integer; begin b:=1; i:=1; DataModule2.ADOQuery2.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\;Extended Properties=dBASE IV;Persist Security Info=False"; jet:= DataModule2.ADOQuery2.ConnectionString; DBGrid1.Options:= DBGrid1.Options - [dgTitles]; DataModule2.ADOQuery2.SQL.Add("delete All from MyTable"); // удаление всех записей DataModule2.ADOQuery2.SQL.Add(" DataModule2.ADOQuery2.Close; DataModule2.ADOQuery2.SQL.Clear; while i<12 do begin dir := "jet"+IntTostr(i); DataModule2.ADOQuery2.SQL.Add("Insert into MyTable (IDn, f, i, o, dr, v, m, s, f) SELECT * from ((SELECT IDn, f, i, o, dr FROM Atab IN "b" "dBASE IV;") "); DataModule2.ADOQuery2.SQL.Add("INNER JOIN (SELECT IDn, v, m, s, f FROM Btab IN "b" "dBASE IV;") ON Atab.IDn = Btab.IDn) "); inc(i); inc(b); DataModule2.ADOQuery2.Open; DataModule2.ADOQuery2.SQL.Clear; end ; DataModule2.ADOQuery2.Active:=true;

← →
Сергей М. © (2009-09-26 16:53) [63]

> Ирг (26.09.09 16:08) [57]

А где же у тебя смена папок в цикле ?

← →
Ирг (2009-09-26 16:54) [64]

procedure TForm6.N1Click(Sender: TObject); var dir,jet:string; i,b:integer; begin b:=1; i:=1; DataModule2.ADOQuery2.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\;Extended Properties=dBASE IV;Persist Security Info=False"; jet:= DataModule2.ADOQuery2.ConnectionString; DBGrid1.Options:= DBGrid1.Options - [dgTitles]; DataModule2.ADOQuery2.SQL.Add("delete All from MyTable"); // удаление всех записей DataModule2.ADOQuery2.Close; DataModule2.ADOQuery2.SQL.Clear; while i<12 do begin dir := "jet"+IntTostr(i); DataModule2.ADOQuery2.SQL.Add("Insert into MyTable (IDn, f, i, o, dr, v, m, s, f) SELECT * from ((SELECT IDn, f, i, o, dr FROM Atab IN "b" "dBASE IV;") "); DataModule2.ADOQuery2.SQL.Add("INNER JOIN (SELECT IDn, v, m, s, f FROM Btab IN "b" "dBASE IV;") ON Atab.IDn = Btab.IDn) "); inc(i); inc(b); DataModule2.ADOQuery2.Open; DataModule2.ADOQuery2.SQL.Clear; end ; DataModule2.ADOQuery2.Active:=true;

← →
Ирг (2009-09-26 16:55) [65]

Вроде b переменная меняет ?

← →
Ирг (2009-09-26 17:14) [66]

>> А где же у тебя смена папок в цикле ?

//Вроде b переменная меняет --- нефига не меняет

Да блин нету а как же сделать то ?

← →
Ирг (2009-09-26 17:20) [67]

Даже если заместо b 1 ставлю все равно пишет "строка "b" или "1" задает ошибочный путь .........

← →
Омлет (2009-09-26 17:34) [68]

Охоспади, назначь конец света пораньше...

> Ирг

Давай, ты сначала книгу по Дельфи почитаешь, а потом придешь с вопросами?

← →
ИРГ (2009-09-26 17:37) [69]

>> Омлет
Я уже читал !!!

← →
Сергей М. © (2009-09-26 17:38) [70]

> "1" задает ошибочный путь

А разве есть такой путь ?)

← →
Сергей М. © (2009-09-26 17:48) [71]

> уже читал

Ну и чего ты там вычитал полезного ?
Расскажи ..

← →
Inovet © (2009-09-26 18:15) [72]

> [59] Сергей М. © (26.09.09 16:39)
> Реактивный огурец)

Хорошо не агрессивный - тупыми всех не обзывает.

← →
test © (2009-09-26 18:39) [73]

Inovet © (26.09.09 16:48) [61]
Вот куда ему Open если в запросе Insert стоит?

← →
ИРГ (2009-09-26 18:41) [74]

>> разве есть такой путь ?)

C:\1 такой есть !!!
но я же подключился
DataModule2.ADOQuery2.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\;Extended Properties=dBASE IV;Persist Security

значит теперь папки просто перебирать ?

>>Ну и чего ты там вычитал полезного ?
>>Расскажи ..

ВСЁ полезное

← →
test © (2009-09-26 18:48) [75]

ИРГ (26.09.09 18:41) [74]
Теперь смотри в справке и книге TSearchRec.
Кстати для DML exec для Select open

← →
Inovet © (2009-09-26 19:15) [76]

> [73] test © (26.09.09 18:39)
> Inovet © (26.09.09 16:48) [61]
> Вот куда ему Open если в запросе Insert стоит?

Действительно, извиняюсь, но эта тема уже столько версий "кода" пережила.

← →
boriskb © (2009-09-26 21:15) [77]

> ИРГ (26.09.09 18:41) [74]
> >> разве есть такой путь ?)

Есть и такой путь познания, но он не правильный.

Если ты не собираешься быть программистом, а тебе просто приспичило (и я бывало лез телевизор, ещё ламповый, чинить, хотя ничего в этом не понимаю. И починил же! :) ), так вот - если так, то всё таки лучше обратиться к специалисту. Тебя может оправдать если: а) очень приспичило, б) специалиста в пределах досигаемости не видно, в) время навалом.

Если же собираешься быть программистом, то бросай эту проблему и садись за учебники.
И наберись терпения на годик.
Это не в порядке издевательств, а вполне серьёзно, с наилучшими пожеланиями.

← →
MsGuns © (2009-09-26 23:34) [78]

Однако развод, господа

← →
ИРГ (2009-09-27 09:48) [79]

В учебниках нет конкретной этой проблемы.
Программистом я не буду мне приспичило нужно сейчас ....на меня свалили эту проблему нужно решить не решу писец полный ....

← →
ИРГ (2009-09-27 09:52) [80]

Как же менять папки ?

← →
Anatoly Podgoretsky © (2009-09-27 12:37) [81]

Писец полный, не пока еще не полный.

← →
Плохиш © (2009-09-27 13:05) [82]

> ИРГ (27.09.09 09:48) [79]
>
> В учебниках нет конкретной этой проблемы.
> Программистом я не буду мне приспичило нужно сейчас

Найми программиста.

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

← →
test © (2009-09-27 13:18) [83]

ИРГ (27.09.09 09:52) [80]
Если dbf в запросе подставляешь имя таблицы(*файла с путем*) и все ок.

Плохиш © (27.09.09 13:05) [82]
Нет именно писать все норовят, благо Васька с класса сказал что он свою сборку CS написал, а я чем хуже, я свою сборку Starcraft 2 напишу это жы просто ))

← →
ИРГ (2009-09-27 13:36) [84]

test ©
А как же программно менять путь ?

← →
Плохиш © (2009-09-27 13:40) [85]

> А как же программно менять путь ?

переменная := путь;

← →
ИРГ (2009-09-27 13:48) [86]

у меня объявленная переменная
b:=1;

while i<12 do
begin
dir := "jet"+IntTostr(i);
DataModule2.ADOQuery2.SQL.Add("Insert into MyTable (IDn, f, i, o, dr, v, m, s, f) SELECT * from ((SELECT IDn, f, i, o, dr FROM Atab IN "b" "dBASE IV;") ");
DataModule2.ADOQuery2.SQL.Add("INNER JOIN (SELECT IDn, v, m, s, f FROM Btab IN "b" "dBASE IV;") ON Atab.IDn = Btab.IDn) ");
inc(i);
inc(b); // прибавляет + 1

в чем дело не пойму !

← →
Inovet © (2009-09-27 13:58) [87]

> [86] ИРГ (27.09.09 13:48)

Вот это что
dir := "jet"+IntTostr(i);

Не знаю зачем там "jet", убери, раз в имени такого нет соответсвенно будет
"... FROM " + dir + " ..."

← →
ИРГ (2009-09-27 14:18) [88]

Все равно пишет ошибочный путь похоже подключение не правильно

← →
Inovet © (2009-09-27 14:22) [89]

> [88] ИРГ (27.09.09 14:18)
> Все равно пишет ошибочный путь похоже подключение не правильно

Надеюсь в обеих местаз исправил

← →
ИРГ (2009-09-27 14:29) [90]

Inovet ©

Спасибо ошибочный путь теперь не пишет

Ошибка неправильно определен объект parameter

← →
ИРГ (2009-09-27 16:31) [91]

Insert into не пашет ни фига

← →
test © (2009-09-27 17:56) [92]

ИРГ (27.09.09 16:31) [91]
тебе нужно соединение с бд куда инсерт будешь делать, тебе нужна созданная таблица и бд

← →
Anatoly Podgoretsky © (2009-09-27 18:03) [93]

> ИРГ (27.09.2009 16:31:31) [91]

Издеваешься над форумом, стебешься.

← →
Сергей М. © (2009-09-27 18:23) [94]

> ошибочный путь теперь не пишет

А куда делась b ?

← →
Ирг (2009-09-28 06:52) [95]

var dir:string; i:integer; begin i:=1; DataModule2.ADOQuery2.ConnectionString:="Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\;Extended Properties=dBASE IV;Persist Security Info=False"; DBGrid1.Options:= DBGrid1.Options - [dgTitles]; DataModule2.ADOQuery2.SQL.Add("delete All from MyTable"); DataModule2.ADOQuery2.Close; DataModule2.ADOQuery2.SQL.Clear; while i<12 do begin dir := "С:\"+IntTostr(i); DataModule2.ADOQuery2.SQL.Add("Insert into MyTable (IDn, f, i, o, dr, v, m, s, f) SELECT * from ((SELECT IDn, f, i, o, dr FROM Atab IN "+dir +" "dBASE IV;") "); DataModule2.ADOQuery2.SQL.Add("INNER JOIN (SELECT IDn, v, m, s, f FROM Btab IN "+dir +" "dBASE IV;") ON Atab.IDn = Btab.IDn) "); inc(i); DataModule2.ADOQuery2.ExecSQL; DataModule2.ADOQuery2.SQL.Clear; end ; DataModule2.ADOQuery2.Active:=true;

b нету она и ненужна

dir := "С:\"+IntTostr(i);
Имя файла настоящее должно быть, то которое у тебя реально существует.
например:
c:\output\1.dbf

что то вроде такого
dir := "С:\<директория где твои файлы лежат>\<имя файла>"+IntTostr(i)+".dbf";

Это не ответный прикол с Королевства?

> Имя файла настоящее должно быть, то которое у тебя реально существует.
> например:
> c:\output\1.dbf
не обязательно, т.к. там часть пути в конекте, т.е. в сумме они должны давать реальный путь и файл, а не все в имени файла. хотя, все в имени, тоже вполне рабочий вариант.

> Это не ответный прикол с Королевства?
х.з. может сам по себе придуривается, а может и не придуривается....

> b нету она и ненужна

А где коннекшн ? Где создание MyTable ?

← →
Ирг (2009-09-28 09:16) [100]

Мне не до приколов !!!!!

так ?
var dir:string; i:integer; begin i:=1; DataModule2.ADOQuery2.ConnectionString:="Provider=MSDASQL.1;Persist Security Info=False;Data Source=Файлы dBASE;Initial Catalog=C:\"; DBGrid1.Options:= DBGrid1.Options - [dgTitles]; DataModule2.ADOQuery2.SQL.Add("create table MyTable (intval1 int, intval2 int)"); DataModule2.ADOQuery2.Close; DataModule2.ADOQuery2.SQL.Clear; while i<12 do begin dir := "С:\"+IntTostr(i); DataModule2.ADOQuery2.SQL.Add("Insert into MyTable (IDn, f, i, o, dr, v, m, s, f) SELECT * from ((SELECT IDn, f, i, o, dr FROM Atab IN "+dir +" "dBASE IV;") "); DataModule2.ADOQuery2.SQL.Add("INNER JOIN (SELECT IDn, v, m, s, f FROM Btab IN "+dir +" "dBASE IV;") ON Atab.IDn = Btab.IDn) "); inc(i); DataModule2.ADOQuery2.ExecSQL; DataModule2.ADOQuery2.SQL.Clear; end ; DataModule2.ADOQuery2.Active:=true;

Ирг (28.09.09 09:16) [100]
Колчиство типы полей в таблице должны совпадать с запросом
create table MyTable (intval1 int, intval2 int)
Запросу просто некуда все это писать, не забудь чтобы типы совпадали
Insert into MyTable (IDn, f, i, o, dr, v, m, s, f)
Ну и табллицу ты где создаешь?

sniknik © (28.09.09 08:03) [98]
Не знал

← →
Ирг (2009-09-28 09:43) [102]

> Колчиство типы полей в таблице должны совпадать с запросом
> create table MyTable (intval1 int, intval2 int)
> Запросу просто некуда все это писать, не забудь чтобы типы
> совпадали
> Insert into MyTable (IDn, f, i, o, dr, v, m, s, f)
> Ну и табллицу ты где создаешь?

Это я не забуду !
Таблицу создаю на С:\

А подключаюсь правильно ?

> DataModule2.ADOQuery2.ExecSQL;
> DataModule2.ADOQuery2.SQL.Clear;
> end ;
> DataModule2.ADOQuery2.Active:=true;
>

Это что за ерунда ?

← →
Ирг (2009-09-28 10:01) [104]

DataModule2.ADOQuery2.ExecSQL; // запускаем запрос
DataModule2.ADOQuery2.SQL.Clear; // чистим SQL запрос для следующего круга

end ;
DataModule2.ADOQuery2.Active:=true; // после прохождения цикла активаровать запрос чтоб DBGrid1 вывел на экран

← →
Ирг (2009-09-28 10:18) [105]

DataModule2.ADOQuery2.SQL.Add("Insert into MyTable (IDn, f, i, o, dr, v, m, s, f) SELECT * from ((SELECT IDn, f, i, o, dr FROM Atab IN "+dir +" "dBASE IV;") ");
DataModule2.ADOQuery2.SQL.Add("INNER JOIN (SELECT IDn, v, m, s, f FROM Btab IN "+dir +" "dBASE IV;") ON Atab.IDn = Btab.IDn) ");

Запрос по моему у меня страдает ?

> после прохождения цикла активаровать запрос чтоб DBGrid1
> вывел на экран

Чего вывел-то ?
Запроса-то никакого нет - ты ж только что убил его текст строкой DataModule2.ADOQuery2.SQL.Clear)

← →
Ирг (2009-09-28 10:41) [107]

Вот блин !!!

так

var dir:string; i:integer; begin i:=1; DataModule2.ADOQuery2.ConnectionString:="Provider=MSDASQL.1;Persist Security Info=False;Data Source=Файлы dBASE;Initial Catalog=C:\"; DBGrid1.Options:= DBGrid1.Options - [dgTitles]; DataModule2.ADOQuery2.SQL.Add("create table MyTable (intval1 int, intval2 int)"); DataModule2.ADOQuery2.Close; DataModule2.ADOQuery2.SQL.Clear; while i<12 do begin DataModule2.ADOQuery2.SQL.Clear; dir := "С:\"+IntTostr(i); DataModule2.ADOQuery2.SQL.Add("Insert into MyTable (IDn, f, i, o, dr, v, m, s, f) SELECT * from ((SELECT IDn, f, i, o, dr FROM Atab IN "+dir +" "dBASE IV;") "); DataModule2.ADOQuery2.SQL.Add("INNER JOIN (SELECT IDn, v, m, s, f FROM Btab IN "+dir +" "dBASE IV;") ON Atab.IDn = Btab.IDn) "); inc(i); DataModule2.ADOQuery2.ExecSQL; end ; DataModule2.ADOQuery2.Active:=true;

И что изменилось ?
Как была ерунда, так и осталась)

> [107] Ирг (28.09.09 10:41)

SELECT * FROM MyTable

← →
Thrashead (2009-09-28 11:50) [110]

var
dir: String;
i: Integer;
begin
DataModule2.ADOQuery2.ConnectionString:="Provider=MSDASQL.1;Persist Security Info=False;Data Source=Файлы dBASE;Initial Catalog=C:\";
DBGrid1.Options:=DBGrid1.Options-[dgTitles];
DataModule2.ADOQuery2.SQL.Add("CREATE TABLE MyTable (IntVal1 INT, IntVal2 Int)");
DataModule2.ADOQuery2.ExecSQL;
DataModule2.ADOQuery2.Close;
for i:=1 to 12 do
begin
dir := "С:\"+IntToStr(i);
DataModule2.ADOQuery2.SQL.Clear;
DataModule2.ADOQuery2.SQL.Add("INSERT INTO MyTable (IDn, f, i, o, dr, v, m, s, f) SELECT A.IDn, A.f, A.i, A.o, A.dr, B.v, B.m, B.s, B.f FROM Atab A IN ""+dir +"" "dBASE IV;", Btab B IN ""+dir +"" "dBASE IV;" WHERE A.IDn=B.IDn");
DataModule2.ADOQuery2.ExecSQL;
end;
DataModule2.ADOQuery2.Close;
DataModule2.ADOQuery2.SQL.Clear;

← →
Ирг (2009-09-28 11:51) [111]

> И что изменилось ?
> Как была ерунда, так и осталась)

объясни пожалуйста где ерунда почему ерунда как сделать не ерунду

> SELECT * FROM MyTable

это же просто запрос а мне нужно сохранить эту выборку для дальнейшей эксплуатации

>Вот блин !!!

Это не блин, а целая пекарня однако !

>DataModule2.ADOQuery2.SQL.Add("create table MyTable (intval1 int, intval2 int)");
>DataModule2.ADOQuery2.Close;
>DataModule2.ADOQuery2.SQL.Clear;

1-й строкой в квери заносится запрос, 2-й НЕОТКРЫТЫЙ запрос закрывается
3-й запрос чистит все, что было занесено 1-м

Это что за эквилибристика ?

Кроме того, прежде чем создавать таблицу неплохо бы провереть може она существует уже - в этом случае вместо создания нужна просто очистка: Delete from MyTable

После цикла вставок сразу вот это:

DataModule2.ADOQuery2.Active:=true;

При этом текст запрооса должен быть не Insert, а select

Чтобы не путаться лучше использовать 2 разных квери - один для созданий и вставок (не возвращающий нд), второй - читающий, который и привязывать к сетке

← →
Thrashead (2009-09-28 11:53) [113]

Не знаю, надо ли закрывать (Close) запрос перед его очисткой (Clear)... Кто знает - уточните?

← →
Ирг (2009-09-28 11:54) [114]

> SELECT * FROM MyTable

или имееш ввиду так

Insert into MyTable (IDn, f, i, o, dr, v, m, s, f) SELECT ((SELECT IDn, f, i, o, dr FROM Atab IN "+dir +" "dBASE IV;") INNER JOIN (SELECT IDn, v, m, s, f FROM Btab IN "+dir +" "dBASE IV;") ON Atab.IDn = Btab.IDn)

почему запрос может не работать

← →
Thrashead (2009-09-28 11:55) [115]

MsGuns: про два разных запроса
+1

> мне нужно сохранить эту выборку

Ты ее и сохраняешь в SQL-предложении INSERT

> для дальнейшей эксплуатации

"Дальнейшая эксплуатация" - это, надо понимать, просмотр в DBGrid того что получилось в результате выполнения SQL-предложении INSERT ?

Ну так а где ты делаешь выборку из результирующей таблицы MyTable ?
Где выполнение SELECT-предложения ?
Нигде.
Вот она и есть ерунда)

Вся фишка в том, что вы пытаетесь объяснить таксисту куда ехать с помощью жестов вместо того, чтобы просто назвать адрес.
Поймите одну простую вещь - если Вы хотите сохранить РЕЗУЛЬТАТ объединения, то его следует поместить в какую-то таблицу. В Вашем примере - это MyTable.
Для перезаписи файлов в эту таблицу Вы должны использовать сначала ПОДГОТОВКУ ее (создание с предварительным удалением или очисткой: второе - грамотнее).
Затем запросами к КАЖДОМУ файлу ОТДЕЛЬНО переписать их содержимое в MyTable.

Это - ПЕРВАЯ задача

Вторая задача - это ОТОБРАЗИТЬ содержимое MyTable в сетке. Для этого используется ДРУГОЙ запрос. Можно, конечно, для решения обеих задач обойтись одним компонентом Query, но надо правильно работать с ним, подготавливая правильные тексты запросов и в правильной последовательности их выполнять. С этим у Вас проблемы в виду полного непонимания того, что Вы делаете. Поэтому совет воспользоваться для отображения другой компонентой, лучше TADODataSet. Думаю, при такой постановке у Вас будет меньше путаницы

> [114] Ирг (28.09.09 11:54)
>
> > SELECT * FROM MyTable
>
> или имееш ввиду так

Нет. Это уже для отображения перед
DataModule2.ADOQuery2.Active:=true;

> не решу писец полный

Судя по отсутствию автора, полный подкрался незаметно)

← →
Ирг (2009-09-30 06:22) [120]

>
> Судя по отсутствию автора, полный подкрался незаметно)

Да !!!

И ваши советы не помогли не хрена

> ваши советы не помогли

Прискорбно.

> И ваши советы не помогли не хрена

Нечего на зеркало пенять коли рожа крива.

← →
Ирг (2009-09-30 08:43) [123]

> Нечего на зеркало пенять коли рожа крива.

Я без вас тупиц сам все решил !!!
Просто SQL додумал без Ваших циклов бестолковых !!!
Вам надо не Мастерами DELPHI называться а USERами DELPHI

ПроЩе варианты искать надо ЮЗЕРЫ )))))))))))))))))

.опт! Парни!!! Давно так не ржал!!! Вот люблю я этот форум за то что тут много умных и весёлых людей!
Чуваку респект и уважуха, так тормозить, но при это так упорно идти к цели это большой талант!!!

← →
Thrashead (2009-09-30 10:11) [125]

ирг, покажешь своё гениальное решение?

← →
Ирг (2009-09-30 10:25) [126]

> ирг, покажешь своё гениальное решение?

Возьми книгу Марко Кенту по Дельфи, Joe Bonamassa

ТАМ ЕСТЬ ОТВЕТ !!! ))))

> SQL додумал

Пять дней мучался, бедняга..

← →
Аноним (2009-09-30 10:36) [128]

> ТАМ ЕСТЬ ОТВЕТ !!! ))))

слюной монитор не забрызгай

← →
Ирг (2009-09-30 10:37) [129]

>
> Пять дней мучался, бедняга..

С вашим циклом мучился

додумал я всего за 2 часа

> С вашим циклом мучился

Да кто ж тебя, горемычный, заставлял-то ?)
Неужто писец затмил разум ?)

← →
Ирг (2009-09-30 10:46) [131]

Ладно пока юзеры

весело тут, жаль я пропустил)

> пока

И после тобой сказанного ты еще на "пока" надеешься ?!)

Аминь, а не "пока")

> Возьми книгу Марко Кенту по Дельфи, Joe Bonamassa
настолько универсальная книга, что там есть справка по jet-у, его sql? причем не в виде "общих знаний", а в виде ответов... странно весьма.

> [123] Ирг (30.09.09 08:43)
> Я без вас тупиц сам все решил !!!

Эх... Я-то думал

> [72] Inovet © (26.09.09 18:15)
> > [59] Сергей М. © (26.09.09 16:39)
> > Реактивный огурец)
>
> Хорошо не агрессивный - тупыми всех не обзывает.

а закончилось так банально...

запрос SQL Найти похожие ветки