none
entity 預存程序傳回多欄集合轉換為陣列資料處理問題 RRS feed

  • 問題

  • 小弟的問題是 我在MS sql中 寫了一個預存程序如下

    create PROC aiml2that1匹配流程
    @thatpattern Varchar(5000)
    AS 
    BEGIN
    SELECT aiml,pattern FROM aiml2
        WHERE  thatpattern=@thatpattern 
    END    

    然後在entity 函式匱入的地方 調用這個預存程序

    但有個麻煩 在這裡產生了

    VB.NET CODE:

     Private entities As New 語句資料庫Entities
        Sub poc()
    
    
    
            Dim input As String = "MY FAVORITE SUBJECT IS ARTIFICIAL INTELLIGENCE AND ROBOTS"
            'Dim i As Integer = entities.aiml2that匹配流程(input).ToArray().Length
            Dim x() As String
            x = entities.aiml2that1匹配流程(input).ToArray() '******查詢匹配thattemplate
    
            For Each s As String In x
                If s = Me.TextBox1.Text Then
                    Me.RichTextBox1.Text = s & vbCrLf & "匹配成功 恭喜你!!"
                    Exit For
                Else
                    Me.RichTextBox1.Text = "無匹配資料!"
                End If
            Next
        End Sub

    因為我想用陣列去儲存 這兩欄從SQL中回傳的資料集合  但如第二張圖片 它只回傳了第一欄Aiml那欄的資料

    並且將這欄的資料傳到陣列裡  但pattern那欄的資料就沒傳回來  所以想請教各位大大  這裡是否有什麼

    好的辦法能幫助我同時處理一欄以上的資料集合..


    • 已編輯 向恩 2012年7月28日 上午 02:03
    2012年7月28日 上午 02:01

解答

所有回覆

  • 請參考這篇文章看看,對你是否有幫助。

    http://www.dotblogs.com.tw/terrychuang/archive/2012/07/28/73681.aspx


    以上說明若有錯誤請指教,謝謝。
    http://www.dotblogs.com.tw/terrychuang/

    • 已標示為解答 向恩 2012年7月28日 上午 11:37
    2012年7月28日 上午 09:12
  • 它這個結果 好像也只有打印出 C1這一欄資料的集合  沒有C2吧

    C2那一欄的資料  都是222  在運行的程式中 並沒有打印出來  跟我現在的情況一樣

     

    2012年7月28日 上午 11:03
  • 我理解了  問題解決了  我知道該怎麼寫了 

    給出我修改的代碼

            Dim input As String = "MY FAVORITE SUBJECT IS ARTIFICIAL INTELLIGENCE AND ROBOTS"
            Using context As New 語句資料庫Entities
                Dim query = context.aiml2that1匹配流程(Input)
                For Each item As Object In query
                    For Each aa As String In item.aiml
                        Me.RichTextBox1.Text += aa
                    Next
                    For Each bb As String In item.pattern
    
                        Me.RichTextBox1.Text += bb
                    Next
                Next
            End Using


    2012年7月28日 上午 11:37
  • 希望對你有幫助。

    以上說明若有錯誤請指教,謝謝。
    http://www.dotblogs.com.tw/terrychuang/

    2012年7月28日 下午 01:50