Tcl/Tk Curso On-Line de Programação

Acessando um banco de dados PostgreSQL

A interface PostgreSQL-Tcl oferece diversos comandos que permitem o acesso aos bancos de dados do PostgreSQL através da linguagem SQL. O PostgreSQL suporta um superset do SQL92, oferecendo comandos e tipos de dados adicionais.

Para acrescentar o suporte aos bancos de dados do PostgreSQL em seus programas, você deve incluir o comando a seguir, logo no início de seu programa:

load libpgtcl.so

load libpgtcl.dll

Observe que para rodar um programa em Tcl ou qualquer outra linguagem no Windows, você precisará ter um servidor UNIX ou Windows NT rodando o RDBMS do PostgreSQL e aceitando conecções via TCP/IP, pois o PostgreSQL não pode rodar no Windows95/98.

Uma outra alternativa é utilizar um interpretador Tcl com o suporte ao PostgreSQL embutido. O pacote do PostgreSQL inclui os interpretadores pgtclsh e pgtksh, que permitem executar programas em Tcl para o console e para o X-Window respectivamente.

Neste ponto, você deve instalar e configurar o seu PostgreSQL para que possa prosseguir neste estudo. A seguir estão todas as instruções necessárias para preparar o seu servidor de banco de dados PostgreSQL.
 

Instalando o PostgreSQL

Para instalar o PostgreSQL em um sistema compatível com RPMs, coloque o CD-ROM da sua distribuição do Linux em seu drive de CDs e monte-o seguindo os passos abaixo. Mas lembre-se: você precisa ser o usuário root.

# mount /mnt/cdrom

# cd /mnt/cdrom/conectiva/RPMS

# rpm -ivh postgresql-*.rpm

Desmonte o CD-ROM:

# cd ~/

# umount /mnt/cdrom

daemon --check postmaster su -l postgres -c \"/usr/bin/postmaster -S -D/var/lib/pgsql\"

daemon --check postmaster su -l postgres -c \"/usr/bin/postmaster -S -i -D/var/lib/pgsql\"

Agora edite o arquivo /var/lib/pgsql/pg_hba.conf, como o usuário postgres( não faça isso como root ), e remova o comentário da linha:

host    all    0.0.0.0    0.0.0.0    trust

Se você desejar, pode implementar qualquer outra forma de restrição de acesso, utilizando os modelos que se encontram comentados no arquivo. Por hora, deixe assim, para que outras máquinas da rede possam acessar seus bancos de dados PostgreSQL.

Inicialize o servidor postmaster:

# /etc/rc.d/init.d/postgresql start

Pronto! O seu servidor está configurado para servir bancos de dados PostgreSQL.
 

Criando um usuário

Para acessar um banco de dados PostgreSQL você deve ser um usuário cadastrado na base de dados do PostgreSQL. Para tanto, como o usuário postgres, digite:

$ createuser nome_de_usuário

Você também pode criar um usuário usando a interface SQL, através do comando:

CREATE USER nome_do_usuário;

Criando um banco de dados

Para criar um banco de dados você deve ser um usuário cadastrado na base de dados do PostgreSQL. Para tanto digite:

$ createdb nome_do_banco_de_dados

Você também pode criar um banco de dados usando a interface SQL, através do comando:

CREATE DATABASE nome_do_banco_de_dados;

A interface PostgreSQL-Tcl

Os principais comandos oferecidos pela interface PostgreSQL-Tcl são os seguintes:
 

O comando pg_result suporta as seguintes opções:
 

Exemplos

Considere as seguintes tabelas:
 

Abra o interpretador Tcl e digite os comandos a seguir( ou copie e cole se estiver no windows ou usando o kfm e o KTk no KDE ):

load libpgtcl.so

set con [pg_connect pizza]

set res [pg_resul $con 'SELECT t1.name as district,t2.name as product,t3.value

FROM districts as t1, products as t2, prices as t3

WHERE t3.district = t1.code AND t3.product = t2.code

ORDER BY t1.name;' ]

puts "[format {%-30s} district][format {%-30s} product][format {%10s} value]\n\n"

for {set i 0} {$i < [pg_result $res -numTuples]} {incr i} {

    pg_result $res -tupleArray $i tuple

    puts "[format {%-30s} $tuple(district)][format {%-30s} $tuple(product)][format {%10s} $tuple(value)]\n"

}

pg_result $res -clear

pg_disconnect $con

Para facilitar o trabalho com bancos de dados do PostgreSQL em Tcl/Tk eu criei uma biblioteca chamada TDO( Tcl Database Access Objects ), que permite o acesso às tabelas de modo muito parecido com o MS-DAO, usado no Visual Basic. Você pode ler um pouco mais sobre a biblioteca TDO e fazer o download dos arquivos através do meu site: http://www.souzamonteiro.com/download_freeware.shtml.

Você também pode estudar o código fonte do meu programa Cadastro de Clientes e Fornecedores para Linux - TkCustomer. Faça o download dos arquivos através do meu site: http://www.souzamonteiro.com/download_freeware.shtml.

Para uma descrição detalhada de todos os comandos disponíveis em uma interface Tcl-RDBMS, consulte a documentação on-line do seu RDBMS. Para uma aula introdutória à linguagem SQL consulte a apostila Programando em SQL disponível para download em http://www.souzamonteiro.com/download_freeware.shtml.

Para maiores informações envie e-mail para info@souzamonteiro.com.