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

お世話になります。
以下のようなことを実現したいのですが、クラスの参照がうまくいきません。

Ctrlsで作成されたTxt_HinCDをフォームに配置し、値が入力された時ParametersクラスにあるHinCDに値が入る。
フォームにあるBtn_Selectをクリックした時にParametersクラスから値を取得し、SQLを作成。データベースから値を取得する。

Ctrls.vb（TextBoxを派生させたコントロールを作成）
Public Class Txt_HinCD
 Inherits TextBox

  Protected Overrides sub TextBoxChange
   �@ParametersクラスのHinCDにテキストボックスの値を入れる処理
　End Sub
End Class

Parameters.vb
Public Class Param
  Private pHinCD as String = ""

  Public Property HinCD() as String
    Get
       Return pHinCD
    End Get
    Set(value as string)
       pHinCD = value
    End Set
  End Property
End Class

Public Frm_Hin
  Private Sub Btn_Select Click(省略)
    Dim Cmd as new OleDbCommand
    Cmd.CommandText = "SELECT * FROM HogeTbl WHERE hin_cd = " & �AParametersクラスのHinCDの値
    ・
　　・
　　・

�@をHParam as new Parameters　とし、�Aも同様に定義してみましたが、�@で値が入っても�Aではブランクになっています。
どのように定義したらよろしいでしょうか？

■No47506 (だい さん) に返信
こうじゃないの？

Param→Txt_HinCD→Frm_Hin(Btn_Select)

    Public Class Param
        Public Text As String = String.Empty
    End Class

    Public Class Txt_HinCD
        Public HParam As New Param
        Sub New()
            Me.HParam.Text = "あああ"
        End Sub
    End Class

    Private Sub Btn_Select()
        MsgBox(Txt_HinCDinstance.HParam.Text)
    End Sub

■No47511 (774RR さん) に返信
> 主題と関係ないけど
> " AND HinCD = '" & value & "'"
> モロに SQL injection するから「このままではダメ」だぞ。
> 
うん。ハッカーの格好の的ですね（＾＾；

■No47510 (だい さん) に返信
例えば、■46712 あたりで質問していた時に OleDb.OleDbParameter クラスは
使っていますよね？これは、品目コードも品目名も入れられると思いますが、
これを機能拡張していくイメージで良いんですよね？

> 自分がやろうとしていることはデータベースにアクセスする際のパラメータとしてクラスを作成したいんです。
Param クラスですよね？Text を使ったのは分かり易くする為であって、Text 以外にしてくれて構いません。
Param クラスを作り込んでいくので問題ないと思いますが。

> もっと細かく言うと、SELECT、INSERT、UPDATEに応じてSELECTだったら" AND HinCD = '" & value & "'"をReturnしています。
あくまでサンプルコードなので、そのまま使えるものまでレベルは上げていませんよ。
仕組みを説明するだけのものです。
    Public Enum CommandKind
        SQL_SELECT
        SQL_INSERT
        SQL_UPDATE
    End Enum

    Public Class Param
        Public Text As String = String.Empty

        Public ReadOnly Property SQLText(ByVal Kind As CommandKind) As String
            Get
                Dim ReturnText As String = String.Empty
                Select Case Kind
                    Case CommandKind.SQL_SELECT
                        ReturnText = "SELECT " & Me.Text
                    Case CommandKind.SQL_INSERT
                        ReturnText = "INSERT " & Me.Text
                    Case CommandKind.SQL_UPDATE
                        ReturnText = "UPDATE " & Me.Text
                    Case Else
                        Err.Raise(999)
                End Select
                Return ReturnText
            End Get
        End Property
    End Class

    Public Class Txt_HinCD
        Public HParam As New Param
        Sub New()
            Me.HParam.Text = "あああ"
        End Sub
    End Class

    Private Sub Btn_Select()
        MsgBox(Txt_HinCDinstance.HParam.SQLText(CommandKind.SQL_SELECT))
    End Sub

以下のようにしました。

Public Class clsParameters
    Public Enum CmdKind
        SQL_SELECT
        SQL_INSERT
        SQL_UPDATE
    End Enum

    Public Class HinCD
        Public Text As String = String.Empty

        Public Property Param(ByVal Kind As CmdKind) As String
            Get
                Select Case Kind
                    Case CmdKind.SQL_SELECT
                        Return " AND Hin_NM = '" & Text & "'"
                    Case CmdKind.SQL_INSERT
                        Return " ,'" & Text & "'"
                    Case CmdKind.SQL_UPDATE
                        Return " ,Hin_NM = '" & Text & "'"
                    Case Else
                        Err.Raise(999)
                        Return String.Empty
                End Select
            End Get
            Set(ByVal value As String)
                Text = value
            End Set
        End Property

        Public Sub New()
            Me.Text = String.Empty
        End Sub

    End Class

    Public Class clsHinKN
        Public Text As String = String.Empty

        Public Property Param(ByVal Kind As CmdKind) As String
            Get
                Select Case Kind
                    Case CmdKind.SQL_SELECT
                        Return " AND Hin_KN = '" & Text & "'"
                    Case CmdKind.SQL_INSERT
                        Return " ANS Hin_KN = '" & Text & "'"
                    Case CmdKind.SQL_UPDATE
                        Return " ,Hin_KN = '" & Text & "'"
                    Case Else
                        Err.Raise(999)
                        Return String.Empty
                End Select
            End Get
            Set(ByVal value As String)
                Text = value
            End Set
        End Property

        Public Sub New()
            Me.Text = String.Empty
        End Sub

    End Class

Public Class Ctrls

    Public Class Txt_HinCD
        Inherits TextBox

        Protected Overrides Sub OnLostFocus(ByVal e As System.EventArgs)
            MyBase.OnLostFocus(e)

            Dim HinCD As New clsParameters.clsHinNM

            HinCD.Text = Me.Text
        End Sub

    End Class

End Class

セキュリティの問題が出ていますが、mdbを使う場合何か方法はあるのでしょうか？
名前付きパラメータも使えないし、順不同に入力される可能性があるので？も使えないですし…。

■No47535 (だい さん) に返信
> 名前付きパラメータも使えないし、順不同に入力される可能性があるので？も使えないですし…。
SQL 中で、『PARAMETERS』宣言をすれば OK です。
http://office.microsoft.com/ja-jp/access/HP010322601041.aspx

ADO や DAO のように、SQL 中のパラメータを自動取得する機能はありませんが、
ADO.NET(Microsoft.JET.OLEDB.4.0) でも『PARAMETERS』を明示すれば、パラメータの順序が保たれます。


'あえて、未使用パラメータ nantoka を追加してみる。
Dim q As String = "PARAMETERS nantoka TEXT, kantoka LONG; SELECT * FROM HogeTbl WHERE hin_cd = kantoka;"

Dim cmd As New OleDbCommand(q, Conn)
cmd.Parameters.Add("nantoka", OleDbType.VarWChar)
cmd.Parameters.Add("kantoka", OleDbType.Integer)

cmd.Parameters("nantoka").Value = DBNull.Value
cmd.Parameters("kantoka").Value = 123

' nantoka と kantoka が区別されて処理されるはず
Dim tbl As New DataTable()
Using adp As New OleDbDataAdapter(cmd)
　adp.Fill(tbl)
End Using

> Newしないとなるとインスタンスされていないためエラーとなります。

Form 側で HinCD のインスタンスを作成して TxtHin_CD オブジェクトに渡すと良いかと
思います。

Public Class Form1
  Private HinCD_ As New HinCD()

  Private Sub Form1_Load(...) Handles MyBase.Load
    Txt_HinCD1.HinCD = HinCD_
  End Sub

  Private Sub Btn_Select_Click(...) Handles Btn_Select.Click
    ...
    Dim command As New OleDbCommand()
    command.CommandText = HinCD_.Text
    ...
  End Sub
End Class

Public Class Txt_HinCD
  Inherits TextBox

  Private HinCD_ As HinCD

  Public WriteOnly Property HinCD() As HinCD
    Set(ByVal value As HinCD)
      HinCD_ = value
    End Set
  End Property

  Protected Overrides Sub OnLostFocus(ByVal e As System.EventArgs)
    MyBase.OnLostFocus(e)
    If HinCD_ IsNot Nothing Then
      HinCD_.Text = Me.Text
    End If
  End Sub
End Class

> 最終的にはボタン押下でパラメータを連結し、DBアクセスを行います。

パラメータへの値のセットが抜け落ちているようですがその辺りは大丈夫でしょうか。

■No47552 (だい さん) に返信

Public Class Txt_HinCD
  Inherits TextBox
  
  Private HinCD_ As HinCD　←※
  
  Public WriteOnly Property HinCD() As HinCD
    Set(ByVal value As HinCD)
      HinCD_ = value
    End Set
  End Property
  
  ...
End Class

> ※の部分でインスタンスされていないように思いますがこれで大丈夫なんですか？

Form で HinCD のインスタンスを作成して Txt_HinCD のオブジェクトにセットします。
Txt_HinCD クラスには HinCD のインスタンスを受け取るために WriteOnly な Property 
を用意しています。
なので Txt_HinCD クラスの HinCD_ 変数宣言時にインスタンスが作成されないことを危
惧する必要はありません。

Public Class Form1
  ' ここで HinCD のインスタンスを作成して
  Private HinCD_ As New HinCD()

  Private Sub Form1_Load(...) Handles MyBase.Load
    ' Txt_HinCD にセットします
    Txt_HinCD1.HinCD = HinCD_
  End Sub
  
  ...
End Class