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

Acessando um banco de dados ODBC

A interface ODBC-Tcl oferece diversos comandos que permitem o acesso aos bancos de dados ODBC.

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

package require tclodbc

Instalando o TclODBC no Windows

Para instalar o TclODBC siga os seguintes passos:
 

1. Faça o download do arquivo tclodbc22.zip do meu site: http://www.souzamonteiro.com/download_freeware.shtml;
2. Descompacte o arquivo em um diretório temporário;
3. Mude para o diretório onde você descompactou os arquivos;
4. Dê um duplo clique no arquivo setup.tcl;
5. Confirme a instalação.

Instalando o TclODBC no Linux

Para instalar o TclODBC siga os seguintes passos( lembre-se que você deve ser o usuário root para instalar as bibliotecas ):

unixODBC:

1. Certifique-se de ter instalado, em seu computador, as bibliotecas Qt 2.0 Free Edition ou superior, pois elas são necessárias para compilar os programas ODBCConfig e DataManager. Estas bibliotecas são usadas pelo KDE;
2. Faça o download do unixODBC do meu site: http://www.souzamonteiro.com/download_freeware.shtml ou do site: http://www.unixodbc.org;
3. Descompacte o arquivo digitando: tar xvzf unixODBC-1.8.12.tar.gz;
4. Digite configure;
5. Digite make;
6. Digite make install;

A janela a baixo será exibida:

Clique na guia Drivers e selecione a biblioteca do driver e a biblioteca do setup do driver. O nome da biblioteca do setup termina com S.so. Existe uma biblioteca de setup para cada driver.

Cada usuário pode configurar suas próprias entradas no User DSN, mas só o usuário root pode instalar drivers novos.

Você pode testar o seu banco de dados e executar comandos SQL através do programa DataManager. Veja a tela do programa na figura abaixo:
 

TclODBC:

1. Instale os fontes do Tcl/Tk em seu computador. Se você não tiver, pege do meu site: http://www.souzamonteiro.com/download_freeware.shtml;
2. Faça o download do arquivo tclodbc.tgz do meu site: http://www.souzamonteiro.com/download_freeware.shtml;
3. Descompacte o arquivo digitando: tar xvzf tclodbc.tgz;
4. Mude para o diretório tclodbc/;
5. Digite autoconf para criar um script configure;
6. Leia o arquivo README e verifique se há necessidade de passar alguns parâmetros para o script configure. Provavelmente --prefix=/usr/lib --exec-prefix=/usr/lib --with-tcl=/usr/src/rpm/BUILD/tcltk-8.0.4/tcl8.0.4;
7. Execute o script configure;
8. Eu recomendo que você edite o arquivo Makefile gerado e remova o parâmetro USE_TCL_STUBS=1 que é passado para o compilador;
9. Digite: make;
10. Digite: make install.

Criando um banco de dados

Para criar um banco de dados do Access( MDB ), copie e cole o fragmento de código abaixo:

# Carrega o TclODBC

package require tclodbc

# Cria o DSN

database configure config_dsn "Microsoft Access Driver (*.mdb)" [list "CREATE_DB=\"pizza.mdb\" General"]

database configure add_dsn "Microsoft Access Driver (*.mdb)" [list "DSN=pizza" "DBQ=pizza.mdb"]

# Conecta o banco de dados e cria as tabelas

database db pizza

db "CREATE TABLE districts (code VARCHAR (10), name VARCHAR (50));"

db "CREATE TABLE products (code VARCHAR (10), name VARCHAR (50));"

db "CREATE TABLE prices (district VARCHAR (10), product VARCHAR (10), price VARCHAR (10));"

# Disconecta o banco de dados

db disconnect

A interface ODBC-Tcl

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

Os comandos oferecidos pelos objetos database são:
 

As opções suportadas pelos métodos set e get são:
 

Os métodos suportados pelos objetos statement são:
 

Os atributos suportados pelo método columns são:
 

As opções suportadas pelos métodos set e get são:
 

Os tipos de dados SQL são: CHAR, NUMERIC, DECIMAL, INTEGER, SMALLINT, FLOAT, REAL, DOUBLE, VARCHAR.

Os tipos extendidos são: DATE, TIME, TIMESTAMP, LONGVARCHAR, BINARY, VARBINARY, LONGVARBINARY, BIGINT, TINYINT, BIT.
 

Exemplos

Considere as seguintes tabelas:
 

Criando as tabelas

Abra o interpretador Tcl e copie e cole os comandos a seguir( troque o valor da variável user pelo seu nome de usuário ):

# Carrega o TclODBC

package require tclodbc

# Conecta o banco de dados e cria as tabelas

set user rlsm

database connect db pizza $user

db "CREATE TABLE districts (code VARCHAR (10), name VARCHAR (50));"

db "CREATE TABLE products (code VARCHAR (10), name VARCHAR (50));"

db "CREATE TABLE prices (district VARCHAR (10), product VARCHAR (10), price VARCHAR (10));"

# Disconecta o banco de dados

db disconnect

# Carrega o TclODBC

package require tclodbc

# Conecta o banco de dados e insere os dados

set user rlsm

database connect db pizza $user

db "INSERT INTO districts (code, name) VALUES (\'1\',\'Arenoso\');"

db "INSERT INTO districts (code, name) VALUES (\'2\',\'Arvoredo\');"

db "INSERT INTO products (code, name) VALUES (\'1\',\'Pizza Média\');"

db "INSERT INTO products (code, name) VALUES (\'2\',\'Pizza Grande\');"

db "INSERT INTO products (code, name) VALUES (\'3\',\'Pizza Família\');"

db "INSERT INTO products (code, name) VALUES (\'4\',\'Lazanha\');"

db "INSERT INTO products (code, name) VALUES (\'5\',\'Filé\');"

db "INSERT INTO prices (district, product, price) VALUES (\'1\',\'1\',\'12.00\');"

db "INSERT INTO prices (district, product, price) VALUES (\'1\',\'2\',\'13.90\');"

db "INSERT INTO prices (district, product, price) VALUES (\'1\',\'3\',\'17.00\');"

db "INSERT INTO prices (district, product, price) VALUES (\'1\',\'4\',\'13.90\');"

db "INSERT INTO prices (district, product, price) VALUES (\'1\',\'5\',\'13.90\');"

db "INSERT INTO prices (district, product, price) VALUES (\'2\',\'1\',\'12.00\');"

db "INSERT INTO prices (district, product, price) VALUES (\'2\',\'2\',\'13.90\');"

db "INSERT INTO prices (district, product, price) VALUES (\'2\',\'3\',\'17.00\');"

db "INSERT INTO prices (district, product, price) VALUES (\'2\',\'4\',\'13.90\');"

db "INSERT INTO prices (district, product, price) VALUES (\'2\',\'5\',\'13.90\');"

# Disconecta o banco de dados

db disconnect

Abra o interpretador Tcl e copie e cole os comandos a seguir( troque o valor da variável user pelo seu nome de usuário ):

Implementação 1:

# Carrega o TclODBC

package require tclodbc

# Conecta o banco de dados

set user rlsm

database connect db pizza $user

# Executa a consulta

set res [db "SELECT t1.name as district,t2.name as product,t3.price

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

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

ORDER BY t1.name;"]

# Exibe os resultados

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

for {set i 0} {$i < [llength $res]} {incr i} {

    set tuple(district) [lindex [lindex $res $i] 0]

    set tuple(product) [lindex [lindex $res $i] 1]

    set tuple(price) [lindex [lindex $res $i] 2]

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

}

# Disconecta o banco de dados

db disconnect

Implementação 2:

# Carrega o TclODBC

package require tclodbc

# Conecta o banco de dados

set user rlsm

database connect db pizza $user

# Cria uma procedure para exibir os resultados

proc showresults {district product price} {

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

}

# Exibe um cabecalho

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

# Executa a consulta e exibe os resultados

db eval showresults "SELECT t1.name as district,t2.name as product,t3.price

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

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

ORDER BY t1.name;"

# Disconecta o banco de dados

db disconnect

Implementação 3:

# Carrega o TclODBC

package require tclodbc

# Conecta o banco de dados

set user rlsm

database connect db pizza $user

# Executa a consulta

db statement stmt  "SELECT t1.name as district,t2.name as product,t3.price

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

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

ORDER BY t1.name;"

stmt execute

# Exibe os resultados

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

# tuple e o vetor associativo que contera os valores de cada linha retornada a cada execucao do comando fetch

while {[stmt fetch tuple]} {

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

}

# Disconecta o banco de dados

db disconnect

Alterando dados das tabelas

# Carrega o TclODBC

package require tclodbc

# Conecta o banco de dados

set user rlsm

database connect db pizza $user

# Insere os dados na tabela

db "INSERT INTO districts (code, name) VALUES (\'3\',\'Barbalho\');"

db "SELECT * FROM districts WHERE code = \'3\';"

# Atualiza os dados na tabela

db "UPDATE districts SET name = \'Av. Bete\' WHERE code = \'3\';"

db "SELECT * FROM districts WHERE code = \'3\';"

# Disconect o banco de dados

db disconnect

# Carrega o TclODBC

package require tclodbc

# Conecta o banco de dados

set user rlsm

database connect db pizza $user

# Visualizando os dados na tabela

db "SELECT * FROM districts;"

# Apagando os dados da tabela

db "DELETE FROM districts WHERE code = \'3\';"

db "SELECT * FROM districts;"

# Disconect o banco de dados

db disconnect

# Carrega o TclODBC

package require tclodbc

# Conecta o banco de dados

set user rlsm

database connect db pizza $user

# Cria os indices

db "CREATE INDEX districts_idx ON districts(code);"

db "CREATE INDEX products_idx ON products(code);"

db "CREATE INDEX prices_idx ON prices(district, product);"

# Exibe o resultado da consulta

db "SELECT t1.name as district,t2.name as product,t3.price

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

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

# Disconect o banco de dados

db disconnect

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.