2017-10-06 5 views
0

私はvb.netを初めて使っています。とにかく、自分のフォームを開いたときにデータベースのアイテムが自動的に表示されますか?あなたはこのコードはリストに直接データテーブルを変換することができ、コードフォームを開いたときにリストボックスにデータベース値を表示

Dim constr As String = ConfigurationManager.ConnectionStrings("constr").ConnectionString 
Using con As New SqlConnection(constr) 
    Using cmd As New SqlCommand("SELECT * FROM Tbl") 
     cmd.Connection = con 
     Using sda As New SqlDataAdapter(cmd) 
      Dim dt As New DataTable() 
      sda.Fill(dt) 
     End Using 
    End Using 
End Using 

Dim list As List(Of DataRow) = dt.AsEnumerable().ToList() 

の下に使用することができます

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
      list() 
     End Sub 
     Sub list() 
      con.Open() 
      cmd = New SqlCommand("SELECT * FROM Tbl", con) 
      rdr = cmd.ExecuteReader 
      ListView1.Items.Clear() 
      If rdr.HasRows Then 
       Do While rdr.Read() 
        Dim arr As String() = New String(3) {} 
        Dim itm As ListViewItem 
        arr(0) = rdr("ID") 
        arr(1) = rdr("Name") 
        arr(2) = rdr("Brand") 


        itm = New ListViewItem(arr) 
        ListView1.Items.Add(itm) 
       Loop 
      End If 
      con.Close() 
     End Sub 

答えて

0

関連する問題