在 SQL Server 2000 中如何读写image字段的数据，或是导入到文件中

Question

家里的机器上有程序，VB的1 今晚12：00以前能回去2 其他人还没解答3 你很急if 1 and 2 and 3 then i will paste it   :)

Answer 1

WindowsMe:
给我发一个可以吗？
我也正为这事忙着，希望借鉴你的经验！！
MAIL：[email protected]

Answer 2

假如不是很大，打个包发到我的信箱好吗？ [email protected]
先谢过了。麻烦把你配的sqlserver环境说一下

Answer 3

贴一下吧  ：）Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)Sub SavePictureToAdodc(rs As ADODB.Recordset, ByVal FileName As String)
    Dim Length As Long, f As Integer
    Length = FileLen(FileName)
    
    ReDim bArray(Length + 12) As Byte, bArray2(Length) As Byte
    bArray(0) = &H6C: bArray(1) = &H74
    RtlMoveMemory bArray(4), Length, 4
    
    f = FreeFile
    Open FileName For Binary As #f
    Get #f, , bArray2
    Close #1
    
    RtlMoveMemory bArray(8), bArray2(0), Length
    
    rs("签字").AppendChunk bArray
End Sub'上面的过程我是放在一个公共模块里的，其实可以改到一个form中  ：）'使用一个picturebox来绑定"签字"字段，显示可以。双击后选择新的图片，存入数据库
Private Sub picFields_Click(Index As Integer)
  On Error Resume Next
  With dlgPhoto
       .DialogTitle = "装入图片"
       .Filter = "(点阵图)*.bmp|*.bmp"
       .CancelError = True
       .ShowOpen
       If err.Number <> cdlCancel Then
          Set picFields(4).Picture = LoadPicture(.FileName)
          SavePictureToAdodc datPrimaryRS.Recordset, .FileName
       End If
  End With
End Sub

Answer 4

hehe，老大，能读出来就不能写进去了？写程序这样可不大好呀，自己去找找MSDN中的文件操作吧，不难的 ：）

Answer 5

能不能讲一下SavePictureToAdodc里的意思?

Answer 6

ReDim bArray(Length + 12) As Byte, bArray2(Length) As Byte
    bArray(0) = &H6C: bArray(1) = &H74
    RtlMoveMemory bArray(4), Length, 4
    
    什么意思？