db to Txt export and import

[rahim_azeri]

Merhaba arkadaslar..Ben Accessden verileri delphi ile nasil txt-ye export ve import ede bilirim?

[rahim_azeri]

Kardesler bu konuda bir bilen yokmu?

[rahim_azeri]

Kardesler export etmeyi buldum kodu asaqidaki kim kimese lazim olar..... amma importu nasil yapim bilemiyorum lutfen yardim edim...!

Kod: Tümünü seç

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  f:text;
  f_c,r_c,i,n:integer;
  str:string;
  dump:string;
  a:array[1..100] of string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
if not FileExists('DB_Dump.txt') then
begin
Rewrite (f,'DB_Dump.txt');
CloseFile(f);
end;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Text:='select * from oyunlar';
ADOQuery1.Open;
f_c:=ADOQuery1.FieldCount;
r_c:=ADOQuery1.RecordCount;
for n:=0 to r_c-1 do begin
for i:=0 to f_c-1 do
begin
dump:='';
a[i]:=ADOQuery1.Fields[i].AsString+'#';
AssignFile(f,'DB_Dump.txt');
Append(f);
Write (f,a[i]);
CloseFile(f);
end;
Append(f);
Writeln (f,'');
CloseFile(f);
ADOQuery1.Next;
end;
end;

end.

[orhancc]

işlemin tersini yapacaksın readln ile tüm satırları tek tek okuyup gerekli alanlara atacaksın.

[rahim_azeri]

Kardes ornek kodunu yazsan cok iyi olur...! Tesekkurler...