구조체로 정형화된 문자열로 텍스트 파일에 저장시켜 놓으면 그걸 하나씩 불러와서 간단히 다시 데이타베이스에 저장할 수 있습니다.
TStruct = Record
A : string[10];
B : string[10];
C : string[10];
D : string[10];
end;
....
// 구조체로 정형화된 문자열로 저장한다.
procedure TForm1.Button1Click(Sender: TObject);
var
F : File of TStruct;
FSet : TStruct;
begin
Memo1.Clear;
if not SaveDialog1.Execute then exit;
Memo1.Lines.Add('Table의 내용을 저장합니다.');
AssignFile(F, SaveDialog1.FileName);
Rewrite(F);
Table1.First;
While not Table1.Eof do begin
FSet.A := Table1.FieldByName('OrderNo').AsString;
FSet.B := Table1.FieldByName('ItemNo').AsString;
FSet.C := Table1.FieldByName('PartNo').AsString;
FSet.D := Table1.FieldByName('Qty').AsString;
Write(F, FSet);
Table1.Next;
end;
CloseFile(F);
Memo1.Lines.Add('저장완료..')
end;
// 저장했던 정형화된 텍스트자료를 빼와서 데이타베이스에 저장한다.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
F : File of TStruct;
Fset : TStruct;
begin
if not OpenDialog1.Execute then Exit;
AssignFile(F, OpenDialog1.FileName);
Reset(F);
while not Eof(F) do begin
Read(F, Fset);
with Query1 do begin
Close;
SQL.Clear;
SQL.Add(' INSERT INTO ITEMSBACKUP(A,B,C,D) VALUES('''+Fset.A+''','''+Fset.B+''','''+Fset.C+''','''+Fset.D+''') ');
ExecSQL;
end;
end;
CloseFile(F);
with Query1 do begin
Close;
SQL.Clear;
SQL.Add(' SELECT * FROM ITEMSBACKUP ');
Open;
end;
ADODataSet.SaveToFile('FileName'); 으로 저장된 DataSet을 나중에 ADODataSet.LoadFromFile('FileName'); 으로 불러왔습니다. 이 데이터셋을 DB Table에 Insert(저장)하려면 어떻게 해야 하는지요? 결론적으로 말하자면, DataSet을 물리...
미소나눔
•
2002.06.26 00:23
구조체로 정형화된 문자열로 텍스트 파일에 저장시켜 놓으면 그걸 하나씩 불러와서 간단히 다시 데이타베이...
TStruct = Record
A : string[10];
B : string[10];
C : string[10];
D : string[10];
end;
....
// 구조체로 정형화된 문자열로 저장한다.
procedure TForm1.Button1Click(Sender: TObject);
var
F : File of TStruct;
FSet : TStruct;
begin
Memo1.Clear;
if not SaveDialog1.Execute then exit;
Memo1.Lines.Add('Table의 내용을 저장합니다.');
AssignFile(F, SaveDialog1.FileName);
Rewrite(F);
Table1.First;
While not Table1.Eof do begin
FSet.A := Table1.FieldByName('OrderNo').AsString;
FSet.B := Table1.FieldByName('ItemNo').AsString;
FSet.C := Table1.FieldByName('PartNo').AsString;
FSet.D := Table1.FieldByName('Qty').AsString;
Write(F, FSet);
Table1.Next;
end;
CloseFile(F);
Memo1.Lines.Add('저장완료..')
end;
// 저장했던 정형화된 텍스트자료를 빼와서 데이타베이스에 저장한다.
procedure TForm1.BitBtn1Click(Sender: TObject);
var
F : File of TStruct;
Fset : TStruct;
begin
if not OpenDialog1.Execute then Exit;
AssignFile(F, OpenDialog1.FileName);
Reset(F);
while not Eof(F) do begin
Read(F, Fset);
with Query1 do begin
Close;
SQL.Clear;
SQL.Add(' INSERT INTO ITEMSBACKUP(A,B,C,D) VALUES('''+Fset.A+''','''+Fset.B+''','''+Fset.C+''','''+Fset.D+''') ');
ExecSQL;
end;
end;
CloseFile(F);
with Query1 do begin
Close;
SQL.Clear;
SQL.Add(' SELECT * FROM ITEMSBACKUP ');
Open;
end;
end;
즐푸하세용..~~