「基本セット」の編集履歴（バックアップ）一覧はこちら

基本セット - (2008/01/19 (土) 09:46:38) の最新版との変更点

追加された行は緑色になります。

削除された行は赤色になります。

*基本セット
//見出し
***前提条件

-[[新しいwebサイトの作成]]

//水平線
----

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

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

#highlight(vb.net){{
'######################################################
'## 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
}}

*基本セット

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

***引用元
-http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=26488&forum=7&start=8

**前提条件
-[[新しいwebサイトの作成]]

**手順
default.aspx.vb を以下のように変更する。
#highlight(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
}}