Dim
conexao AsString=
"Server=localhost;Port=5432;Userid=postgres;Database=banco;Password=xxxxxxxxx"
DimstrSql
AsString=
"select * from curso"
Dimconn
AsNpgsqlConnection=
NewNpgsqlConnection(conexao)
Dimda
AsNpgsql.NpgsqlDataAdapter=
NewNpgsqlDataAdapter(strSql,
conn)
DimdsCurso
AsDataSet=
NewDataSet
Try
conn.Open()
da.Fill(dsCurso,
"curso")
grdCursos.DataSource = dsCurso.Tables(
"curso").DefaultView
grdCursos.DataBind()
Catchex
AsException
Finally
conn.Close()
EndTry
Atenciosamente, Marcio Nogueira Cardoso Pinto.