作者small521 (薄荷綠)
看板Programming
標題[問題] Delphi文字檔存入資料庫
時間Wed Sep 5 23:53:47 2012
請問各位版大,我寫了2個BUTTON,第一個BUTTON讀取文字檔並顯示在DBGRID
等待USER確認無誤,按BUTTON2存檔至資料庫中
目前問題,顯示至DBGGRID沒有問題,但是按下BUTTON不會存檔至資料庫
請版大協助~謝謝
procedure TForm1.Button1Click(Sender: TObject);
var
f: textfile;
wStr,filename: String;
wList: TStringList;
i: Integer;
begin
if OpenTextFileDialog1.Execute then
filename:= OpenTextFileDialog1.FileName;
if fileexists(filename)=true then
begin
wList := TStringList.Create;
ADODataSet1.Close;
ADODataSet1.FieldDefs.Clear;
ADODataSet1.FieldDefs.Add('ID', ftInteger);
ADODataSet1.FieldDefs.Add('DAT_SRDT', ftString, 8);
ADODataSet1.FieldDefs.Add('NUM_PS', ftString, 12);
ADODataSet1.FieldDefs.Add('COD_EMP', ftString, 5);
ADODataSet1.FieldDefs.Add('LIN_SRDT', ftString, 2);
ADODataSet1.CreateDataSet;
i := 1;
Assignfile(f, filename);
Reset(f);
while not eof(f) do
begin
Readln(f, wStr);
wList.CommaText := wStr;
ADODataSet1.Append;
ADODataSet1.FieldByName('ID').AsInteger := i;
ADODataSet1.FieldByName('DAT_SRDT').AsString := wList[0];
ADODataSet1.FieldByName('NUM_PS').AsString := wList[1];
ADODataSet1.FieldByName('COD_EMP').AsString := wList[2];
ADODataSet1.FieldByName('LIN_SRDT').AsString := wList[3];
Inc(i);
end;
closefile(f);
wList.Free;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
ADODataSet1.updateBatch(arAll);
end;
end.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 124.11.165.188
1F：→ zenko:試試append後post看看 111.248.205.18 09/08 15:47