Imports System
Imports System.Data
Imports Npgsql


Public Class Form1
 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim pgConnessione As NpgsqlConnection = New NpgsqlConnection
        Dim pgCommand As NpgsqlCommand = New NpgsqlCommand
        Dim pgConnectionString As String
        Dim dAdapter As NpgsqlDataAdapter
        Dim dset As DataSet 'dataset

        pgConnectionString = ("Server=127.0.0.1;Port=5432;Database=test;User Id=postgres;Password=postgres;")

        pgConnessione.ConnectionString = pgConnectionString 'connessione con i parametri scelti
        pgConnessione.Open() ' collegamento effettivo a DB

        pgCommand.Connection = pgConnessione
        pgCommand.CommandType = CommandType.Text

        pgCommand.CommandText = "SELECT * FROM esempio;" 'tabella di riferimento

        If pgConnessione.FullState = ConnectionState.Open Then
            MsgBox("Connessione a PostGres aperta con il database: " & pgConnessione.Database, MsgBoxStyle.MsgBoxSetForeground)
        End If


       dAdapter = New NpgsqlDataAdapter(pgCommand)
        dset = New DataSet   'creo dataset

        dAdapter.Fill(dset) 'riempimento del dataset
        GridView1.DataSource = dset 'riferimento sorgente

        pgConnessione.Close()

    End Sub
End Class