배열에 SQL 쿼리 값을 저장하는 방법

Question

Dim sql As String = "Select ProductID From OrderDetail Order By ProductID Desc" 
    Dim command As New SqlCommand(sql, connection) 
    Dim reader1 As SqlDataReader = command.ExecuteReader() 

배열로 가져 오는 모든 productid를 어떻게 저장합니까?

Answer 1

Dim list As New List(Of Integer) 

Using reader As SqlDataReader = command .ExecuteReader() 
    While reader.Read() 
     list.Add(reader.GetInt32(reader.GetOrdinal("ProductID"))) 
    End While 
End Using 
'check list.ToArray() now 

편집 : 또는 ProductClass 객체

Private Function GetProductIDs() As IList(Of Integer) 

    Dim list As New List(Of Integer) 
    Dim conStr = "write your connection string here" 

    Using connection As New SqlConnection(conStr) 
     Dim sql As String = "Select ProductID From OrderDetail Order By ProductID Desc" 
     Dim command As New SqlCommand(sql, connection) 
     Using reader As SqlDataReader = command.ExecuteReader() 
      While reader.Read() 
       list.Add(reader.GetInt32(reader.GetOrdinal("ProductID"))) 
      End While 
     End Using 
    End Using 

    Return list 

End Function 

의 목록 (당신은 단지 제품 ID를 반환 할 경우)는하지만, 배열을 반환하는 대신, 나는 정수의 일반 목록을 반환

편집 2 : 주석으로 당 , 레이블의 텍스트에 넣어 검색하려면, 당신은이

할 수 Label1 가정

Dim str As String 
str = String.Join(",", GetProductIDs()) 
Label1.Text=str; 

는 String.Join 방법은 내가에서 모든 값을 검색하려면 어떻게 "1,2,6,7"

Answer 2

SQLdr = SQLCmd.ExecuteReader 'Gets Data 

While dr.Read() 'While Data is Present   
     MsgBox(dr("Column Name")) 'Show data in a Message Box 
End While 

Loop While SQLdr.NextResult() 'Move to the Next Record 

http://www.daniweb.com/software-development/vbnet/code/216920/sql-in-vb.net