怎样把.txt文件导入SQL Server数据库，谁能解决这个问题，要多少分给多少分！！！不够再加！！！！！

Question

PARTS.NO. 32120-S2X-9102                               *****  CIRCUIT LIST  *****                             Aug.04.1999 16:03:17     
                                     W   LEFT TERMINAL         MARK  L=    W   RIGHT TERMINAL        MARK  L=   CIRCUIT NO.  H BUNDL P 
NO.   WIRE  SIZE   COLOR   LENGTH    W   ATTACHED PARTS        TUBE        W   ATTACHED PARTS        TUBE       LEFT   RIGHT           
                                                                                                                                       
101   AVSS   1.25   R/L     2,550        CBS96-1                               HKF                              4A    4C               
101-Y     +10                                                                                                                          
102   AVSS   0.3    R/B     2,155        F04-2                                 DHE-F03                          11A   11D              
103   AVSS   0.85   W/B     2,220   **   ACWF                                  STDCF                            13A   13D              
                                         C-ACW-LG                                                                                      
103-Y     +10                                                                                                                          
104   AVSS   0.85   G/L       540        F32-2                                 STDCF                            17C   17A            1 
105   AVSS   0.85   G/L     1,890        F32-2                                 J                                17E                  1 
106   AVSS   0.3    L/Y     1,395        DHE-F03                               DHE-F03                          21C   21B              
109   AVSS   0.3    O/      1,385        DHE-F03                               DHE-F03                          61A   61C              
110   AVS    3.0    L/W     1,225        LFH350T                               PCF20                            300A  300C             
111   AVS    3.0    L/B       370        LFH350T                               PCF20                            301A  301B             
111-Y     U??00                                                                                                                    
112   AVSS   0.5    L/R       550        F04-2                                 STDCF                            308A  308B             
112-Y     +10                                                                                                                          
113   AVSS   0.5    L/Y       550        F04-2                                 STDCF                            309A  309B             
113-Y     +10                                                                                                                          
116   AVSS   1.25   L/B     2,055        HKF                              **   YXF-2                            350A  350C             
                                                                               C-HYX(G)                                                
117   AVSS   1.25   L/Y     2,055        HKF                              **   YXF-2                            351A  351C             
                                                                               C-HYX(G)                                                
118   AVSS   1.25   R/      1,820        DHE-F                            **   STDCM-105                        352A  352B             
                                                                               C-STWSB(L)

Answer 1

用TBlobStream类对象将文件写入Blob字段！

Answer 2

参照一下这个代码，应该对你很有用*********************************************************************************
procedure ReadBlob(str_filename,field_name,str_type:String;tbl_name:TAdoTable);//;ole:TOleContainer);
var
  MemSize:integer;
  Buffer:PChar;
  MyFIle:TFileStream;
  Stream:TStream;
  str0 : string;
begin
  str0 := str_filename;
  str_filename := str_filename+'.tmp';
  MyFile := TFileStream.create(str_filename,fmCreate);
  with tbl_name do
  begin
    open;
//    Stream := TBlobStream.Create(Fieldbyname(field_name)as TBlobField,bmRead);
    Stream := CreateBlobStream(Fieldbyname(field_name),bmRead);
    MemSize :=Stream.Size;
    Inc(MemSize);
    Buffer := AllocMEM(MemSize);
    try
      Stream.Read(Buffer^,MemSize);
      MyFile.Write(Buffer^,MemSize);
    finally
      MyFile.Free;
      Stream.Free;
    end;
   str0 := str0 +str_type ;//'.doc';
   if FileExists(str0) then
     Deletefile(str0);
   if FileExists(str_filename) then
   begin
     RenameFile(str_filename,str0);
   end;
  end;
end;
procedure SaveBlob(str_filename,field_name:String;tbl_name:TAdoTable);
var
  MemSize:Integer;
  Buffer:PChar;
  MyFile:TFileStream;
  Stream:TBlobStream;
  Filename:String;
begin
//   MyFile := TFileStream.Create(str_FileName,fmOpenRead);
   with tbl_name do
   begin
     TBlobField(tbl_name.FieldByName(field_name)).LoadFromFile(str_filename);
      Stream := TBlobStream.Create(Fieldbyname(field_name)as TBlobField,bmWrite);
      MemSize := MyFile.Size;
      Inc(MemSize);
      Buffer := AllocMem(MemSize);
      try
        Stream.Seek(0,soFromBeginning);
        MyFile.Read(Buffer^,MemSize);
        Stream.Write(Buffer^,MemSize);
      finally
        MyFile.Free;
        Stream.Free;
    end;
end;
*********************************************************************************

Answer 3

到这看看http://kingron.myetang.com/document/delphi/access_3.html

Answer 4

procedure TFBKManage.BEditContentClick(Sender: TObject);
begin
if OpenDialog1.Execute then
    begin
      ADODataSet2.CommandText := 'select * from LibBooks';
      ADODataSet2.Open;
      ADODataSet2.Locate('BookID',DBEdit1.EditText,[loPartialKey]);
      ADODataSet2.Edit;
      TBlobField(ADODataSet2.FieldByName('Content')).LoadFromFile(OpenDialog1.FileName);
      ADODataSet2.Post;
      ADODataSet2.Close;
    end;
end;
--------------------------
咱哥们，也正在用delphi作毕业设计，这是我把文件添加到BOLOB字段的方法！好象不能直接用企业管理器为SQL Server的BLOB(image)字段赋值

Answer 5

我的已经解决了,代码如下,希望能给各位启示!!!
由于具体情况不同,我只把主要的代码写了下来,在TXT档中,是以TAB来分断,但考虑到有可能有空,所以加了个TRIM.
各位有什么不懂的请联系,大家一同进步!s2:='insert into compal.ck_dn_control_t values(';
      s4:='';
      n:=0;
      for i:=1 to length(ws) do
       begin
        s3:=ws[i];
        if s3=#9 then
         begin
          s2:=s2+ansiquotedstr(trim(s4),'''')+',';
          char[n]:=trim(s4);
          n:=n+1;
          s4:='';
         end
        else
         s4:=s4+s3;
       end;
      s2:=s2+trim(ansiquotedstr(trim(s4),''''))+')';      query1.Close;
        query1.SQL.Clear;
        query1.SQL.Text:=s2;
        caption:=s2;
        query1.ExecSQL;

Answer 6

使用SQL Server 的 DTS 服务
1。在你想导入的数据库或者表处单击鼠标右键，选择所有任务->导入数据
2。单击<下一步>，选择要导入的数据源（文本文件），选择文件名
3。单击<下一步>，根据向导，根据需要选择数据
4。单击<下一步>，选择你要导入的数据库
5。单击<下一步>，根据向导，直至完成！祝你成功！