tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板) [ツリー表示へ]   [Home]
一括表示(VB.NET VB2005)
タイトルPartialメソッドについて
記事No8432
投稿日: 2008/11/21(Fri) 13:50
投稿者ムラ
申し訳ありませんが、また質問させて頂きます

あるDropdownListを選択すると、もう一つのDropdownListが絞られるという処理をApp_Code下のPartialメソッドから作っています。コードを下に載せます。

Imports System.Data
Imports System.Data.SqlClient
Imports System.ComponentModel

Namespace SystemAttributeDataSetTableAdapters

    Partial Public Class SystemAttributeDataSetTableAdapter

        <DataObjectMethod(DataObjectMethodType.Select)> _
        Public Function GetDataByTop(ByVal n As Integer) As SystemAttributeDataSet.SystemAttributeMasterDataTable
            Dim connection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection()
            Dim query As String = String.Format("SELECT * FROM Threat", n)
            Dim sqlda As SqlDataAdapter = New SqlDataAdapter(query, *Me.Connection)
            Dim table As SystemAttributeDataSet.SystemAttributeMasterDataTable = New SystemAttributeDataSet.SystemAttributeMasterDataTable()
            sqlda.Fill(table)
            Return table
        End Function

        <DataObjectMethod(DataObjectMethodType.Select)> _
        Public Function GetDataByState2(ByVal state As String) As SystemAttributeDataSet.SystemAttributeMasterDataTable
            Dim connection As System.Data.SqlClient.SqlConnection = New System.Data.SqlClient.SqlConnection()
            Dim sqlda As SqlDataAdapter
            If state = "1.顧客情報" Then
                sqlda = New SqlDataAdapter("SELECT MiddleKind FROM threat WHERE MiddleKind=1.設計、製造、サービスへのインプット", Me.ToString)
            Else
                sqlda = New SqlDataAdapter("SELECT * FROM threat", *Me.connection)
            End If
            Dim table As SystemAttributeDataSet.SystemAttributeMasterDataTable = New SystemAttributeDataSet.SystemAttributeMasterDataTable()
            sqlda.Fill(table)
            Return table
        End Function
    End Class

End Namespace

ドロップダウンリストはthreatというテーブルから作っています。そしてある項目を選んだらもう一つのドロップダウンリストが絞られるという処理がしたいのですが、それ以前の問題で、上のコードの「Me.Connection」(*)の部分に「SystemAttributeDataSetTableAdapterのメンバではありません。」というエラーが表示されます。NameSpaceレベルでのミスかClassレベルでのミスか見当がつきません。このエラーの原因をご教授お願いいたします。

[ツリー表示へ]
タイトルRe: Partialメソッドについて
記事No8460
投稿日: 2008/12/05(Fri) 01:23
投稿者たくボン
> 申し訳ありませんが、また質問させて頂きます
> それ以前の問題で、上のコードの「Me.Connection」(*)の部分に「SystemAttributeDataSetTableAdapterのメンバではありません。」というエラーが表示されます。

ここでMeと言うのはSystemAttributeDataSetTableAdapterだと思います。
そして、connectionと言う変数は、ローカル変数なので、Me.の修飾は間違いです。

このあたりの勉強をするなら変数とスコープで検索してみてください:-)

あと、名前空間の命名が少し気持ち悪いかもしれませんね。通常、複数を現すsは、型指定されたカスタムコレクションやGenericコレクションに付けられるのが一般的なので、大規模なシステムとかなら混乱する恐れがあります。

[ツリー表示へ]
タイトルRe^2: Partialメソッドについて
記事No8464
投稿日: 2008/12/15(Mon) 19:19
投稿者ムラ
ご指摘ありがとうございます

解決しました

[ツリー表示へ]