想用VB做一个程序，实现从本地选择图片，并保存到SQL数据库一个表里，然后Picture.box可以显示SQL数据库表里上传的图片，请各位版主举个例子，万分感谢！！！

https://bbs.bccn.net/thread-248470-1-1.html

测试代码是基于 Access 的，但对于 SQL 同样适合。

数据库保存图片可以保存图片存储路径，也可以使用图片转换为二进制数据保存，不同的保存方法，上传与读取的代码是完全不同的。
一、保存图片存储路径编辑简单，但必须在服务器(或本地)有存储图片的文件夹，在文件夹有图片存在。
    如果是本地，仅仅存储图片路径将可以；如果不是本地，是(局域网或互联网)服务器，还必须将图片上传到服务器的指定目录中。
二、转换为二进制数据保存编辑麻烦一点，这里就不详细说明了。

如果需要详细了解，可以给你一个示例。

access数据库

1、保存   
  Set Bag = New PropertyBag '图片更新
  Bag.WriteProperty "Image", picture1.Picture'支持jpg，bmp等基本格式
  ReDim buff(LenB(Bag.Contents))
  buff = Bag.Contents
  Data(1) = buff'data(1)数据库字段，字段类型ole对象，实际是二进制
2、提取
  If Not IsNull(rs.Fields(1)) Then
    buff = rs.Fields("封面").Value
    Set Bag = New PropertyBag
    Bag.Contents = buff
    Call Bag.WriteProperty("Image", buff)
    Set Image1.Picture = Bag.ReadProperty("Image")

   数据入库和出库与其他操作语句一样   
 

您好！麻烦给一个示例，我参考下，非常感谢！

你需要的是那种存储方式的示例？说清楚！
其实 风吹过b 的 https://bbs.bccn.net/thread-248470-1-1.html 中已经讲的非常清楚了。

[此贴子已经被作者于2018-5-18 10:45编辑过]

您好！我想要第一种方法的示例，图片保存到服务器上，然后再显示上传的图片，谢谢！

'main_data设置成public数组
Private Sub command_Click()
  CMD1.Flags = cdlOFNHideReadOnly Or cdlOFNAllowMultiselect Or cdlOFNExplorer Or cdlOFNNoDereferenceLinks
  CMD1.FileName = ""          '避免二次打开出错
  CMD1.Filter = "图像文件|*.jpg;*.bmp;*.jpeg;*.png"
  CMD1.ShowOpen '打开媒体文件
  picture1.Picture = LoadPicture(CMD1.FileName)
  Set Bag = New PropertyBag '图片更新
  Bag.WriteProperty "Image", picture1.Picture'支持jpg，bmp等基本格式
  ReDim buff(LenB(Bag.Contents))
  buff = Bag.Contents
  main_data(0)="图片1"'检索关键字
  main_data(1) = buff  
  call main_add（data(0)）'添加记录
  call main_read（data(0)）'读取记录
end sub

Public Function Main_add(name1) As Integer '
  Dim rs1 As New Recordset
  Dim buff() As Byte
  cn.Open ConnStr
  SqlStr = "select * from table1  where name='" & name1 & "'"
  rs.Open SqlStr, cn, 1, 3
  If rs.RecordCount = 0 Then '不含重复记录
    rs.AddNew
    For i = 0 To 1: rs.Fields(i) = main_data(i): Next i
    rs.Update
    Main_add = 0
  Else
    Main_add = 1
  End If
  rs.Close
  cn.Close
End Function

Public Function main_Read(name1)
  Dim buff() As Byte
  If name1 = "" Then
    MsgBox ("读取的关键字不存在")
  Else
    cn.Open ConnStr
    SqlStr = "select * from table1 where name='" & name1 & "'"
    rs.Open SqlStr, cn, 1, 1
    If rs.EOF Then
      MsgBox ("读取的记录不存在")
    Else
      Form1.Text1.Text = IIf(IsNull(rs.Fields(0), "", rs.Fields(0))
      If Not IsNull(rs.Fields(1)) Then
        buff = rs.Fields(1).Value
        Set Bag = New PropertyBag
        Bag.Contents = buff
        Call Bag.WriteProperty("Image", buff)
        Set Form1.picture1.Picture = Bag.ReadProperty("Image")
      End If
    End If
    rs.Close
    cn.Close
  End If
End Function

这个示例是 Access 数据库的，你参考修改数据库连接语句就可以了。
如果需要原程序，给个地址，发给你。

麻烦给发源程序，我的邮箱727110649@，我参考下，谢谢！