ASP.NET: 2007年12月アーカイブ
ASP2.0でのファイルアップロードの方法は簡単です。デザイン画面でFileUploadコントロール、Button、Labelをドラッグ＆ドロップします。
アップロードボタンのClickイベントに以下のように記述するだけです。
アップロードボタンのClickイベントに以下のように記述するだけです。
If FileUpload1.HasFile Then
FileUpload1.SaveAs("d:\work2\" & FileUpload1.FileName)
Else
Label1.Text = "ファイルを正しく選択してください。"
End If
HasFileプロパティでファイルがFileUploadコントロールに格納されているかどうかを確認します。HasFileプロパティがTrueであればSaveAsメソッドにアップロード先のパスを指定するのみです。FileUpload1.SaveAs("d:\work2\" & FileUpload1.FileName)
Else
Label1.Text = "ファイルを正しく選択してください。"
End If
データセットの各項目へのアクセス方法について紹介します。
まずは、レコード件数です。
次は、テーブルの各項目へのアクセス方法です。
先頭レコードの一番はじめのフィールドへの参照は以下のようになります。
まずは、レコード件数です。
Dim da As SqlDataAdapter = New SqlDataAdapter(sqlStr, connStr)
Dim ds As DataSet = New DataSet
da.Fill(ds)
'レコード件数チェック
If ds.Tables(0).Rows.Count = 0 Then
Response.Write("データはありません。")
End If
SQLの発行が1つであればTable(0)となります。複数のSQLを発行している場合にTables(index)で参照できます。Dim ds As DataSet = New DataSet
da.Fill(ds)
'レコード件数チェック
If ds.Tables(0).Rows.Count = 0 Then
Response.Write("データはありません。")
End If
次は、テーブルの各項目へのアクセス方法です。
先頭レコードの一番はじめのフィールドへの参照は以下のようになります。
ds.Tables(0).Rows(0)(0)
データアダプタは、データベースとデータセットの橋渡しを行うようなものです。
ここでは、SQLServerに接続してGrideViewへの表示を行います。
まずは、aspxファイルのデザイン画面にGridViewをドラッグ＆ドロップします。これだけであとは、vbファイルに以下のコードを記述します。
ここでは、SQLServerに接続してGrideViewへの表示を行います。
まずは、aspxファイルのデザイン画面にGridViewをドラッグ＆ドロップします。これだけであとは、vbファイルに以下のコードを記述します。
Dim connStr As String = "Data Source=(local);Initial Catalog=test;User ID=testUsr;Password=pass"
Dim sqlStr As String = "SELECT * FROM [User]"
Dim da As SqlDataAdapter = New SqlDataAdapter(sqlStr, connStr)
Dim ds As DataSet = New DataSet
da.Fill(ds)
GridView1.DataSource = ds
GridView1.DataBind()
これで表示できてしまいます。
Dim sqlStr As String = "SELECT * FROM [User]"
Dim da As SqlDataAdapter = New SqlDataAdapter(sqlStr, connStr)
Dim ds As DataSet = New DataSet
da.Fill(ds)
GridView1.DataSource = ds
GridView1.DataBind()
前回はODBCでの接続でしたが、今回はパフォーマンスがより良いとされている、Connector/Netでの接続を行います。
まずはConnector/Net 5.1をこちらからダウンロードしてインストールします。
次にVS2005のプロジェクトに参照の設定をします。
メニュー→Webサイト→参照の追加→.NETタブの中の、MySQL.Dataを選択してOKボタンをクリックします。
これでvbファイルでImportの記述が行えます。
これでMySQLからデータを取得してGridViewに表示されます。
まずはConnector/Net 5.1をこちらからダウンロードしてインストールします。
次にVS2005のプロジェクトに参照の設定をします。
メニュー→Webサイト→参照の追加→.NETタブの中の、MySQL.Dataを選択してOKボタンをクリックします。
これでvbファイルでImportの記述が行えます。
Dim conn As
MySqlConnection
Dim ds As New
DataSet()
Dim da As New MySqlDataAdapter()
'接続文字列
Dim connStr As String =
"Database=bookmark;Data Source=localhost; _
User
Id=user;Password=pass"
da.SelectCommand = New MySqlCommand("SELECT * FROM items", conn)
'DataSetに格納
da.Fill(ds)
'GridViewへバインド
GridView1.DataSource = ds
GridView1.DataBind()
GridViewの更新はCommandFieldを追加するだけで簡単にできますが、MySQLだとそうはいきません。データソース構成ウィザードでUpdateCommandをうまく作れないためです。
ということでここでは、コードからGridViewを更新する方法をご紹介します。SQLServerであればこんなことは不要なんですけどね。
ここで紹介する画面イメージは以下のようになっています。
更新したい項目をTemplateFieldにしておきます。GridViewの列の編集から開くダイアログでフィールドを選択して「このフィールドを TemplateField に変換します。」リンクをクリックします。
これで基本的には準備完了です。あとはコードを書きます。どのイベントに書くかというと、GridViewのRowUpdaingに記述します。
ということでここでは、コードからGridViewを更新する方法をご紹介します。SQLServerであればこんなことは不要なんですけどね。
ここで紹介する画面イメージは以下のようになっています。
更新したい項目をTemplateFieldにしておきます。GridViewの列の編集から開くダイアログでフィールドを選択して「このフィールドを TemplateField に変換します。」リンクをクリックします。
これで基本的には準備完了です。あとはコードを書きます。どのイベントに書くかというと、GridViewのRowUpdaingに記述します。
Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As _
System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
'更新対象の行をGridViewRowオブジェクトとして取得
Dim row As GridViewRow = GridView1.Rows(e.RowIndex)
'TemplateFieldのTextBoxのIDを指定して取得
Dim url As TextBox = CType(row.FindControl("TextBox1"), TextBox)
Dim title As TextBox = CType(row.FindControl("TextBox2"), TextBox)
Dim desc As TextBox = CType(row.FindControl("TextBox3"), TextBox)
'UpdateCommand設定
SqlDataSource1.UpdateCommand = "UPDATE bookmark.items SET url = ?, title = ?, _
description = ? WHERE (id = ?)"
'各パラメータを設定
SqlDataSource1.UpdateParameters.Add("param1", CStr(url.Text))
SqlDataSource1.UpdateParameters.Add("param2", CStr(title.Text))
SqlDataSource1.UpdateParameters.Add("param3", CStr(desc.Text))
SqlDataSource1.UpdateParameters.Add("param4", CStr(row.Cells(0).Text))
End Sub
これで更新が可能になります。
System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
'更新対象の行をGridViewRowオブジェクトとして取得
Dim row As GridViewRow = GridView1.Rows(e.RowIndex)
'TemplateFieldのTextBoxのIDを指定して取得
Dim url As TextBox = CType(row.FindControl("TextBox1"), TextBox)
Dim title As TextBox = CType(row.FindControl("TextBox2"), TextBox)
Dim desc As TextBox = CType(row.FindControl("TextBox3"), TextBox)
'UpdateCommand設定
SqlDataSource1.UpdateCommand = "UPDATE bookmark.items SET url = ?, title = ?, _
description = ? WHERE (id = ?)"
'各パラメータを設定
SqlDataSource1.UpdateParameters.Add("param1", CStr(url.Text))
SqlDataSource1.UpdateParameters.Add("param2", CStr(title.Text))
SqlDataSource1.UpdateParameters.Add("param3", CStr(desc.Text))
SqlDataSource1.UpdateParameters.Add("param4", CStr(row.Cells(0).Text))
End Sub
MySQLへの接続をODBCで試してみたところ、文字化けした。。DBの文字コードはUTF-8にしてあるのにだめでした。
環境：XP Pro, VS2005, MySQL5.0, ODBC3.51（MySQLはWin, Linux両方試した）
ただODBCを5.1にしたらWin,Linuxどちらも文字化けせず。。
ちなみにSqlDataSourceの構成ウィザードでもSQLServerのように単純にはいきません。
Selectステートメントの構成では”カスタム”を選ばないとエラーになる。
SQLは直接記述するか、クエリビルダを使います。UPDATE, INSERT, DELETEはウィザードではうまくいきません。コードに記述することになります。
最後にクエリのテストをクリックして結果を確認します。文字化けする場合はここで文字化けします。
これで設定完了です。
環境：XP Pro, VS2005, MySQL5.0, ODBC3.51（MySQLはWin, Linux両方試した）
ただODBCを5.1にしたらWin,Linuxどちらも文字化けせず。。
ちなみにSqlDataSourceの構成ウィザードでもSQLServerのように単純にはいきません。
Selectステートメントの構成では”カスタム”を選ばないとエラーになる。
SQLは直接記述するか、クエリビルダを使います。UPDATE, INSERT, DELETEはウィザードではうまくいきません。コードに記述することになります。
最後にクエリのテストをクリックして結果を確認します。文字化けする場合はここで文字化けします。
これで設定完了です。
