none
请教:插入字节到数据库 RRS feed

全部回复

  • 谢谢  feiyun0112每次的帮助,但是您指出要我参考以下代码我确实看不明白,这是用vb.net向Foxpro dbf插入二进制字节代码吗?是否可指明一下谢谢

    If Trim(txtFilePath.Text) = "" Then
    MsgBox "未选择文件.!!", vbInformation + vbSystemModal, "保存出错"
    Exit Sub
    End If
    If (Dir(Trim(txtFilePath.Text)) = "") Then Exit Sub
    '以二进制方式打开文件
    Open Trim(txtFilePath.Text) For Binary Access Read As lngDataFile
    lngLengh = LOF(lngDataFile) ' 文件大小
    If lngLengh = 0 Then Close lngDataFile: Exit Sub
    intChunks = lngLengh \ ChunkSize
    intFragment = lngLengh Mod ChunkSize
    '新建记录
    rsImage.AddNew
    ReDim Chunk(intFragment)
    Get lngDataFile, , Chunk()
    rsImage!picImage.AppendChunk Chunk()
    ReDim Chunk(ChunkSize)
    For I = 1 To intChunks
    Get lngDataFile, , Chunk()
    rsImage!picImage.AppendChunk Chunk()
    Next I
    rsImage.Update
    Close lngDataFile
    Call ShowPic

    2008年11月9日 23:27
  • 上面是VB6的

     

    下面是VB.net操作Access,但是应该可以用

    http://bbs.54master.com/207884,1,20

     

    2008年11月10日 1:03
    版主
  • 凡是网上常规的方法我都试了,没办法成功,我是FOXPRO 6.0 的dbf  字段类型“通用型”网上查不到有关资料,只有在这里求助。谢谢

    2008年11月10日 1:51