delphi 文本文件导入数据库

来源：百度知道 编辑：UC知道 时间：2024/05/31 07:39:45
文本文件 内容如下：
000000123407:552009052901
000000123407:552009053001
000000123407:552009053101

说明，0000001234 为卡号，07:55为时间，20090530为日期，01为机号

怎么倒入SQL表？

SQL表如下
卡号 时间 日期 机号

请帮忙写出详细代码，感谢

procedure TForm1.PostData(aValue: string);
var
KaH,ShiJ,RiQ,JiH: string;
Temp: integer;
begin
Temp := Pos(':',aValue);
KaH := Copy(aValue,1,Temp-3); //卡号
ShiJ := MidStr(aValue,Temp-2,5); //时间
RiQ := Copy(aValue,Temp+3,8); //日期
JiH := RightStr(aValue,2); //机号
ADODataSet1.Append;
ADODataSet1.FieldByName(卡号).Value := KaH;
ADODataSet1.FieldByName(时间).Value := ShiJ;
ADODataSet1.FieldByName(日期).Value := RiQ;
ADODataSet1.FieldByName(机号).Value := JiH;
ADODataSet1.Post;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
t: TextFile;
s: string;
begin
AssignFile(t,'d:\1.txt');
Reset(t); //只读打开文件
while not Eof(t) do
begin
Readln(t,s);
PostData(s);
end;
end;

记得引用StrUtils单元