プログラムのメモ置き場 @ ウィキ

asp005

最終更新：2010年07月20日 17:24

chaka-poko

- view

管理者のみ編集可

バイナリ・データをデータベースに登録する

テーブルのレイアウト

フィールド名	データ型
id	int	ID（主キー連番）
subject	varchar(300)	件名
title	varchar(100)	ファイル名
type	varchar(50)	MIMEタイプ
idata	varbinary(MAX)	バイナリ・データ
last_modified	datetime	最終更新日

ImageUpload.aspx

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
 <title>画像のアップロード</title>
</head>
<body>
 <form id="form1" runat="server">
  <h3>
   バイナリ・データをデータベースに格納する</h3>
  件名：<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>
  <br />
  画像：<asp:FileUpload ID="FileUpload1" runat="server" />
  <asp:Button ID="Button1" runat="server" Text="更新" />
 </form>
</body>
</html>

ImageUpload.aspx.vb

Imports System.Data.SqlClient
Imports System.Data
Imports System.IO
 
Partial Class ImageUpload_ImageUpload
 Inherits System.Web.UI.Page
 
 Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
  'アップロードファイルをバイト配列で取り出して、データベースのバイナリ列に保存する。
  Dim db As New SqlConnection(ConfigurationManager.AppSettings("dbstr"))
  Dim cmd As SqlCommand = _
   New SqlCommand("INSERT INTO d_Image(subject,title,type,idata,last_modified) VALUES @p1,@p2,@p3,@p4,@p5)", db)
  Dim p1 As SqlParameter = cmd.Parameters.Add("@p1", SqlDbType.VarChar, 100)
  p1.Value = Me.TextBox1.Text
  Dim p2 As SqlParameter = cmd.Parameters.Add("@p2", SqlDbType.VarChar, 100)
  p2.Value = Path.GetFileName(Me.FileUpload1.PostedFile.FileName)
  Dim p3 As SqlParameter = cmd.Parameters.Add("@p3", SqlDbType.VarChar, 50)
  p3.Value = Me.FileUpload1.PostedFile.ContentType
  Dim p4 As SqlParameter = cmd.Parameters.Add("@p4", SqlDbType.VarBinary)
  p4.Value = Me.FileUpload1.FileBytes
  Dim p5 As SqlParameter = cmd.Parameters.Add("@p5", SqlDbType.DateTime)
  p5.Value = Now()
 
  db.Open()
  cmd.ExecuteNonQuery()
  db.Close()
 
  Me.TextBox1.Text = ""
 
 End Sub
 
End Class