VB6 保存和读取图片到数据库

dim stm as ADODB.Stream

dim rs as ADODB.Recordset

sub SavePictureToDB(cn   As   ADODB.Connection)  
  '将图片存入数据库  
  On   Error   GoTo   EH  
          Set   stm   =   New   ADODB.Stream  
          rs.Open   "select   ImagePath,ImageValue   from   tbl_Image",   cn,   adOpenKeyset,   adLockOptimistic  
          CommonDialog1.ShowOpen  
          Text1.Text   =   CommonDialog1.FileName  
           
          With   stm  
                    .Type   =   adTypeBinary  
                    .Open  
                    .LoadFromFile   CommonDialog1.FileName  
          End   With  
          With   rs  
                    .AddNew  
                    .Fields("ImagePath")   =   Text1.Text  
                    .Fields("ImageValue")   =   stm.Read  
                    .Update  
          End   With  
          rs.Close  
          Set   rs   =   Nothing  
  Exit   Sub  
  EH:   MsgBox   Err.Description,   vbInformation,   "Error"  
  End   Sub  
   
   
Sub   LoadPictureFromDB(cn   As   ADODB.Connection)  
  '载数据库中读出图片  
  On   Error   GoTo   EH  
          Dim   strTemp   As   String  
          Set   stm   =   New   ADODB.Stream  
          strTemp   =   "c:/temp.tmp"   '临时文件,用来保存读出的图片  
          rs.Open   "select   ImagePath,ImageValue     from   tbl_image",   cn,   ,   ,   adCmdText  
          With   stm  
                  .Type   =   adTypeBinary  
                  .Open  
                  .Write   rs("ImageValue")  
                  .SaveToFile   strTemp,   adSaveCreateOverWrite  
                  .Close  
          End   With  
          Image1.Picture   =   LoadPicture(strTemp)  
          Set   stm   =   Nothing  
          rs.Close  
          Set   rs   =   Nothing  
  Exit   Sub  
  EH:   MsgBox   Err.Description,   vbInformation,   "Error"  
  End   Sub 

也可用FileSystemObject的方式来保存

Dim Sql As String
Dim fs As New FileSystemObject

Sub SavePicture()
    Dim sByte() As Byte
    Dim bIsNull As Boolean
   
    If fs.FileExists(g_FilePath) Then
        Open g_FilePath For Binary Access Read As #1
        ReDim sByte(1 To LOF(1))
        Get #1, 1, sByte()
        Close #1
        bIsNull = False
    Else
        bIsNull = True
    End If
   
    Dim rs As New ADODB.Recordset
    rs.Open "select empid,empname,pic from emp where empid = '" & Trim(txtEmpId.Text) & "'", cn, adOpenStatic, adLockOptimistic
    rs.AddNew
    rs!EmpId = txtEmpId.Text
    rs!EmpName = txtEmpName.Text
    If bIsNull <> True Then
        rs!pic = sByte
    End If
    rs.Update
    MsgBox "save data ok!"
    txtEmpId.Text = ""
    txtEmpName.Text = ""
    Set picView.Picture = Nothing
    cmdAdd.Enabled = True
End Sub

Sub viewJpg()

    Dim TmpFile As String
    Dim jByte() As Byte

    Sql = "select * from emp"
    Set rsViewJpg = New ADODB.Recordset
    rsViewJpg.Open Sql, cn, adOpenStatic, adLockOptimistic
    rsViewJpg.MoveFirst

    If Not rsViewJpg.BOF Then
        If Not rsViewJpg.EOF Then
            txtEmpId.Text = rsViewJpg!EmpId
            txtEmpName.Text = rsViewJpg!EmpName
            Set pic.Picture = Nothing
            If Not fs.FolderExists(App.Path + "/temp") Then
                fs.CreateFolder (App.Path + "/temp")
            End If
            TmpFile = App.Path + "/Temp/" + rsViewJpg.Fields(0) + ".jpg"
            If Not IsNull(rsViewJpg!pic) Then
                jByte = rsViewJpg!pic
                Open TmpFile For Binary Access Write As #1
                Put #1, , jByte
                Close #1
                pic.Picture = LoadPicture(TmpFile)
            End If
        End If
    End If
End Sub