データを取得するには？ (ID:118988)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Private Function funcSelect_c() Dim strSel As String strSel = "" strSel = strSel & "SELECT c002 ,ISNULL(CT.ct002,'') as ct002 , " strSel = strSel & "ISNULL(T.t002 , '') as t002 " strSel = strSel & "FROM C " strSel = strSel & "LEFT OUTER JOIN CT ON C.c010 = CT.ct001 " strSel = strSel & "LEFT OUTER JOIN T ON C.c011 = T.t001 " strSel = strSel & "WHERE c001 = @c001" Return strSel End Function 〜〜〜〜〜〜〜〜〜〜 dim tmp as String Dim dr As SqlClient.SqlDataReader Dim sqlCmdSELECT_c As New SqlClient.SqlCommand(funcSelect_c, sqlCn) sqlCmdSELECT_c.Transaction = sqlTrans sqlCmdSELECT_c.Parameters.Add("@c001", SqlDbType.VarChar, 8, "c001").Value = myTextBox.Text dr = sqlCmdSELECT_c.ExecuteReader() tmp = dr.Item("c002") 〜〜〜〜〜〜〜〜〜〜 上記のようにしてアイテムを取得したいのですが 上手くいきません。 どうしても分からず、投稿させていただきました。 どうか、アドバイスお願いいたします