CommonDialog1.ShowOpen Dim a As String a = CommonDialog1.FileTitle 得到不含路径文件名
If a <> "" Then Image11.Picture = LoadPicture(App.Path & "\bmp\" & a) \bmp\是我用于存取图片的本系统文件夹下的一个子文件夹。 Data1.Recordset.Edit Data1.Recordset.Fields("tp") = a TP是存取图片名称的字段。 Data1.Recordset.Update End If End Sub