Private Sub Image1_Click()
Dim rs As New ADODB.Recordset
Dim Rss As New ADODB.Stream
Dim cnn As ADODB.Connection
Dim cnstr As String
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + "g:/vb/student.mdb;Mode=ReadWrite;Persist Security Info=False"
Set cnn = New ADODB.Connection
cnn.Open cnstr
rs.Open "select * from [user]", cnn, adOpenStatic, adLockOptimistic
Rss.Type = adTypeBinary
Rss.Open
Rss.LoadFromFile "g:/vb/4.jpg"
rs.AddNew
rs.Fields("xingming") = "PICTURE"
rs.Fields("zhaopian") = Rss.Read
rs.Update
rs.Close
cnn.Close
End Sub
Private Sub Image1_Click()
Dim rs As New ADODB.Recordset
Dim Rss As New ADODB.Stream
Dim cnn As ADODB.Connection
Dim cnstr As String
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + "g:/vb/student.mdb;Mode=ReadWrite;Persist Security Info=False"
Set cnn = New ADODB.Connection
cnn.Open cnstr
rs.Open "select * from [user]", cnn, adOpenStatic, adLockOptimistic
Rss.Type = adTypeBinary
Rss.Open
Rss.LoadFromFile "g:/vb/4.jpg"
rs.AddNew
rs.Fields("xingming") = "PICTURE"
rs.Fields("zhaopian") = Rss.Read
rs.Update
rs.Close
cnn.Close
End Sub