作者guest2008 (guest)
看板Programming
標題Re: [問題] Delphi文字檔存入資料庫
時間Thu Sep 27 05:48:28 2012
看起來你是網路程式碼亂抄，你根本不懂你寫的程式碼在做啥事。
你的按鈕 1 的行為"永遠"會把你的資料庫資料全清空，你知道嗎??
你要是需求是把txt資料先放在介面，等使用者按按鈕確認才真儲存，
應該是擺放 StringGrid。
DBGrid 要是能顯示出資料，實際上早就吃進資料庫了，
沒資料原因是你又去按按鈕1 又把資料庫砍掉，重新定義一次。
※ 引述《small521 (薄荷綠)》之銘言：
: 請問各位版大,我寫了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: 1.170.10.182