Option Explicit
Dim Cn As ADODb.Connection
Dim Rs As ADODb.Recordset
Dim mst As ADODb.Stream
Dim mystr As String
Private Sub Form_Load()
Adodc1.ConnectionString = "uid=admin;pwd=111;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.MDB"
Adodc1.RecordSource = "data"
Adodc1.Refresh
End Sub
Private Sub Command1_Click() '保存图片到数据库
If mystr <> "" Then
Set Cn = New ADODb.Connection
Cn.ConnectionString = ";DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & App.Path & "\data.MDB"
Cn.Open
Set Rs = New ADODb.Recordset
Rs.Open "select * from data", Cn, adOpenStatic, adLockOptimistic
Set mst = New ADODb.Stream
mst.Type = adTypeBinary
mst.Open
mst.LoadFromFile mystr
Rs.AddNew
Rs.Fields("图片").Value = mst.Read
Rs.Update
Rs.Close
Cn.Close
Adodc1.Refresh
Else
MsgBox ("请先选择图片!")
End If
End Sub
Private Sub Command3_Click()
CommonDialog1.Filter = "bmp|*.jpg;*.bmp;*.gif"
CommonDialog1.FilterIndex = 2
' 显示"打开"对话框
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
mystr = CommonDialog1.FileName
End Sub
Private Sub Command2_Click()
End
End Sub
联系客服