запрос SQL

← →
Ирг (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]

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

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

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

> уже читал

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

← →
ИРГ (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

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

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

ВСЁ полезное

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

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

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

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

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

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

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

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

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

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

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

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

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