图片存储笔记.docVIP

图片存储在存储介质的目录中。 界面： 实现代码： Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim str As String Dim photopath As String Private Sub Command1_Click() rst.Open select * from 表1, cnn, adOpenKeyset, adLockBatchOptimistic Image1.Picture = LoadPicture(rst.Fields(photo)) Text1.Text = rst.Fields(name) End Sub Private Sub Command2_Click() CommonDialog1.Filter = 位图文件|*.bmp|所有文件|*.* CommonDialog1.ShowOpen photopath = CommonDialog1.FileName End Sub Private Sub Command3_Click() rst.MoveLast rst.AddNew rst.Fields(name) = Text1.Text rst.Fields(photo) = photopath rst.UpdateBatch rst.Close MsgBox added over End Sub Private Sub Form_Load() Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset str = Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=人员信息;Data Source=PC-201108221911\AA cnn.Open str End Sub  以下仅作参考 图片存储在数据库中： 实现代码： Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim str As String Dim kkk As String Dim bit() As Byte Private Sub Command1_Click() rst.Open select * from 表2, cnn, adOpenKeyset, adLockOptimistic bit = rst(photo).GetChunk(rst(photo).ActualSize) Open e:\a.bmp For Binary As #1 Put #1, 1, bit Close #1 Me.Image1 = LoadPicture(e:\a.bmp) End Sub Private Sub Command2_Click() Dim bit() As Byte Open e:\c.bmp For Binary As #1 ReDim bit(LOF(1)) As Byte Get 1, 1, bit Close 1 rst.Open select * from 表2, cnn, adOpenKeyset, adLockOptimistic rst.MoveLast rst.AddNew rst(photo).AppendChunk bit rst(name) = Text1.Text rst.Updatebatch rst.Close End Sub