VB 将图片存入数据库(方法一)

Private Sub Form_Load()
  Data1.DatabaseName = App.Path & "\data.mdb"
  Data1.RecordSource = "data"
End Sub
Private Sub Form_Activate()
  Image2.Picture = LoadPicture(Text1(2).Text)
End Sub
Private Sub Command1_Click()
  Data1.Recordset.AddNew
  Data1.Enabled = False
  command3.Enabled = True
  Command2.Enabled = True
  Command1.Enabled = False
End Sub
Private Sub Command2_Click()
  Data1.Recordset.Update
  Data1.Enabled = True
  command3.Enabled = False
  Command2.Enabled = False
  Command1.Enabled = True
End Sub
Private Sub Command3_Click()
  CmD1.DialogTitle = "选择图片"
  CmD1.Filter = "bmp|*.bmp;*.ico"
  CmD1.ShowOpen
  If Len(CmD1.FileName) Then
     Text1(2).Text = CmD1.FileName
     Image1.Picture = LoadPicture(Text1(2).Text)
     Image2.Picture = LoadPicture(Text1(2).Text)
  End If
End Sub
Private Sub Data1_Reposition()
  Image2.Picture = LoadPicture(Text1(2).Text)
End Sub
Private Sub Command4_Click()
  End
End Sub