| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

проблема с АДО и Oracle [D7]

nika_ufc ©   (2004-04-10 14:10:00) 

мужики помогите.
хочу из базы сделать рапорт (из Oracle). Connection делаю через АДО. но рапорт должен бить в формате .txt .
есть ли какой-нибудь компонент или класс который поможет меня в этом ? может у АДО есть что-то такое ? икал много но ничего ценного не смог найти.

сапасибо за помощь заранее .

---

RayRom   (2004-04-11 16:34:00) [1]

Если есть мыло, то полностью модуль экспорта из ДБГрида вышлю, тока как я уже говорил там только ХТМЛ или ЦСВ, если сможеш то есче и РТФ можеш добавить!
Если надо модуль кидай свое мыло!

---

nika_ufc   (2004-04-10 22:17:00) [2]

спасибо тебе большое. пригодится не то слово !

---

RayRom   (2004-04-10 21:11:00) [3]

Извини малеха обшибся, тут у мя из грида создает или ХТМЛ или ЦСВ фал радиовутоном определяется, а чекбоксом определяется выводить названия полей в ХТМЛе или нет

---

RayRom   (2004-04-10 19:04:00) [4]

Компонент ручками писать надо могу аоделится как в ХТМЛ Грид перегонять:
procedure TConvert.OKBtnClick(Sender: TObject);
var F1 : TextFile;
   indfil, inddat : integer;
begin
 AssignFile(F1, FileNameEdit1.FileName);
 {$I-}
 Rewrite(F1);
 {$I+}
 if (IOResult <> 0) or (FDataSet = nil) then
   begin
     MessageBox(0,'Невозможно создать файл или'#13#10'не определен набор данных!!!','Предупреждение!',
        MB_OK or MB_ICONWARNING or MB_APPLMODAL);
     CloseFile(F1);
   end
 else
   if RadioButton1.Checked then // Тута проверка на отображение полей в заголовке формы
   begin
     indfil := FDataSet.FieldCount;
     WriteLn(F1, '<html>'#13#10'<meta http-equiv="Contetnt-Type" content="text/html; charset=windows-1251">');
     WriteLn(F1, '<title>', FileNameEdit1.FileName, '</title>');
     WriteLn(F1, '<body>'#13#10'<font face="Arial">');
     WriteLn(F1, '<table col="', indfil, '" border="1" cellpadding="2" cellspacing="0">');
     if CheckBox1.Checked then
       begin
         Write(F1, '<tr>');
         for indfil := 0 to FDataSet.FieldCount - 1 do
           Write(F1, '<td>', FDataSet.Fields[indfil].FieldName,'</td>');
         WriteLn(F1, '</tr>');
       end;
     for inddat := 1 to FDataSet.RecordCount do
       begin
         Write(F1, '<tr>');
         FDataSet.RecNo := inddat;
         for indfil := 0 to FDataSet.FieldCount - 1 do
           begin
             Write(F1, '<td>', FDataSet.Fields[indfil].AsString,'</td>');
           end;
         WriteLn(F1, '</tr>');
       end;
     WriteLn(F1, '</table>'#13#10'</font>'#13#10'</body>'#13#10'</html>');
   end
 else
   if RadioButton3.Checked then
   begin
     indfil := FDataSet.FieldCount;
     for inddat := 1 to FDataSet.RecordCount do
       begin
         FDataSet.RecNo := inddat;
         for indfil := 0 to FDataSet.FieldCount - 1 do
           begin
             Write(F1, FDataSet.Fields[indfil].AsString,',');
           end;
         WriteLn(F1);
       end;
   end;
 CloseFile(F1);
end;

---

Наверх