求代码

Question

是一个从文本文件导SQL2000数据库的程序，哪位大侠帮我写一段代码，要求用Delphi5，采用后全分赠送：
数据库表部分字段：
BilNO  Varchar(20),
Num int,
SDate DatetimeTXT文件部分内容：
AA0049001,1,2003/07/28,15:41:17
AA0049002,2,2003/07/28,15:41:18
500001509,4,2003/07/28,15:41:26
500001511,1,2003/07/28,15:41:29

Answer 1

var
  F: TextFile;
  s: string;
begin
  AssignFile(F,'C:\ad.Txt');
  Reset(F);
  while of Eof(F) do
  bein
    readln(F,s); 
    BilNO := Copy(s,0,pos(',',s)-1);
    Delete(s,1,pos(',',s));
    Num := StrToInt(Copy(s,0,pos(',',s)-1));
    Delete(s,1,pos(',',s));
    SDate := StrToDate(s);
  end;
  CloseFile(F);
end;//我在网吧写的，你稍微调试一下就行了

Answer 2

var
  i: Integer;
  ds: TADODataSet;
  FileStr, RecordStr: TStringList;
begin
  FileStr := TStringList.create;
  RecordStr := TStringList.create;
  
  ds.connectionstring := ....
  ds.commandtext := 'Select BilNO ,Num,SDate Datetime from txxx where 1=0';
  ds.open;
  
  FileStr.loadfromfile('xxxxxx\xxxxxx\xxxxx.txt');  for i:= 0 to FileStr.count - 1 do
  begin
    recordStr.commatext := FileStr[i];
    ds.insert
    ds.Fields[0].asstring := recordstr[0];
    ds.Fields[1].asstring := recordstr[1];
    ds.fields[2].asstring := recordstr[2] + ' ' + recordstr[3];
    ds.post;
  end;  ds.free;
  recordstr.free;
  FileStr.free;end;
随手写的，你调一调