文本文件 内容如下：

000000123407:552009052901

000000123407:552009053001

000000123407:552009053101

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

怎么倒入SQL表？

SQL表如下

卡号  时间  日期  机号

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

其他回答 共1条

2009-5-29 17:34 yych1987 | 二级

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单元

with query1 do
begin
  close;
  sql.clear;
  sql.add('BULK INSERT au..mengzi FROM ''d:\tb\mengzi.txt''');
  execsql;
end;

就为把就为把txt文件导入到SQL   SERVER﹐query1內地sql語句如何寫﹐俺用呢1個BUTTON,把你  
  顶面地語句試呢1下﹐有這樣錯誤--更新及重整所需地欄位資訊非足﹐非知為何﹐用JEETLIANG地  
  1開始可以﹐數據改呢就非行呢﹐可否詳1點﹐謝呢  
 

   5楼: wzds2000
关注，帮你顶。。。

   6楼: huojiehai
更详请参考:  
  增加：  
   
   
  Query.Close;  
  Query.SQL.Clear;  
  Query.SQL.Add('INSERT   INTO   myimages(FileName,pic)   VALUE(''Image1'',:pic)');  
  Query.ParamByName('pic').LoadFromFile('D:\Hasd.bmp',ftBlob);  
  Query.ExecSQL;  
   
  　  
   
  修改：  
   
  Query.Close;  
  Query.SQL.Clear;  
  Query.SQL.Add('UPDATE   myimages   SET   pic=:pic   WHERE   filename=''Image1''');  
  Query.ParamByName('pic').LoadFromFile('D:\Hasd2.bmp',ftBlob);  
  Query.ExecSQL;  
 

   7楼: ihihonline
提问非明确，分三种情况给你回答：  
  No.1:就为SQL   语句  
          SQL.LoadFromFile(....Txt);  
  No.2:就为SQL   Server里地具体内容。  
        如海天子兄那样。  
  No.3:就为作为1个数据表来用，可以用ADO，改变其属性，将此文本文件当做1个数据表。  
   
  ----------------------------------------------------------  
  事太多、心太乱  
           
 

   8楼: ninewin
可能各位高人把问题和疑问想得太复杂呢，俺需要地就为住C盘内地1个test.txt文件，它地具体内容为  
  2003100109110  
  2003100109111  
  2003100109112  
  2003100109113  
  2003100109114  
  2003100109115  
  2003100109116  
  2003100109117  
  俺需要把test.txt   导入SQL内地1个表，表名为T1,字段名：kqno   char(25)   ;服务器为ERPSERVER,数据库软件名为TEST,  
   
   
 

   9楼: qgj99
帮你定  
 

   10楼: SuperSeventh
可以首先用Stream读入文件，然后逐行取数据，填入到数据库软件中。

   11楼: alexzhang00
Function   txtToSQLServer(txtfilename:   string):   boolean;  
  var  
  adoCon   :   TADOConnection;  
  adoQuery   :   TADOQuery;  
  txtSourceFile   :   TextFile;  
  begin  
  result   :=   False;  
  if   Not   FileExists(txtfilename)   then   exit;  
  try  
  assignfile(txtSourceFile,txtfilename);  
  Reset(txtSourceFile);  
  if   Eof(txtSourceFile)   then   exit;  
  adoCon   :=   TADOConnection.Create;  
  adoQuery   :=   TADOQuery.Create(nil);  
  try  
  With   adoCon   do  
  begin  
            ConnectionString   :=   'DRIVER={SQL   SERVER};SERVER=ERPSERVER;UID=sa;PWD=;Database=TEST';  
            Connected   :=   True;  
  end;  
  With   adoQuery   do  
  begin  
            Connection   :=   adoCon;  
  end;  
  except  
              on   E:Exception   do  
                        showmessage(E.Message);  
  end;  
  while   not   eof(txtSourceFile)   do  
  begin  
                With   adoQuery   do  
                begin  
                            sql.clear;  
                            sql.add('insert   into   t1(kqno)   values   ('   +   quotedstr(readln(txtSourceFile)   +   ')');  
                            ExecSQL;  
                end;  
  end;  
  result   :=   true;  
  finally  
                adoCon.close;  
                adoQuery.free;  
                adoCon.free;  
  end;  
  end;  
   
   
  调用：  
  procedure   tform1.button1click(sender:Tobject);  
  beign  
                  if   txtToSQLServer('test.txt')   then  
                              showmessage('导入成功')  
                  else  
                              showmessage('导入失败');  
  end;