菜鸟请教---急~~~~~~~

Question

我做一个彩票的程序.遇到困难:我要打开一个文本文件,让里面的内容自动写入数据库,要怎么做?

Answer 1

补充一下,文本内容是以往彩票数据.数据库用access.

Answer 2

UPUP
才几分钟就跑没了
有人捣蛋!!!!!

Answer 3

是不是从access读取，然后向文本里写啊

Answer 4

你套用一下以下代码吧！procedure TFrontForm.ButtonOkClick(Sender: TObject);
var
      CheckString : string;
begin
    ListString := TStringList.Create;
    
    ListString.LoadFromFile(文件路径名);    AllCaption.Visible := true;
    AllNum.Visible := true;
    AddTitle.Visible := true;    AllRecord := ListString.Count;
    AllNum.Caption := inttostr(AllRecord);    if (AllRecord = 0) then begin
        showmessage('请选择要导入的考勤记录文件');        abort;
    end;    IndexNum := 0;    AddRecord.Active := true;    while (IndexNum<>AllRecord) do begin
        CheckString := ListString.Strings[IndexNum];        AddRecord.Insert;
        AddRecord.FieldByName('cardid').AsString := copy(CheckString,1,8);
        AddRecord.FieldByName('operatedate').AsDateTime := strtodate('20' + copy(CheckString,9,2) + '-' + copy(CheckString,11,2) + '-' + copy(CheckString,13,2));
        AddRecord.FieldByName('operatetime').AsString := copy(CheckString,15,2) + ':' + copy(CheckString,17,2) + ':' + copy(CheckString,19,2);
        AddRecord.FieldByName('address').AsString := copy(CheckString,21,2);        AddRecord.Post;        IndexNum := IndexNum + 1;
    end;    AddRecord.UpdateBatch();
end;