Сохранение таблицы из dbgrid в файл (oracle, delphi)

[blr_spy]

Нужна ооочнь помощь!!
Программа сделана в delphi, которая отображает таблицы из oracle
таблицы в dbgrid
например выполнен запрос, появились данные ввиде таблицы в dbgrid

как ети данные сохранить в файл (желательно док)
тк если просто в тхт то все в разброс получается

заранее благодарен!

[DIgorevich]

Ищи по поиску "Экспорт DBGrid в Excel, Word"

[blr_spy]

другой вопросик )
как вытянуть одну дату (т.е поиск только по году)
сделал эдит на форме и туда значение года

procedure TForm1.ComboBox2Change(Sender: TObject);
var a:string;
begin
a:=Edit2.Text;
If form1.ComboBox2.ItemIndex=0 then
adoQuery1.SQL.Text:='select Ustr.U_ID, Org.O_ID, Ustr.Inven_Nomer, Tip_Ust.Name from Tip_Ust, Ustr, Org where (Ustr.Data_Post>='+a+'01.01.'+Edit4.Text+a+'and Ustr.Data_Post<='+a+'31.12.'+Edit4.Text+a+'and Org.O_ID=Ustr.O_ID and Ustr.T_ID=Tip_Ust.T_ID)';
adoQuery1.Active:=true;
If form1.ComboBox2.ItemIndex=1 then
adoQuery1.SQL.Text:='select Ustr.U_ID, Org.O_ID, Ustr.Inven_Nomer, Tip_Ust.Name from Tip_Ust, Ustr, Org where (Ustr.Data_Post>='+a+'01.01.'+Edit5.Text+a+'and Ustr.Data_Post<='+a+'31.12.'+Edit5.Text+a+'and Org.O_ID=Ustr.O_ID and Ustr.T_ID=Tip_Ust.T_ID)';
adoQuery1.Active:=true;
If form1.ComboBox2.ItemIndex=2 then
adoQuery1.SQL.Text:='select Ustr.U_ID, Org.O_ID, Ustr.Inven_Nomer, Tip_Ust.Name from Tip_Ust, Ustr, Org where (Ustr.Data_Post>='+a+'01.01.'+Edit6.Text+a+'and Ustr.Data_Post<='+a+'31.12.'+Edit6.Text+a+'and Org.O_ID=Ustr.O_ID and Ustr.T_ID=Tip_Ust.T_ID)';
adoQuery1.Active:=true;
If form1.ComboBox2.ItemIndex=3 then
adoQuery1.SQL.Text:='select Ustr.U_ID, Org.O_ID, Ustr.Inven_Nomer, Tip_Ust.Name from Tip_Ust, Ustr, Org where (Ustr.Data_Post>='+a+'01.01.'+Edit7.Text+a+'and Ustr.Data_Post<='+a+'31.12.'+Edit7.Text+a+'and Org.O_ID=Ustr.O_ID and Ustr.T_ID=Tip_Ust.T_ID)';
adoQuery1.Active:=true;
If form1.ComboBox2.ItemIndex=4 then
adoQuery1.SQL.Text:='select Ustr.U_ID, Org.O_ID, Ustr.Inven_Nomer, Tip_Ust.Name from Tip_Ust, Ustr, Org where (Ustr.Data_Post>='+a+'01.01.'+Edit8.Text+a+'and Ustr.Data_Post<='+a+'31.12.'+Edit8.Text+a+'and Org.O_ID=Ustr.O_ID and Ustr.T_ID=Tip_Ust.T_ID)';
adoQuery1.Active:=true;
If form1.ComboBox2.ItemIndex=5 then
adoQuery1.SQL.Text:='select Ustr.U_ID, Org.O_ID, Ustr.Inven_Nomer, Tip_Ust.Name from Tip_Ust, Ustr, Org where (Ustr.Data_Post>='+a+'01.01.'+Edit9.Text+a+'and Ustr.Data_Post<='+a+'31.12.'+Edit9.Text+a+'and Org.O_ID=Ustr.O_ID and Ustr.T_ID=Tip_Ust.T_ID)';
adoQuery1.Active:=true;
end;

но выводит пустую таблицу
по гуглил нашел
SELECT VIN, TIME_NUMBER_SELLER, CIPHER_BUYER, DATE_SALE
FROM ACCOUNT_SALES
WHERE DATE_SALE between '2007/01/01' and '2007/12/31' ;
но чет не получается записать(

[Serge_Bliznykov]

используйте параметрические запросы.

Поищите на форуме. Я давал подобные пример неоднократно.

[Stilet]

Плюс к этому я бы как минимум переписал пример так:

procedure TForm1.ComboBox2Change(Sender: TObject);
var a,b:string;
begin
 case form1.ComboBox2.ItemIndex of
  0:b:=Edit4.Text;
  1:b:=Edit5.Text;
  2:b:=Edit6.Text;
  3:b:=Edit7.Text;
  4:b:=Edit8.Text;
  5:b:=Edit9.Text;
 end;

with adoQuery1.SQL do begin
 Add('select Ustr.U_ID, Org.O_ID, Ustr.Inven_Nomer, Tip_Ust.Name');
 add(' from Tip_Ust, Ustr, Org');
 add(' where (Ustr.Data_Post>='+a+'01.01.'+b+a);
 add(' and Ustr.Data_Post<='+a+'31.12.'+b+a);
 add(' and Org.O_ID=Ustr.O_ID and Ustr.T_ID=Tip_Ust.T_ID)';
end;
...
end;

[blr_spy]

Stilet,

сделал как ты отписал
но результат пустая таблица(

[Stilet]

blr_spy

А ты не хочешь последовать совету Сержа Близнюкова?
Посмотри как работать с методом AddParameter для ADOQuery
У тебя просто запрос так составлен что условия неверны.

[blr_spy]

перепробовав множесто запросов вывод

в оракле когда создаю табл

Create table Ustr
(
U_ID number(6) primary key,
O_ID number(6) REFERENCES Org,
T_ID number(6) REFERENCES Tip_Ust,
OT_ID number(6) REFERENCES Otdel,
Name varchar(50),
Inven_Nomer varchar(10),
Data_Post date,
Tehn_har varchar(250)
)

INSERT INTO Ustr (U_ID, O_ID, T_ID, OT_ID, Name, Inven_Nomer, Data_Post, Tehn_har) VALUES(11111,1,111,11,'Intel Pentium 4','q1','12.01.2010','Asus P4P800-X HDD 40 Gb Samsung 7200 GeForce4 MX440 64Mb');

допустим при просмотре в оракле что получилось там дата имеет вид 12.01.10
а когда открываю таблицы в делфи программно там в ячейке 12.01.2010
или надо заново INSERT данные или в делфи задавать запрос чтоб формат даты был одинаков с оракуловским?
через to_date я чет не врубаюсь как там че писать )

[blr_spy]

через AddParameter пробовал чет не получается(