SQL

← →
Nicky000 (2008-03-20 21:39) [0]

Добрый день! Помогите пожалуйста с написанием кода.

Использую БД Oracle. Компоненты ODAC. Есть запрос:

select pc.CLIENT,
pc.NAME,
pc.LINKCLIENT,
cus.CUSTID
from postclnt pc
inner join customer cus on pc.CLIENT = cus.CLIENT
where
pc.CLIENT in (SELECT P.CLIENT
FROM POSTCLNT P
CONNECT BY PRIOR P.CLIENT =P.LINKCLIENT
START WITH P.CLIENT= Номер Агента)

Как сделать, чтобы "Номер агента" можно было вводить через, например, TEdit и получать строку с данными только для этого агента?

Нужен полный код самой реализации запросов с помощью TOraQuery и код обработки нажатия клавиши для исполнения запроса.

← →
Kolan © (2008-03-20 22:33) [1]

> Нужен полный код самой реализации запросов с помощью TOraQuery
> и код обработки нажатия клавиши для исполнения запроса.

Забыл только сумму озвучить.

← →
tesseract © (2008-03-20 22:52) [2]

> Как сделать, чтобы "Номер агента" можно было вводить через,
> например, TEdit и получать строку с данными только для
> этого агента?

select pc.CLIENT, pc.NAME, pc.LINKCLIENT, cus.CUSTID from postclnt pc inner join customer cus on pc.CLIENT = cus.CLIENT where pc.CLIENT in (SELECT P.CLIENT FROM POSTCLNT P inner join PRIOR P.CLIENT =P.LINKCLIENT Where P.CLIENT= "+Edit1.Text+")

С вас 100 УЁ. За текст нормального запроса 200.

← →
Nicky000 (2008-03-20 23:08) [3]

Чувство юмора заценила. Спасибо.

← →
tesseract © (2008-03-20 23:10) [4]

> Чувство юмора заценила. Спасибо.

Скажешь, что конкретно надо, получишь конкретный ответ. Запрос студенческий.

← →
nicky000 (2008-03-21 10:01) [5]

Запрос может и студенческий. А как на выходе сформировать из этого запроса текстовой файл следующего содержания:

insert into AgentTMP (id, name, client, parent_client, cust_id,root_cust_id,status) values (SEQ_MESS.NEXTVAL, "Банк 1 (Филиал №5 Финансовое Сервис Бюро)",10008,10007,10008,10006,0);

insert into AgentTMP (id, name, client, parent_client, cust_id,root_cust_id,status) values (SEQ_MESS.NEXTVAL, "Банк 1 (Филиал №5 - Отделение №1 Финансовое Сервис Бюро)",10016,10008,10016,10006,0);

insert into AgentTMP (id, name, client, parent_client, cust_id,root_cust_id,status) values (SEQ_MESS.NEXTVAL, "Банк 1 (Филиал №5 - Отделение №2 Финансовое Сервис Бюро)",10017,10008,10017,10006,0);

> А как на выходе сформировать из этого запроса текстовой
> файл следующего содержания:

Примерно так. Не думай, что скомпилируеться конечно.
var str:string; ExpFile:TextFile; begin AssignFile(ExpFile,PathToFileWithName); rewrite(expFile); for i:=1 to Query.RecordCount do begin str:=" insert into "+tablename +" (" for i:=1 to Query.FieldCount do str:=str+"FieldName+","; Str:=str+" ) values("; for i:=1 to Query.FieldCount do str:=str+Query.FieldByname(FieldName).AsString+","; ExpFile.Writeln(Str); end; CloseFile(ExpFile); end;

Очередной банк клиент готов :-)

← →
nicky000 (2008-03-25 11:39) [7]

Использовала такой код
var
F : TextFile;
begin
AssignFile(f, "c:\MyFile.txt");
ReWrite(F);
with MyDataSet do//здесь DataSet
while not Eof do begin
WriteLn(F, "insert into AgentTMP (id, name, client, parent_client, cust_id,root_cust_id,status) values (SEQ_MESS.NEXTVAL, " + QuotedStr(FieldByName("Bank").AsString) + "," + FieldByName("10008").AsString + "," + ... + ")";
Next;
end;//while
end;
Но задача такая:
Мой запрос формирует только это:
"Банк 1 (Филиал №5 Финансовое Сервис Бюро)",10008,10007,10008,10006,0);

Все остальное:
insert into AgentTMP (id, name, client, parent_client, cust_id,root_cust_id,status) values (SEQ_MESS.NEXTVAL,

должно добавляться, например, из memo и формировать файл, который в последствии будет готовым запросом. Я совсем в потерянности ((( (Файл желательно сохранять в выбранную директорию)

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