データを取得するには?

解決


ree  2005-01-18 20:06:25  No: 118988

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")

〜〜〜〜〜〜〜〜〜〜
上記のようにしてアイテムを取得したいのですが
上手くいきません。
どうしても分からず、投稿させていただきました。
どうか、アドバイスお願いいたします


ree  2005-01-18 20:47:48  No: 118989

大変ご迷惑をかけました。
何とか、自力で解決できました。


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加