VB.NET中怎樣為listview繫結資料

'從資料庫中讀取資料插入到listview中.  
                  '注意:要顯示網格,必須將listview中的view設定為details,然後再將gridline設定為true   .  
                  '設完之後,用滑鼠只能點選listview中的第一個角落,點選其他的地方不起作用,需要設定  
                  'listview中的FullRowSelect屬性才可以.這樣就可以選中一行了.  
   
                  Dim   MyCmd   As   SqlClient.SqlCommand  
                  Dim   MyCnn   As   New   SqlClient.SqlConnection  
                  Dim   myDrd   As   SqlClient.SqlDataReader  
                  MyCnn.ConnectionString   =   "Server=localhost;user   id=sa;password=;database=NHSP"  
                  Dim   t   As   String   =   "select   *   from   BA_USER"  
                  '如果要用該控制元件查詢,則只需要改變"select   *   from   BA_USER   where   條件"就可以了  
   
                  MyCmd   =   New   SqlClient.SqlCommand(t,   MyCnn)  
                  MyCnn.Open()  
                  myDrd   =   MyCmd.ExecuteReader  
   
                  Dim   iHead   As   Integer  
                  Dim   head(5)   As   String  
                  'head(0)   =   "a"  
                  'head(1)   =   "b"  
                  Me.lvw.Columns.Clear()  
                  For   iHead   =   0   To   myDrd.FieldCount   -   1  
                          Me.lvw.Columns.Add(myDrd.GetName(iHead),   100,   HorizontalAlignment.Center)  
                  Next  
                  '加入listview列資料()  
                  Me.lvw.Items.Clear()  
                  Dim   iRow   As   Long   =   0  
                  Dim   iRowHead   As   Int16  
   
                  Do   While   myDrd.Read  
                          Me.lvw.Items.Add(myDrd(0))  
                          For   iRowHead   =   1   To   myDrd.FieldCount   -   1  
                                  If   (myDrd(iRowHead)   Is   System.DBNull.Value   =   False)   Then  
                                          Me.lvw.Items(iRow).SubItems.Add(CStr(myDrd(iRowHead)))  
                                  Else  
                                          Me.lvw.Items(iRow).SubItems.Add("")  
                                  End   If  
                          Next  
                          iRow   =   iRow   +   1  
                  Loop  
                  MyCnn.Close()  
                  MyCnn.Dispose()  

來自 “ ITPUB部落格 ” ，連結：http://blog.itpub.net/12639172/viewspace-555237/，如需轉載，請註明出處，否則將追究法律責任。