C# と VB.NET の質問掲示板

質問が下手なので、やりたいことをまとめてみました。

テキストボックスを２つ用意して
「txt_company」には会社名を「txt_Name」には氏名を入力し
ラジオボタンリスト「rdo_Type」から選択した後、
「Button1」ボタンをクリックすると３つのデータを「ユーザ」テーブルへ挿入。

という風にしたいのですが、うまく行きません。エラーは出ませんが何も挿入されません。
これはどういう意味でしょうか？
もしかしたら元々の構成を勘違いしているのかもしれないのでコードを記述してみました。

何方かご指南お願い致します。


・イベントハンドラ

Protected Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 SqlDataSource1.Insert()
End Sub

Protected Sub SqlDataSource1_Inserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceCommandEventArgs)
 e.Command.Parameters("@company").Value = txt_company.Text
 e.Command.Parameters("@name").Value = txt_Name.Text
 e.Command.Parameters("@type").Value = rdo_Type.SelectedValue
End Sub

Protected Sub SqlDataSource1_Inserted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceStatusEventArgs)
 Label1.Text = e.AffectedRows + "件処理されました"
End Sub


・SqlDataSource

<asp:SqlDataSource ID="SqlDataSource1" runat="server" 
 ConnectionString="<%$ ConnectionStrings:MyNorthwind %>" 
 InsertCommand="INSERT INTO ユーザ (会社名, 氏名, タイプ) SELECT(@company, @name, @type)"> 

 <InsertParameters>
  <asp:formparameter Name="company" ConvertEmptyStringToNull="true"/>
  <asp:formparameter Name="name" />
  <asp:formparameter Name="type" />
 </InsertParameters>

</asp:SqlDataSource>

随所に間違いがちらほら…デバック実行すればわかりそうな予感がしますが･･･
検証環境はVS2005(VB.NET)です。

[コードビハインド側]
    Protected Sub SqlDataSource1_Inserted(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceStatusEventArgs) Handles SqlDataSource1.Inserted
        Label1.Text = e.AffectedRows.ToString() + "件処理されました"
    End Sub

    Protected Sub SqlDataSource1_Inserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.SqlDataSourceCommandEventArgs) Handles SqlDataSource1.Inserting
        e.Command.Parameters("@company").Value = "xxx"
        e.Command.Parameters("@name").Value = "yyy"
        e.Command.Parameters("@type").Value = "zzz"
    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        SqlDataSource1.Insert()
    End Sub

[aspx]
        <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:MyNorthWindConnectionString %>"
            InsertCommand="INSERT INTO ユーザ(会社名, 氏名, タイプ) VALUES (@company, @name, @type)"
            SelectCommand="SELECT ユーザ.* FROM ユーザ">
            <InsertParameters>
                <asp:Parameter Name="company" />
                <asp:Parameter Name="name" />
                <asp:Parameter Name="type" />
            </InsertParameters>
        </asp:SqlDataSource>
        <asp:Button ID="Button1" runat="server" Text="Button" />
        <asp:Label ID="Label1" runat="server" Text="Label"></asp:Label>

まず、InsertCommandが間違っているような。
つぎに、e.AffectedRowsはToString()しないと文字列連結にならないような・・・。

パラメータの設定は面倒なのでハードコードして検証しました。あしからず。

ちなみに1件づつInsertするだけならSqlDataSourceを使わなくても

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Using connection As New SqlConnection(WebConfigurationManager.ConnectionStrings("MyNorthWindConnectionString").ConnectionString)
            connection.Open()
            Dim command As New SqlCommand("INSERT INTO ユーザ(会社名, 氏名, タイプ) VALUES (@company, @name, @type)", connection)
            command.Parameters.AddWithValue("@company", "xxx1")
            command.Parameters.AddWithValue("@name", "yyy1")
            command.Parameters.AddWithValue("@type", "zzz1")
            Dim result As Integer = command.ExecuteNonQuery()
            Label1.Text = result.ToString() + "件処理されました"
            connection.Close()
        End Using
    End Sub

こんな感じで同様の結果は得られるかと思われます。