我有一个word文档用来存储题库数据,现在我想把它转换成SQL Sever表来存储,
应该如何来做呢?那位高手最好能提供一下实现的全部代码,不胜感激!!!

解决方案 »

  1.   

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      OleContainerFY1.CreateObjectFromFile('d:\1.doc',false);
      OleContainerFY1.DoVerb(1);
    end;procedure TForm1.Button2Click(Sender: TObject);
    var
      MS: TMemoryStream;
    begin
      MS := TMemoryStream.Create;
      OleContainerFY1.SaveToStream(MS);
      with ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Text := 'SELECT * FROM TABLE1';
        Open;
        Append;
        TBlobField(FieldByName('BL')).LoadFromStream(MS);
        Post;
        Application.MessageBox('succussful','fgyr',mb_ok);
      end;
    end;procedure TForm1.Button3Click(Sender: TObject);
    begin
      with ADOQuery1 do
      begin
        Close;
        SQL.Clear;
        SQL.Text := 'SELECT BL FROM TABLE1';
        Open;
        TBlobField(FieldByName('BL')).SaveToFile('d:\abc.doc');
      end;
    end;procedure TForm1.Button4Click(Sender: TObject);
    begin
      OleContainerFY1.LoadFromFile('d:\abc.doc');
      OleContainerFY1.DoVerb(1);
    end;procedure TForm1.Button5Click(Sender: TObject);
    begin
      OleContainerFY1.SaveToFile('d:\abc.doc');
      OleContainerFY1.DestroyObject;
    end;
      

  2.   

    set cn=new ADODB.connection
    set rs=new ADODB.RecordSet
    cn.open "data source=localhost;database=;uid=;pwd="
    cn.Type=adTypeBinary
    rs.open "select * from photo",cn,1,3
    if rs.eof then
    rs.Addnew
    rs("id").value=1
    rs("photo").value=cn.read
    rs.update
    end if