カテゴリー: 技術系

ASP.NETでアップロードされたファイルを、DBに格納する方法のメモ。

開発をしていて、データの保存場所に困ることがある。
フォルダにそのまま格納しておくと分散が大変とか、
ファイルの管理が大変とか、いろいろな悩みがあるだろう。
その時の選択肢としてよく上がるのが、DBをストレージとして使う方法だ。
ファイルとしてフォルダに置くのではなく、DBに格納し必要な時にSQLで取り出す。
データはDBに保存してあるので、DBのバックアップを取っておけばOK。
DBのパフォーマンスは気になるが、選択肢としてあるだろう。

そんなとき、ASP.NETでアップロードされたファイルを直接DBに保存する。
ファイルとしてサーバ上に置かなくていいので、ゴミもできない便利な方法だ。

■画面側

まず、ASPX側にはFileUploadコントロールを配置する。（これのIDはFileUpload1とする）
これで、ファイルを指定するボタンとファイルが指定されるテキストボックスができる。

■VB側の処理

FileUploadコントロールのPostedFile.InputStreamメソッドでアップロードされたファイルを
Streamオブジェクト（バイトデータ）として読み込むことができる。
ただ読むことができる、いってもそのままDBに格納できるわけではないので、
一度、変数に読み取ったバイトコードを格納し、それをSQLパラメータにいれる。
わかってしまえば、どうということはない処理だ。

■サンプルコード

 Try
     'SQL Connectionの作成（参考：マスタページ側で処理してる）
     Dim dbCon As SqlConnection = New SqlClient.SqlConnection
     dbCon.ConnectionString = ConfigurationManager.ConnectionStrings("DBconnect").ConnectionString
     dbCon.Open()
     
     'Transactionの作成（参考：マスタページ側で処理してる）
     Dim dbTrans As SqlTransaction
     dbTrans = dbCon.BeginTransaction(IsolationLevel.ReadCommitted)
      
      
     'DBには、VarBinary型もしくはimage型のFileDataというカラムがある想定
      Dim sql As String = "INSERT INTO FileStorage (FileData) VALUES (@file)"
      
      Dim command As SqlCommand = New SqlCommand(sql, dbCon, dbTrans)
      
      'Byteデータとしてアップロードされたファイルを読み込む
      Dim binaryData(FileUpload1.PostedFile.InputStream.Length) As Byte
      FileUpload1.PostedFile.InputStream.Read(binaryData, 0, FileUpload1.PostedFile.InputStream.Length)
      command.Parameters.Add("@file", SqlDbType.VarBinary).Value = binaryData
      
     'SQLの実行
     Dim result As String
     result = command.ExecuteNonQuery()
     
     'SQL Connectionを閉じる。
     dbCon.Close()
 Catch ex As Exception
     dbCon.Close()
     
     Response.Write("失敗。。。")
 End Try

ASP.NETでアップロードされたファイルの種類を判別する方法のメモ。
拡張子で判別するなら、バリデーションコントロールを使ったほうが楽だが、
ここではmimeタイプを使って判別する方法を書く。

■ASPX側

まず、ASPX側にはFileUploadコントロールを配置する。（これのIDはFileUpload1とする）
これで、ファイルを指定するボタンとファイルが指定されるテキストボックスができる。

■VB側の処理

FileUploadコントロールのHasFileメソッドを使い、ファイルが指定されているかを判別する。
次に、PostedFile.ContentTypeメソッドを使い、アップロードされたファイルのmimeタイプを取得し、
mimeタイプが”application/pdf”であるかを判別する。
（PDFファイルがアップロードされた場合、mimeタイプはapplication/pdfになる）

■サンプルコード

 'ファイルが指定されているかどうかの判別
 If FileUpload1.HasFile Then
     'PDFファイルが指定されているかどうかmimeタイプから判別する
     If FileUpload1.PostedFile.ContentType = "application/pdf" Then
         'PDFファイルだった場合は、ここの処理を実行する
 
 
     End If
 End If

消費税を計算する場合、原則として1円未満の場合は切り捨てを行う。
（ただし、四捨五入も認められているので、四捨五入をしても間違えではない。）

VBで消費税計算をする場合は、小数点以下を切り捨てるために Math.Floor() メソッドを使用する。

■例）

 Dim TaxRate As Double = 0.05
 Dim UnitPrice As Integer = 103
 Dim Total As Integer
 
 Total = Math.Floor(UnitPrice * TaxRate)

■結果：切り捨てしない場合には108.15、切り捨てにより108になる。

計算結果に対して、Math.Floorメソッドを使うことにより、
切り捨てた数をInteger型にいれることができる。

ちなみに、小数点以下を切り上げしたい場合には、Math.Ceiling() メソッドを使う。

他の方法としては、ToString() メソッドで小数点以下をまるめることもできる。
変数.ToString(“C”) を指定することで、小数点以下を四捨五入することができる。

■例）

 Dim TaxRate As Double = 0.05
 Dim UnitPrice As Integer = 103
 Dim TotalTemp As Double
 Dim Total As Integer
 
 TotalTemp = UnitPrice * TaxRate
 Total = TotalTemp.ToString("C")

この方法でも、小数点以下の表示はなくせるが、四捨五入になる。

.NET Framework 4.5では、CLRのバージョンが4.5になっており、独自のCLRとなった。
.NET Frameworkは、2.0～3.5SPまでがCLR2.0、4.0がCLR4.0となっている。
.NET Frameworkは実行環境がCLRのバージョンにより左右されるため、
CLR4.0しか動作しないWindowsでは、.NET Framework4.5のアプリを
動作させることができない。

ただし、CLR4.0とCLR4.5は完全互換性があるとのこと。

どちらにしても、基盤となるCLRのバージョンが違うため、
開発などを進める際には注意が必要。
互換性があるといっても、ベースになるバージョンが違うと実行できないはずなので、
コンパイルのし直しなどは発生するはずだし、実行環境のアップデートが求められる。
せめて、4系は同じCLRを使ってほしかったところではある。
2系のように少し長いこと使えるようにしてくれると、
開発する側はいろいろと楽なんだがね。

strConv関数を使うことで、文字列の種類を変えられる。

■例）

 Dim Text As String = "ＷＨＡＴ　ＴＩＭＥ　ＩＳ　ＩＴ　ＮＯＷ？"
 Dim narrowText As String = StrConv(Text, VbStrConv.Narrow)

・VbStrConv.Narrow で文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換
・VbStrConv.Wide で文字列内の文字列内の全角文字 (2 バイト) を半角文字 (1 バイト) に変換

他にも、VbStrConv.XXXで指定することにより、ひらがなからカタカナ、
繁体字を簡体字、というように変換用のセットが用意されているため、
簡単に変換することができる。

なお、例のように全角文字から半角文字に変換する場合、
文字列に含まれたカタカナが半角カタカナに変換されてしまうので注意が必要。

カタカナのケアだけ別途やる必要があるので、万能ではない。
カタカナが混じる場合は、別途組み合わせて対応が必要。