Re: [問題] Delphi文字檔存入資料庫

看板Programming作者guest2008 (guest)時間13年前 (2012/09/27 05:48)推噓0(0推 0噓 0→)

留言0則, 0人參與討論串3/3 (看更多)

看起來你是網路程式碼亂抄，你根本不懂你寫的程式碼在做啥事。你的按鈕 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