随州市2016年统计公报:vb中向SQL库中存取图片
来源:百度文库 编辑:杭州交通信息网 时间:2024/05/07 20:53:12
请会的朋友告诉我如何定义字段,最好是简单用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 Error Resume Next
rsImage.MovePrevious
以上是ACCESS 的数据库,只要把连接字符改成SQ的就可以了