如何將照片寫入有密碼的資料庫? 用data物件可以將照片寫入沒密碼的資料庫,但卻打不開密碼,用adodc 可以打開密碼和現實照片但又不能寫入。那位若能幫我解決這個問題,本人將提供來大陸萬物韓玩的一切費用。
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

vbqa 發表在 痞客邦 留言(2) 人氣()


留言列表 (2)

發表留言
  • 小琳
  • :::試試看以下的函數:
    Declare Sub RtlMoveMemory Lib "KERNEL32" (lpvDest As Any, lpvSource As Any, ByVal cbCopy As Long)
    '函數名稱:SavePictureToAdodc
    '功能:將圖檔儲存至資料庫裡(不是存圖檔的路徑)
    '傳入值:ADODB.Recordset,檔名,儲存圖檔的欄位名稱
    '傳回值:成功(True),失敗(False)
    Function SavePictureToAdodc(rs As ADODB.Recordset, ByVal FileName As String, ByVal PictureField As String)
    On Error GoTo errmsg
      
      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 #f
      
      RtlMoveMemory barray(8), barray2(0), Length
      rs(PictureField).AppendChunk barray
      SavePictureToAdodc = True
      Exit Function
      
    errmsg:
    MsgBox Err.Description
      SavePictureToAdodc = False
    End Function
  • 未古
  • 先感謝小琳小姐(先生?)我試驗成功之後再來好好感謝您和兌現諾言___邀請您到大陸武漢等城市玩。我的電子郵件nprobotyahoo ,com.cn