【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“picADO.frm”一文，供大家参考学习!

    VERSION 5.00
    Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
    Begin VB.Form picADO 
       Caption         =   "数据库中图片的动态浏览与编辑"
       ClientHeight    =   3855
       ClientLeft      =   60
       ClientTop       =   345
       ClientWidth     =   7335
       Icon            =   "picADO.frx":0000
       LinkTopic       =   "Form2"
       ScaleHeight     =   3855
       ScaleWidth      =   7335
       StartUpPosition =   2  '屏幕中心
       Begin VB.PictureBox Picture1 
          AutoSize        =   -1  'True
          Height          =   2175
          Left            =   2040
          ScaleHeight     =   2115
          ScaleWidth      =   1875
          TabIndex        =   0
          Top             =   360
          Width           =   1935
       End
       Begin VB.CommandButton cmdDel 
          Caption         =   "删除"
          Height          =   375
          Left            =   6360
          TabIndex        =   10
          Top             =   3000
          Width           =   735
       End
       Begin VB.CommandButton cmdLast 
          Caption         =   "最后一个"
          Height          =   375
          Left            =   4680
          TabIndex        =   4
          Top             =   1920
          Width           =   975
       End
       Begin VB.CommandButton cmdEdit 
          Caption         =   "编辑"
          Height          =   375
          Left            =   5520
          TabIndex        =   13
          Top             =   3000
          Width           =   735
       End
       Begin VB.CommandButton cmdStop 
          Caption         =   "停止浏览"
          Height          =   495
          Left            =   5880
          TabIndex        =   12
          Top             =   1080
          Width           =   975
       End
       Begin VB.CommandButton cmdStart 
          Caption         =   "自动浏览"
          Height          =   495
          Left            =   5880
          TabIndex        =   11
          Top             =   360
          Width           =   975
       End
       Begin VB.Timer Timer1 
          Enabled         =   0   'False
          Interval        =   1000
          Left            =   3960
          Top             =   240
       End
       Begin VB.TextBox Text3 
          Enabled         =   0   'False
          Height          =   285
          Left            =   1080
          TabIndex        =   9
          Top             =   1560
          Width           =   735
       End
       Begin VB.TextBox Text2 
          Enabled         =   0   'False
          Height          =   405
          Left            =   1080
          TabIndex        =   8
          Top             =   2640
          Width           =   2895
       End
       Begin VB.TextBox Text1 
          Enabled         =   0   'False
          Height          =   285
          Left            =   1080
          TabIndex        =   7
          Top             =   600
          Width           =   735
       End
       Begin VB.CommandButton cmdPrev 
          Caption         =   "上一个"
          Height          =   375
          Left            =   4680
          TabIndex        =   6
          Top             =   1440
          Width           =   975
       End
       Begin VB.CommandButton cmdNext 
          Caption         =   "下一个"
          Height          =   375
          Left            =   4680
          TabIndex        =   5
          Top             =   960
          Width           =   975
       End
       Begin VB.CommandButton cmdFirst 
          Caption         =   "第一个"
          Height          =   375
          Left            =   4680
          TabIndex        =   3
          Top             =   360
          Width           =   975
       End
       Begin VB.CommandButton cmdExit 
          Cancel          =   -1  'True
          Caption         =   "退出"
          Height          =   495
          Left            =   5880
          TabIndex        =   2
          Top             =   1800
          Width           =   975
       End
       Begin VB.CommandButton cmdAdd 
          Caption         =   "增加"
          Height          =   375
          Left            =   4680
          TabIndex        =   1
          Top             =   3000
          Width           =   735
       End
       Begin MSComDlg.CommonDialog CommonDialog1 
          Left            =   3960
          Top             =   1200
          _ExtentX        =   847
          _ExtentY        =   847
          _Version        =   393216
       End
       Begin VB.Frame Frame1 
          Caption         =   "图表信息与浏览"
          Height          =   3255
          Left            =   120
          TabIndex        =   14
          Top             =   120
          Width           =   4095
          Begin VB.Label Label3 
             Caption         =   "图片大小"
             Height          =   255
             Left            =   120
             TabIndex        =   17
             Top             =   1440
             Width           =   735
          End
          Begin VB.Label Label2 
             Caption         =   "图片名称"
             Height          =   375
             Left            =   120
             TabIndex        =   16
             Top             =   480
             Width           =   855
          End
          Begin VB.Label Label1 
             Caption         =   "图片路径"
             Height          =   255
             Left            =   120
             TabIndex        =   15
             Top             =   2520
             Width           =   735
          End
       End
       Begin VB.Frame Frame2 
          Caption         =   "图片控制"
          Height          =   2535
          Left            =   4440
          TabIndex        =   18
          Top             =   120
          Width           =   2775
       End
       Begin VB.Frame Frame3 
          Caption         =   "修改图片"
          Height          =   855
          Left            =   4440
          TabIndex        =   19
          Top             =   2760
          Width           =   2895
       End
    End
    Attribute VB_Name = "picADO"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    
       Option Explicit
       Dim Cn As ADODB.Connection
       Dim Rs As New ADODB.Recordset
       Dim strConn As String
       Dim strSQL As String
       Dim FileLength As Long
       Dim Numblocks As Integer
       Dim LeftOver As Long
       Dim i As Integer
       Const BlockSize = 100000
    Private Sub cmdEdit_Click()
        GetPic
    End Sub
    
    Private Sub cmdStart_Click()
      Rs.MoveFirst
        Timer1.Enabled = True
    End Sub
    Private Sub cmdStop_Click()
        Timer1.Enabled = False
    End Sub
    Private Sub cmdFirst_Click()
        If Rs.RecordCount > 0 Then
            Rs.MoveFirst
            FetchData
        Else
            MsgBox "No records"
        End If
    End Sub
    
    Private Sub CmdLast_Click()
        If Rs.RecordCount > 0 Then
            Rs.MoveLast
            FetchData
        Else
            MsgBox "No records"
        End If
    End Sub
    
    Private Sub cmdNext_Click()
        If Rs.RecordCount > 0 Then
            Rs.MoveNext
            If Rs.EOF = True Then
                Rs.MoveLast
                MsgBox " u r on last Record"
            End If
            FetchData
        Else
            MsgBox "No records"
        End If
    End Sub
    
    Private Sub CmdPrev_Click()
        If Rs.RecordCount > 0 Then
            Rs.MovePrevious
            If Rs.BOF = True Then
                Rs.MoveFirst
                MsgBox "u r on first record"
            End If
            FetchData
        Else
            MsgBox "No data"
        End If
    End Sub
    
    Private Sub CmdDel_Click()
        If Rs.RecordCount > 0 Then
            Rs.Delete
            If Rs.EOF = False Then
                cmdNext_Click
            Else
                CmdPrev_Click
            End If
        Else
            MsgBox "No records"
        End If
    End Sub
    
       Private Sub Form_Load()
          Set Cn = New ADODB.Connection
          Cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\Photo.mdb"
          If Rs.State = adStateOpen Then Rs.Close
          Rs.Open "Select ID,photo,PNAME,description from chunks", Cn, adOpenKeyset, adLockOptimistic
    End Sub
    
    Public Sub CmdAdd_Click()
        Rs.AddNew
        GetPic
    End Sub
    
    Private Sub FetchData()
        Dim J As Integer
            Text1