vb中向SQL库中存取图片

来源：百度知道 编辑：UC知道 时间：2024/05/05 18:41:34
我做了一个人事管理系统，为了完善一下，我想把个人档案添加一个字段用来存个人一寸图片，希望用VB结合SQL库来做（不是用ACCESS）通过浏览选择一个图片，保存到库中，然后查询时，可以从库中调出该图片。
请会的朋友告诉我如何定义字段，最好是简单用VB写一个，发到我邮箱

wzhl-098@163.com

先向各位道谢了。

很简单的了呵!!我给你写一个如果拿有不合适的可以QQ问我86711527
GOOD LUCK 用软件改变世界,用代码书写人生,用思想创造未来!
Dim cnnImage As New ADODB.Connection
Dim rsImage As New ADODB.Recordset
Dim strSql As String

Dim Chunk() As Byte
Dim lngLengh As Long
Dim intChunks As Integer
Dim intFragment As Integer
Const ChunkSize = 1000
Const lngDataFile = 1
Private Sub cmdBrowse_Click()
'选择 JPG OR Bmp 文件
On Error Resume Next
With cmdlFilePath
.Filter = "JPG Files|*.JPG|Bitmaps|*.BMP"
.ShowOpen
txtFilePath.Text = .FileName
End With
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdLast_Click()
On Error Resume Next
rsImage.MoveLast
Call ShowPic
End Sub
Private Sub cmdNext_Click()
On Error Resume Next
rsImage.MoveNext
Call ShowPic
End Sub
Private Sub cmdPrev_Click()
On E