Conexao vb com postgresql

Vale resaltar que tudo que aprendi aqui foi em base a este site do maracoti que por vista muito bom, veja este tutorial de como estalar e conectar o postgre como o vb 2005

---

primeiro passo baixe o postgre "Clic aqui para baixar"
Segundo passo baixe o npgsql "clic aqui para baixar"
sao 2 dll:
NPGSQL responsavel pela funçao de fazer a conexao do programa com o postgre.
Mono.Security responsavel pela segurança da sua conexao.

---

galera lembre sempre nosso trabalho nao tem custo mas
oq nos sustenta sao os seu post nao deixe de postar um recado
mesmo q seja uma duvida
valmir barbosa dos santos miro.sti@hotmail.com

---

Assista a video aula de como instalar o postgre

---

agora a video aula de como cria uma tabela

comando 1
para cria tabela

create table usuarios (codigo int not null unique,
nome varchar(30) not null,
email varchar(100),
inclusao date,
primary key(codigo)
) with oids;


comando 2
para inserir dados na tabela

insert into usuarios(codigo, nome, email, inclusao) values (30,'valmir b. dos santos', 'miro.sti@hotmai.com', current_date);

---

como fazer a conexão visual studio 2008 com o postgresql

---

comando 3 chamando as dll para o form

Imports System.Data
Imports Npgsql

---

comando 4
Dim ConexaoPG As String = "Server=localhost;Port=5432;User Id=postgres;Password=1272;Database=agenda;Protocol=3;SSL=false; Pooling=true;MinPoolSize=1;MaxPoolSize=20;Encoding=UNICODE;Timeout=15;SslMode=Disable;"


Dim conn As Npgsql.NpgsqlConnection = Nothing

Try
'Cria uma Instancia de NpgsqlConnection na variavel conn
conn = New Npgsql.NpgsqlConnection(ConexaoPG)

'Abre a conexão
conn.Open()

'Declara e atribui a instrucao SQL de consulta
Dim SQL As String = "SELECT * FROM usuarios"
'aki esta falando assim selecione (* significa todos) as colunas da tabela usuarios



'Instancia o NpgsqlDataAdapter responsavel pela comunicação
'é feita a leitura dos dados preenchendo o dataset
Dim da As Npgsql.NpgsqlDataAdapter = New Npgsql.NpgsqlDataAdapter(SQL, conn)

'Instacia um DataSet
Dim ds As DataSet = New DataSet()

'Preenche o DataAdapter
da.Fill(ds, "Usuarios")

'Atribiu um Datasource a Grid
DataGridView1.DataSource = ds.Tables("Usuarios").DefaultView

'aki vai mostra mensagem de erro causo houver
Catch ex As Exception
MsgBox(ex.Message)

Finally
If Not conn Is Nothing Then
'se conexao foi estabelecida entao
If conn.State = ConnectionState.Open Then
'fecha a conexao
conn.Close()
End If
End If
End Try

---