A 回答 (5件)
- 最新から表示
- 回答順に表示
No.5
- 回答日時:
basp21をinstallし
1、バイナリアップロード
2、採りこみ(指定fieldへ)
basp21の入手先は下記のサイトへ
http://www.hi-ho.ne.jp/babaq/basp21.html
参考URL:http://www.hi-ho.ne.jp/babaq/basp21.html
この回答への補足
回答ありがとうございます。
BASP21のメソッドFormBinaryを使っていると書いていたのですがそれとは意味がちがうのでしょうか?
No.4
- 回答日時:
VB.NET,ADO.NETで記述されたサンプルですね。
当初の記載したサンプルと基本的には同様の操作となります。ご希望のSQL分でハンドリングするのであれば、前述のWRITEXTを利用せざるえないと思います。
後、私の情報が古いところもあり、KBで
http://support.microsoft.com/kb/258038/ja
Streamオブジェクトを利用したADOのサンプルがありました。
こちらご覧ください。StreamオブジェクトにはWriteメソッドがありこちらでByte配列を渡せますので、うまくいくと思いますよ。
この回答への補足
「途中経過」
とりあえずDBへ書き込む事ができました。
後は、正しく書き込まれているか表示してみようと思います。
<%@ LANGUAGE = VBSCRIPT %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Const adTypeBinary=1
set cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB;User ID=sa;Password='';Data Source=athlon2500;Initial Catalog=test1"
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select MAX(IMAGE_ID) AS ID from test1",cn,adOpenKeyset, adLockOptimistic
if rs.EOF then
id=1
else
id=rs("ID")+1
end if
br = Request.BinaryRead(Request.TotalBytes)
set bobj = Server.CreateObject("basp21")
bPicture = bobj.FormBinary(br,"File1")
set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = cn
cmd.CommandText = "INSERT INTO test1(IMAGE_ID,IMAGE) VALUES(" & id & ",?)"
cmd.Parameters(0).Value = bPicture
cmd.Execute
setcmd = Nothing
rs.Close
cn.Close
%>
<html>
<body>
<%
set mstream = Server.CreateObject("ADODB.Stream")
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile Server.MapPath("sample.jpg")
Response.BinaryWrite(mstream.Read)
mstream.Close
%>
</body>
</html>
---------------------------------------------
参考URL:
http://www.shoeisha.com/mag/windev/pdf/870511/wi …
--------------------------------------------
No.3
- 回答日時:
T-SQLでとなると、ちょっと経験はありませんが、確か、WRITETEXTがText、Image型のポインタへの書き込みに利用できるのでT-SQLのヘルプで確認してみてください。
この回答への補足
ASPで使用できるのかわかりませんが、FileStream オブジェクトとバイト配列を使用して、Microsoft SQL Server からファイルに BLOB データを読み取る方法および書き込む方法を見つけました。
これをSQL文で使用できればと思うのですが・・・。
http://support.microsoft.com/default.aspx?scid=k …
No.2
- 回答日時:
VBSではなく、VBのサンプルになりますが、
Private Sub SaveToDB()
Dim bytBLOB() As Byte
Dim strImagePath As String
Dim intNum As Integer
'Save the record
strImagePath = Trim$(txtImagePath.Text)
With rs
.Fields("ImageTitle") = _
Trim$(txtImageTitle.Text)
If (optImageType(0).Value) Then
'Save as file pointer
.Fields("ImagePath") = strImagePath
Else
If (txtImagePath.Text <> "") Then
'Open the picture file
intNum = FreeFile
Open strImagePath For Binary As #intNum
ReDim bytBLOB (FileLen(strImagePath))
'Read data and close file
Get #intNum, , bytBLOB
Close #1
'Store the BLOB
.Fields("ImagePath") = ""
.Fields("ImageBLOB").AppendChunk bytBLOB
End If
End If
.Update
End With
End Sub
参考URL:http://msdn.microsoft.com/library/default.asp?ur …
この回答への補足
出来ればSQL文の中で使用したいと思っているのですが無理でしょうか。
(例)
INSERT INTO TABLE(IMAGE_ID,IMAGE) VALUES(No,Binary)
No.1
- 回答日時:
あまり時間がないので、簡単に。
image型のフィールドにバイナリデータを保存するということで可能です。ADOにはBLOBを操作するためにAppendChunk、GetChunkというメソッドがありますのでこちらをヘルプで調べてみてください。参考にVBのFormアプリから、該当の操作をするサンプルをのせておきます。
参考URL:http://msdn.microsoft.com/library/default.asp?ur …
この回答への補足
HTMLのフォーム(ENCTYPE="multipart/form-data")で入力された画像をBASP21のメソッドFormBinaryを使って1バイトの配列にセットしています。
bPicture = bobj.FormBinary(br,"File1")
この後、AppendChunkでデータベースに保存すると思うのですが、使い方が理解できませんでした。
サンプルコードなどありましたら紹介していただけないでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA 画像を貼り付ける...
-
javaで、、、
-
ブラウザのテキストボックスへ...
-
サーブレットコンテキストの意...
-
C#で親にイベントを投げる方法
-
C#のクラスで値渡しをする
-
SocketでXMLオブジェクトを送信...
-
servletからjspへオブジェクト...
-
String型からlong型への変換は...
-
vectorの内容をString型に変換...
-
Excel Book の変更の検知
-
VBスクリプトでテキストファイ...
-
ADOのOPENで実行時エラー
-
エクセルVBA/SpecialCellsで特...
-
VBAでの[]
-
ピクチャーボックスに点を打つ...
-
抽象クラスのオブジェクトを生...
-
VB.netでメソッドからコントロ...
-
PrintFormを使用してのプリント
-
setRequestAttributeとは?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 画像を貼り付ける...
-
VBAでの[]
-
サーブレットコンテキストの意...
-
VB.netでメソッドからコントロ...
-
C#のクラスで値渡しをする
-
Excel VBA 定数にオブジェクト...
-
servletからjspへオブジェクト...
-
VB.NETでのnothing の意義について
-
javaで、、、
-
PrintFormを使用してのプリント
-
Vba ListViewの行挿入に関して...
-
String型からlong型への変換は...
-
Dispose()は、どんな時に使うの...
-
ピクチャーボックスに点を打つ...
-
C#で親にイベントを投げる方法
-
VBS でのソート処理Excel2003
-
JSPでのArrayListの表示につい...
-
VB2005でADDとINSERTの違いは?
-
[ASP.NET]DropDownListのDB連携...
-
ADOのOPENで実行時エラー
おすすめ情報