「基本セット」の編集履歴（バックアップ）一覧に戻る

基本セット - (2008/01/19 (土) 09:46:38) の編集履歴(バックアップ)

---

基本セット

前提条件

• 新しいwebサイトの作成

---

SqlClient名前空間の基本セット。TableAdapterを使うより簡単なコードで、データベースを更新できる。

※下記掲示板のレスより引用
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=26488&forum=7&start=8

'######################################################
'## default.aspx.vb（VB.NET）
'######################################################
Partial Class _Default
    Inherits System.Web.UI.Page
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim obj_con = New Data.SqlClient.SqlConnection( [データベース接続文字列] )
        UpdateByCommand(obj_con)
    End Sub
 
    Protected Sub UpdateByCommand(ByVal connection As Data.SqlClient.SqlConnection)
 
        '今回はデータベースにクエリを投げてみようと思う。 
        Dim command = New Data.SqlClient.SqlCommand
 
        '値はこんなカンジで 
        command.Parameters.Add("@text1", Data.SqlDbType.VarChar).Value = "名前"
       command.Parameters.Add("@text2", Data.SqlDbType.VarChar).Value = "住所"
       command.Parameters.Add("@text3", Data.SqlDbType.VarChar).Value = "電話"
 
       command.Parameters.Add("@code", Data.SqlDbType.Int).Value = "1"
 
        '対象は大体こうで 
        command.CommandText = "update hoge set " _
        & "text1 = @text1, " _
        & "text2 = @text2, " _
        & "text3 = @text3 " _
        & " where " _
        & "code = @code"
 
        'むーすんで 
        command.Connection = connection
        'ひーらいーて 
        command.Connection.Open()
 
        'てーをーうって（クエリではなく、リターンがないのだと思うが…） 
        command.ExecuteNonQuery()
 
        'むーすんで 
        command.Connection.Close()
 
    End Sub
 
End Class