VB2005の質問です。
変数ghogeにString型の1次元配列の配列を格納したいと考えています。
-----------------------------------------------
'a)
Dim hoge()() As string = _
{New string() {"a1", "b1", "c1"}, _
New string() {"a2", "b2", "c2"}, _
New string() {"a3", "b3", "c3"}}
Dim ghoge As New Generic.List(of ) 'b)
MessageBox.Show(ghoge(1)(1)) ' "b2"と表示したい
-----------------------------------------------
質問内容は、(a)を(b)の初期値として設定するにはどのようにすればよいか、ということです。
(b)がGeneric.ListでなくArrayListの場合だと、
Dim ghoge As New ArrayList(hoge)
でhoge配列を格納できますが、Generic.Listの場合はどのような構文にすればよいでしょうか。
現在は、下記のような処理でghogeに値を格納しています。
------------------------------------------------------------
Dim ghoge As New Generic.List(Of Generic.List(Of String))
Dim aryhoge1 As New Generic.List(Of String)(New String() {"a1", "b1", "c1"})
Dim aryhoge2 As New Generic.List(Of String)(New String() {"a2", "b2", "c2"})
gary_hoge.Add(ary_hoge1)
gary_hoge.Add(ary_hoge2)
MessageBox.Show(gary_hoge(1)(1)) ' "b2"と表示される
------------------------------------------------------------
どうぞよろしくお願い致します。
VB2005の質問です。
変数ghogeにString型の1次元配列の配列を格納したいと考えています。
-----------------------------------------------
'a)
Dim hoge()() As string = _
{New string() {"a1", "b1", "c1"}, _
New string() {"a2", "b2", "c2"}, _
New string() {"a3", "b3", "c3"}}
Dim ghoge As New Generic.List(of ) 'b)
MessageBox.Show(ghoge(1)(1)) ' "b2"と表示したい
-----------------------------------------------
質問内容は、(a)を(b)の初期値として設定するにはどのようにすればよいか、ということです。
(b)がGeneric.ListでなくArrayListの場合だと、
Dim ghoge As New ArrayList(hoge)
でhoge配列を格納できますが、Generic.Listの場合はどのような構文にすればよいでしょうか。
現在は、下記のような処理でghogeに値を格納しています。
------------------------------------------------------------
Dim ghoge As New Generic.List(Of Generic.List(Of String))
Dim aryhoge1 As New Generic.List(Of String)(New String() {"a1", "b1", "c1"})
Dim aryhoge2 As New Generic.List(Of String)(New String() {"a2", "b2", "c2"})
gary_hoge.Add(ary_hoge1)
gary_hoge.Add(ary_hoge2)
MessageBox.Show(gary_hoge(1)(1)) ' "b2"と表示される
------------------------------------------------------------
どうぞよろしくお願い致します。
'もう一質問。頻繁に考えていたこと
Class himajin100000
Shared Sub Main
Dim hoge As Integer
Dim fuga As Double = 5.5
hoge = System.Convert.ToInt32(5.5)
System.Diagnostics.Debug.Print(hoge.ToString)
hoge = CType(5.5,Integer)
System.Diagnostics.Debug.Print(hoge.ToString)
'という変換を防ぎたいです。
'Double値が5.0など、整数として切りの良い数字のときのみ変換したい
'それ以外はプログラマのミスとしてエラーが検出できるように。
'なお、
'hoge = DirectCast(5.5,Integer)
'とか
'hoge = DirectCast(System.Math.Floor(5.5),Integer)
'はエラーが出ます。
'今まで私は，
hoge = Integer.Parse(System.Math.Floor(5.5).ToString)
System.Diagnostics.Debug.Print(hoge.ToString)
'という風に書いてきました。
'Integer.Parse((5.5).ToString) System.FormatException
'何かString型を介している地点で冗長な気がするので
'もっといい方法・わかりやすい方法等があれば教えてください
End Sub
End Class
'もう一質問。頻繁に考えていたこと
Class himajin100000
Shared Sub Main
Dim hoge As Integer
Dim fuga As Double = 5.5
hoge = System.Convert.ToInt32(5.5)
System.Diagnostics.Debug.Print(hoge.ToString)
hoge = CType(5.5,Integer)
System.Diagnostics.Debug.Print(hoge.ToString)
'という変換を防ぎたいです。
'Double値が5.0など、整数として切りの良い数字のときのみ変換したい
'それ以外はプログラマのミスとしてエラーが検出できるように。
'なお、
'hoge = DirectCast(5.5,Integer)
'とか
'hoge = DirectCast(System.Math.Floor(5.5),Integer)
'はエラーが出ます。
'今まで私は，
hoge = Integer.Parse(System.Math.Floor(5.5).ToString)
System.Diagnostics.Debug.Print(hoge.ToString)
'という風に書いてきました。
'Integer.Parse((5.5).ToString) System.FormatException
'何かString型を介している地点で冗長な気がするので
'もっといい方法・わかりやすい方法等があれば教えてください
End Sub
End Class
やりたいことをまとめてみました。
テキストボックスを２つ用意して
「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>
