ＤＢへのＪｐｅｇ保存 (ID:114978)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ADODB.Streamオブジェクトを使ってＤＢに入れることができます。 Dim rs As ADODB.Recordset Dim stm As ADODB.Stream stm.Type = adTypeBinary stm.Open 'DBに入れる場合 stm.LoadFromFile "c:\testIn.jpg" rs.Fields("Image").Value = mstream.Read 'DBから取得する場合 stm.Write rs.Fields("Image").Value stm.SaveToFile "c:\testOut.jpg" rs.Update stm.Close rs.Close