プログラムのメモ置き場 @ ウィキ
asp005
最終更新：
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
参考にさせていただいたページ
[Counter] Total： -
