作者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