Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.03.2012, 21:49   #1
d_adilet
Пользователь
 
Регистрация: 13.01.2010
Сообщений: 49
По умолчанию Экспорт в db...

Хочу выгрузить данные в txt.
нашел пример в форуме и написал такой код, компилируется нормально, но данные не записывает

Заранее спасибо.

Можно ли таким образом записать не в txt а в db или в dbf ? если да, то можете пример дать?

Прошу сильно не ругать...первая неделя на Delphi.

Код:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, ADODB, Grids, DBGrids;

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery2: TADOQuery;
    btn1: TButton;
    dbgrd1: TDBGrid;
    ds1: TDataSource;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var s : string;
var F: TextFile;
var dump : string;
var i : Integer;
var f_c: Integer;
begin
  if not FileExists('DB_Dump.txt') then
    begin
      Rewrite (f,(ExtractFileDir(Application.ExeName)+'\txt\DB_Dump.txt'));
      CloseFile(f);
    end;
      ADOQuery2.Open;
      dump:='';
      f_c:=ADOQuery2.FieldCount;
      AssignFile(f,(ExtractFileDir(Application.ExeName)+'\txt\DB_Dump.txt'));
      Append(f);
      While not ADOQuery2.EOF do begin
        s := '';
      for i:=0 to f_c-1 do
        begin
          s := s + ADOQuery2.Fields[i].AsString+#9;
        end;
        Writeln(f);
        ADOQuery2.Next;
      end;
end;

end.

Последний раз редактировалось d_adilet; 06.03.2012 в 07:23.
d_adilet вне форума Ответить с цитированием
Старый 05.03.2012, 22:50   #2
Прик
Форумчанин
 
Регистрация: 08.09.2010
Сообщений: 880
По умолчанию

Writeln(f);
Это куда записываем, а что записываем?
Может быть так: Writeln(f, s);?
Закрывать текстовый файл после записи тоже надо.
Прик вне форума Ответить с цитированием
Старый 06.03.2012, 06:49   #3
d_adilet
Пользователь
 
Регистрация: 13.01.2010
Сообщений: 49
По умолчанию

Спасибо большое Прик

Помогите пожалуйста с кодом экспорта результатов запроса не в txt а в db или Dbf...
d_adilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Правильно ли сделал? cargo29 PHP 6 06.10.2011 17:09
есть ли ошибка и правильно ли сделал? cargo29 JavaScript, Ajax 1 12.09.2011 12:15
правильно ли я сделал алгоритм vitik Паскаль, Turbo Pascal, PascalABC.NET 3 11.01.2011 21:32
правильно ли я сделал pinch000 Общие вопросы C/C++ 0 29.10.2009 00:54