久々にログインしてみたのでテンプレートも変えて、ついでに記事も入れてみよう。
こないだ仕事で使ったオラクルBLOBへの画像登録手順。
接続はADOを使用。
Dim DB As ADODB.Connection
Dim RS As New ADODB.Recordset
Dim SQL As String
Dim PDAT() As Byte
Set DB = CreateObject("ADODB.Connection")
DB.Open "Provider=OraOLEDB.Oracle;Data Source=dsn;", "user", "pass"
SQL = "insert into TBL(ID,IMAGE) values(1,EMPTY_BLOB())"
DB.Execute (SQL)
SQL = "select IMAGE from TBL where ID=1"
Set RS.ActiveConnection = DB
RS.CursorLocation = adUseClient
RS.CursorType = adOpenStatic
RS.Source = SQL
RS.Open , , adOpenStatic, adLockOptimistic
If Not RS.EOF Then
Open "c:\imagesample.jpg" For Binary As #1
ReDim PDAT(LOF(1) - 1)
Get #1, , PDAT
Close #1
RS.Fields(0).AppendChunk (PDAT)
RS.Update
End If
RS.Close
Set RS = Nothing
DB.Close
Set DB = Nothing
ひさびさに書いたら疲れた(汗)
登録した画像を表示する手順はまた今度♪
こないだ仕事で使ったオラクルBLOBへの画像登録手順。
接続はADOを使用。
Dim DB As ADODB.Connection
Dim RS As New ADODB.Recordset
Dim SQL As String
Dim PDAT() As Byte
Set DB = CreateObject("ADODB.Connection")
DB.Open "Provider=OraOLEDB.Oracle;Data Source=dsn;", "user", "pass"
SQL = "insert into TBL(ID,IMAGE) values(1,EMPTY_BLOB())"
DB.Execute (SQL)
SQL = "select IMAGE from TBL where ID=1"
Set RS.ActiveConnection = DB
RS.CursorLocation = adUseClient
RS.CursorType = adOpenStatic
RS.Source = SQL
RS.Open , , adOpenStatic, adLockOptimistic
If Not RS.EOF Then
Open "c:\imagesample.jpg" For Binary As #1
ReDim PDAT(LOF(1) - 1)
Get #1, , PDAT
Close #1
RS.Fields(0).AppendChunk (PDAT)
RS.Update
End If
RS.Close
Set RS = Nothing
DB.Close
Set DB = Nothing
ひさびさに書いたら疲れた(汗)
登録した画像を表示する手順はまた今度♪
私もトップだけ替えました。もう３月も終わりなのに去年のままでしたから。
桜はまだかな。。。
管理人も存在を忘れかけていたようなブログに、素早いコメントをありがとうございます(感涙)
桜も開花しましたね☆スイミング行ってるスポーツクラブに露天風呂があって、手の届きそうなところに桜の枝が蕾をつけてました。なんだか来週あたり楽しみです♪
今日は娘のピアノの発表会がありました。聴いたことある曲だなあと思ってたらドビュッシーのアラベスク１番でした。
きっとi-yoさんちで聴いたんだな・・・
５月にあるピアノの発表会で娘は ドビュッシーのアラベスク２番を弾くんですよ♪
なぁ～んか びっくり♪
並べて聴いてみたいですね。（笑）
ほんとビックリです。
クラシックには疎かった私ですが、おかげで発表会でも結構知ってる曲が増えました♪
あ、それから久々にＥＶＡってi-yoさんのMidiをお借りしました。
この縁を記念してドビュッシーをお借りしました(笑)
あとでメールします（＾－＾）／