Imports Npgsql
 
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        'Listview Spalten hinzufügen:
        ListView1.Clear()
        ListView1.View = View.Details
        ListView1.Columns.Add("user_login", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("user_firstname", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("user_surname", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("user_id", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("user_extension", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("user_mobile", 100, HorizontalAlignment.Left)
        ListView1.Columns.Add("user_level", 100, HorizontalAlignment.Left)
 
	'Datenbank Verbindung:
        Dim conn As New NpgsqlConnection( _
          "SERVER=server_name;DATABASE=datenbank_name;USER" & _
          "ID=datenbank_username;PASSWORD=datenbank_passwort;")
 
	conn.Open()
 
	Dim command As New NpgsqlCommand("SELECT user_login, user_firstname," & _
  "user_surname, user_id, user_extension, user_mobile, user_level FROM" & _
  "tabellen_name", conn)
        Dim dr As Npgsql.NpgsqlDataReader
        dr = command.ExecuteReader()
 
        While dr.Read()
 
            Dim str(7) As String
            Dim itm As ListViewItem
            str(0) = dr(0)
            str(1) = dr(1)
            str(2) = dr(2)
            str(3) = dr(3)
            str(4) = dr(4)
            str(5) = dr(5)
            str(6) = dr(6)
            itm = New ListViewItem(str)
            ListView1.Items.Add(itm)
 
        End While
 
        conn.Close()
 
    End Sub
 
End Class