怎样在VB中向SQL SERVER中写这样的文件??

Question

Open filename For Binary As #1
      LFileSize = LOF(1) - 1
      Dim Bdata(LFileSize) As Byte
      Get #1, , Bdata
    Close #1
  Adodc1.Recordset.Fields(i).AppendChunk Bdata

Answer 1

无论任何文件都可以这样写
    Dim Buffer() As Byte
    flen = FileLen("E:\csdn\Data\user2.gif")
    Open "E:\csdn\Data\user2.gif" For Binary As #1
    ReDim Buffer(flen - 1)
    Get #1, , Buffer
    adoPrimaryRS.Fields("photo").AppendChunk (Buffer)
    adoPrimaryRS.UpdateBatch adAffectAll

Answer 2

谢谢.不过 c_c_(cc) 老兄的大作最后是不是有一点小小的bug^_^.是不是应该是adoRrimaryRS.Update?呵呵,老兄笔误?小弟眼拙.见谅!

Answer 3

c_c_(cc)老兄,写进去是可以,可是当我用IE进行访问的时候提示:不是以%PDF开头!WHY?

Answer 4

我这是用VB写的，IE我一般没用过，就是以前用过也是很久的事了，反正就那几个，我也就是在用的时候试试，具体的我也没怎么研究过。对于“c_c_(cc)老兄,写进去是可以,可是当我用IE进行访问的时候提示:不是以%PDF开头!WHY?”这个问题，我没太明白，你是说在取出的时候出现这个错误吗？不知道兄是不是用的ASP，我也可以用它来试一下，如果有结果我再帖出来。