把文件上传到数据库(比如:我要把文件名为aa.txt文件上传到数据库该怎么操作!)

解决方案 »

  1.   

    这个没有做过 只把EXCEl文件导入过 
      

  2.   

    存储  adoup := TADOQuery.Create(self);
      adoup.Connection := dmsys.ADOC;
      adoup.SQL.Text := ' select * from myfile where 1>1';
      adoup.Open;
      adoup.Append;
      adoup.FieldByName('title').AsString := extractfilename(edtFilePath.Text);
      adoup.FieldByName('editer').AsString := sUserName;
      Tblobfield(adoup.FieldByName('Memo')).LoadFromFile(edtFilePath.Text);
      adoup.FieldByName('editid').AsString := sUseID;
      adoup.Post;需存储文件的字段应为二进制读取
    adofile := TADOQuery.Create(self);
        adofile.Connection := dmsys.ADOC;
        adofile.SQL.Text := 'Select Memo,shardid,editer from Myfile where id = ' + gridFile.Cells[0,gridFile.CrRow];
        adofile.open;
        TBlobField(adofile.FieldByName('Memo')).SaveToFile(savedialog.FileName);
        screen.Cursor := crDefault;    
      

  3.   

    楼上的方法,如果是doc文件,上传测试通过,可以重新下载来下再打开的话,就是乱码?请问这个问题如果解决??
      

  4.   

    你的操作有问题吧,我用过同样的方法,不管pdf\jpg\doc都没有问题的
    你的字段类型有问题吧你用的啥数据库?啥字段类型?sql 用img
    oracle 用 long row
      

  5.   

    楼上的对了,是我的数据库字段不对.后来用image就好了,我用的是SQL的.我开始用的是text字段类型,为什么这个字段类型不行呢?那这个字段类型是存放什么字段的?
      

  6.   

    var str :Tmemosystem;
    begin
    str:=
    以数据流的方式传上去Access 里字段设成 ole对象
    SQL      设成 image
      

  7.   

    text是存放较长的文本内容的,备注型.