terça-feira, 13 de janeiro de 2009

Java: Threads concorrentes, swing, observable para conectar objetos a GUI, herança, interface e mais algumas coisas.

Pessoal,

Meu primeiro post no Estação ZN!

Numa manhã sem muito trabalho escrevi um programa em JAVA para ilustrar alguns recursos. Tem threads concorrentes, swing, observable para conectar objetos a GUI, herança, interface e mais algumas coisas.

O programa ilustra a concorrência de dois objetos tentando se conectar para formar uma parceria e se reproduzir em um novo objeto que vai continuar com esse ciclo.

Acredito que esse programa possa ajudar a quem está começando ou quem quer ver um exemplo dos recursos que citei.

Como funciona:

Existe uma classe Elemento que define o objeto principal e que será herdada por Macho e Fêmea. Os Objetos da classe Macho e Fêmea são associados a um objeto da classe Ambiente. A classe Ambiente define o ambiente onde os objetos viverão. A classe Elemento implementa Runnable e no método run executa o código necessário para dar vida aos objetos.

Abaixo um diagrama simplificado dessas classes.


A classe Main é um JFrame que exibe os objetos criados como JButtons. A classe Main possui um método simular que inicia a simulação.

A seguir as principais classes do programa.

Classe: Elemento

package simulador;

import java.util.ArrayList;
import java.util.Date;
import java.util.List;
import java.util.Random;

public abstract class Elemento implements Runnable {

private static int contador = 0;
private int id;
private Elemento mae;
private Elemento pai;
private long nascimento;
private long morte;
private int folego = 3 * 1000;
private int idadeMaxima = 2 * 60 * 1000;
private boolean running = true;
private boolean vivo = true;
private boolean ocupado;
protected Ambiente ambiente;
protected Elemento parceiro;
private ArrayList memoria = new ArrayList();
private ArrayList observadoresVida = new ArrayList();
private ArrayList observadoresMorte = new ArrayList();
private ArrayList observadoresParceria = new ArrayList();

public Elemento(Ambiente ambiente) {
id = contador++;
setAmbiente(ambiente);
}

public int getFolego() {
return folego;
}

public void setFolego(int folego) {
this.folego = folego;
}

public int getIdadeMaxima() {
return idadeMaxima;
}

public void setIdadeMaxima(int idadeMaxima) {
this.idadeMaxima = idadeMaxima;
}

public Elemento getMae() {
return mae;
}

public void setMae(Elemento mae) {
this.mae = mae;
}

public Elemento getPai() {
return pai;
}

public void setPai(Elemento pai) {
this.pai = pai;
}

public int getId() {
return id;
}

public ArrayList getMemoria() {
return memoria;
}

protected void memorizar(String s) {
memoria.add(id + ": " + new Date() + ": " + s);
}

public void setAmbiente(Ambiente ambiente) {
this.ambiente = ambiente;
}

public void setRunning(boolean running) {
this.running = running;
}

public boolean isRunning() {
return running && ambiente.isRunnig() && !expirou();
}

public boolean expirou() {
long idade = System.currentTimeMillis() - nascimento;
return idade > idadeMaxima;
}

public long idadeMorte() {
long idade = morte - nascimento;
return idade;
}

public boolean isVivo() {
return vivo;
}

public Elemento getParceiro(){
return parceiro;
}

private synchronized boolean ocupar() {
if (!ocupado) {
ocupado = true;
return true;
} else {
return false;
}
}

private void liberar() {
ocupado = false;
}

private boolean aceitar(Elemento outro) {
if (solteiro() && desejo()) {
String s1 = "Aceitei o convite para ser parceiro do " + outro.id + ".";
notificarEncontrarParceiro(s1);
parceiro = outro;
outro.parceiro = this;
return true;
} else {
String s2 = "N?o aceitei o convite para ser parceiro do " + outro.id + ".";
notificarEncontrarParceiro(s2);
return false;
}
}

private void encontrarParceiro() {
if (ocupar()) {
Random rand = new Random();
int quantidadeDeElementos = candidatos().size();
int aleatorio = rand.nextInt(quantidadeDeElementos);
Elemento outro = candidatos().get(aleatorio);
if (!equals(outro)) {
String s1 = "Escolhi o " + outro.id + " para ser parceiro.";
notificarEncontrarParceiro(s1);
if (!outro.vivo) {
String s2 = "O " + outro.id + " estava morto.";
notificarEncontrarParceiro(s2);
} else if (outro.ocupar()) {
String s3 = "Convidando o " + outro.id + " para ser parceiro.";
notificarEncontrarParceiro(s3);
if (outro.aceitar(this)) {
String s4 = "O " + outro.id + " aceitou ser parceiro.";
notificarEncontrarParceiro(s4);
} else {
String s5 = "O " + outro.id + " n?o aceitou ser parceiro.";
notificarEncontrarParceiro(s5);
}
outro.liberar();
} else {
String s6 = "O " + outro.id + " estava ocupado.";
notificarEncontrarParceiro(s6);
}
}

liberar();
}
}

protected abstract Elemento reproduzir();

protected abstract List candidatos();

protected boolean desejo() {
Random rand = new Random();
int aleatorio = rand.nextInt(2);
if (aleatorio == 1) {
return true;
} else {
return false;
}
}

public boolean equals(Object o) {
Elemento outro = (Elemento) o;
if (outro == this) {
return true;
}
if (outro.id == id) {
return true;
}
return false;
}

public boolean solteiro() {
return parceiro == null;
}

public void run() {
notificarNascimento();
nascimento = System.currentTimeMillis();

while (isRunning()) {
if (solteiro()) {
if (desejo()) {
encontrarParceiro();
}
} else { // Possui um parceiro, pode se reproduzir.

if (desejo() && parceiro.isVivo() && parceiro.desejo()) {
Elemento novo = reproduzir();
if (novo != null) {
try {
new Thread(novo).start();
} catch (OutOfMemoryError e) {
ambiente.setRunning(false);
throw e;
}
}
}
}
if (isRunning()) {
try {
Thread.sleep(folego);
} catch (InterruptedException e) {
e.printStackTrace();
}
}
}
morte = System.currentTimeMillis();
vivo = false;
notificarMorte();
}

public ArrayList getObservadoresVida() {
return observadoresVida;
}

public ArrayList getObservadoresMorte() {
return observadoresMorte;
}

public ArrayList getObservadoresParceria() {
return observadoresParceria;
}

public void addObservadoresVida(Ouvinte o) {
observadoresVida.add(o);
}

public void addObservadoresMorte(Ouvinte o) {
observadoresMorte.add(o);
}

public void addObservadoresParceria(Ouvinte o) {
observadoresParceria.add(o);
}

private void notificarNascimento() {
memorizar("Nasci.");
for (Ouvinte e : observadoresVida) {
e.atualizar(this, "Nasci.");
}
}

private void notificarMorte() {
memorizar("Morri.");
for (Ouvinte e : observadoresMorte) {
e.atualizar(this, "Morri.");
}
}

private void notificarEncontrarParceiro(String s) {
memorizar(s);
for (Ouvinte e : observadoresParceria) {
e.atualizar(this, s);
}
}

protected void notificarNascimento(Elemento e, String s) {
memorizar(s);
for (OuvinteNascimento o : ambiente.getObservadoresNascimento()) {
o.atualizar(this, e, s);
}
}
}

Classe: Macho
package simulador;

import java.util.List;

public class Macho extends Elemento {

public Macho(Ambiente ambiente){
super(ambiente);
ambiente.getElementosMachos().add(this);
ambiente.getElementos().add(this);
}

protected Elemento reproduzir() {
return null;
}

protected List candidatos() {
return ambiente.getElementosFemeas();
}

}

Classe: Femea
package simulador;

import java.util.List;

public class Femea extends Elemento {

public Femea(Ambiente ambiente) {
super(ambiente);
ambiente.getElementosFemeas().add(this);
ambiente.getElementos().add(this);
}

protected List candidatos() {
return ambiente.getElementosMachos();
}

protected Elemento reproduzir() {
Elemento e;
if (desejo()) {
e = new Femea(ambiente);
notificarNascimento(e, "Pari a femea " + e.getId());
} else {
e = new Macho(ambiente);
notificarNascimento(e, "Pari o macho " + e.getId());
}
e.setMae(this);
e.setPai(parceiro);
return e;
}
}

Classe: Main
package simulador;

public class Main extends javax.swing.JFrame {

public Main() {
initComponents();
}

/** This method is called from within the constructor to
* initialize the form.
* WARNING: Do NOT modify this code. The content of this method is
* always regenerated by the Form Editor.
*/
@SuppressWarnings("unchecked")
//
private void initComponents() {

setDefaultCloseOperation(javax.swing.WindowConstants.EXIT_ON_CLOSE);
setTitle("Simulador");
getContentPane().setLayout(new java.awt.FlowLayout());

pack();
}//


/**
* @param args the command line arguments
*/
public static void main(String args[]) {
final Main f = new Main();
java.awt.EventQueue.invokeLater(new Runnable() {

public void run() {
f.setVisible(true);
}
});

f.simular();
}
Detalhe detalhe;

public Detalhe detalhe() {
if (detalhe == null) {
detalhe = new Detalhe();
}
return detalhe;
}

public void print(final Elemento e) {
javax.swing.JButton elementoGrafico = new javax.swing.JButton();
elementoGrafico.setText("" + e.getId());
getContentPane().add(elementoGrafico);

elementoGrafico.addMouseListener(new java.awt.event.MouseAdapter() {

@Override
public void mouseClicked(java.awt.event.MouseEvent evt) {
detalhe().setDetalhe(e.getMemoria());
detalhe().setVisible(true);
}
});

pack();
}

public void simular() {
int TEMPO_DE_VIDA = 2 * 60 * 1000;

Ambiente ambiente = new Ambiente();

ambiente.addObservadoresNascimento(new OuvinteNascimento() {

public void atualizar(Elemento mae, Elemento filho, String s) {
print(filho);
}
});

Elemento m = new Macho(ambiente);
print(m);
new Thread(m).start();

Elemento f = new Femea(ambiente);
print(f);
new Thread(f).start();

try {
Thread.sleep(TEMPO_DE_VIDA);
} catch (InterruptedException e) {
e.printStackTrace();
}

ambiente.setRunning(false);

while (ambiente.vivo()) {
try {
Thread.sleep(3000);
} catch (InterruptedException e1) {
e1.printStackTrace();
}
}


System.out.println("Fim.");


}

// Variables declaration - do not modify
// End of variables declaration
}

Não está comentado, mas começando da classe Main ninguém se perde. O programa vem como um projeto Netbeans, mas vai rodar fácil no Eclipse.

Vou continuar melhorando o programa, aceito comentários, sugestões, melhorias e correções!


Obs: A tela de detalhe não se atualiza sozinha.


Abraços, Rodrigo Alencar.

Artigo completo (View Full Post)

terça-feira, 30 de dezembro de 2008

Oracle - Pl/SQL No Alter Table: Constraints e Checks, sem usar o comando

No artigo anterior demonstrei varias possibilidades de usar o camando “ALTER TABLE” no Oracle. Contudo, algumas vezes acho mais conveniente para mim definir as constraints e checks imediatamente quando estou criado a tabela. Acho que para a prática de documentação, versionamento de código/script, se toda a definição estiver no mesmo comando é mais eficiente o versionamento do script da tabela durante a evolução e manutenção do banco de dados.
A partir do que foi exemplificado no artigo anterior, vou definir todas as constraints e checks na criação das tabelas “ENDERECO_ZN” e “Tipo_EnderecoZN”. Veja a seguir ...



DROP TABLE TIPO_ENDERECOZN;
CREATE TABLE TIPO_ENDERECOZN (
TIPO_ENDERECOID NUMBER(10) NOT NULL,
TIPO_ENDERECO VARCHAR2(100) NOT NULL,
DATACADASTRO DATE NOT NULL,
CONSTRAINT PK_TIPO_ENDEZN PRIMARY KEY (TIPO_ENDERECOID),
CONSTRAINT CHK_TIPO_ENDERECO CHECK (LENGTH(TIPO_ENDERECO) > 5),
CONSTRAINT CHK_DATACADASTRO_TP CHECK (DATACADASTRO > TO_DATE('31/12/2000', 'DD/MM/YYYY'))
);

Na linha 1, primeiro excluo a tabela do banco, para em seguida recriá-la.
a partir da linha 6 começamos a definir as constraints.
Na Lina 6, defino quem é a chave primária.
Na linha 7 validação para a coluna “TIPO_ENDERECO”.
Na linha 8 validação para a coluna “DATACADASTRO”.

Agora vamos fazer o mesmo para a tabela “ENDERECO_ZN”:

DROP TABLE ENDERECO_ZN;
CREATE TABLE ENDERECO_ZN
(
ENDERECO_ZNID NUMBER(10) NOT NULL,
TIPO_ENDERECOID NUMBER(10),
LOGRADOURO VARCHAR2(130) NOT NULL,
COMPLEMENTO VARCHAR2(170),
BAIRRO VARCHAR2(50),
CIDADE VARCHAR2(50),
ESTADO VARCHAR2(2),
CEP VARCHAR2(10),
NUMERO VARCHAR2(10),
DATACADASTRO DATE NOT NULL,
CONSTRAINT PK_ENDERECOZN PRIMARY KEY (ENDERECO_ZNID),
CONSTRAINT FK_ENDERECO_ZN_TP_END FOREIGN KEY (TIPO_ENDERECOID) REFERENCES TIPO_ENDERECOZN (TIPO_ENDERECOID),
CONSTRAINT CHK_ESTADO CHECK (LENGTH(ESTADO) > 1),
CONSTRAINT CHK_CIDADE CHECK (LENGTH(CIDADE) > 4),
CONSTRAINT CHK_DATACADASTRO CHECK (DATACADASTRO > TO_DATE('31/12/2000', 'DD/MM/YYYY'))

);


Artigo completo (View Full Post)

Oracle - Pl/SQL Alter Table (Variações sobre o tema): Modify, Add Constraint, Add, Drop e Rename

Com o comando “ALTER TABLE” podemos realizar diversas modificações estruturais em tabelas de banco de dados. A seguir, experimentaremos como isso pode ser feito em PL/SQL.


Trabalharemos com a tabela exemplificada abaixo:

CREATE TABLE ENDERECO_ZN
(
CODENDERECO_ZN NUMBER(10) NOT NULL,
ID_TIPO_ENDERECO NUMBER(10),
LOGRADOURO VARCHAR2(100),
COMPLEMENTO VARCHAR2(50),
BAIRRO VARCHAR2(50),
CIDADE VARCHAR2(50),
ESTADO VARCHAR2(2),
CEP VARCHAR2(10),
NUMERO VARCHAR2(10)
);


A primeira coisa que vou fazer é alterar o nome de uma das colunas:

Alterando o nome da coluna: De “CODENDERECO_ZN” para “ENDERECO_ZNID”

ALTER TABLE
ENDERECO_ZN
RENAME COLUMN
CODENDERECO_ZN
TO
ENDERECO_ZNID


Agora vamos alterar algumas outras coisas numa coluna. Que tal o tamanho e torná-la obrigatória?


-- Alterando o tamanho da coluna e tornando-a obrigatória

ALTER TABLE ENDERECO_ZN MODIFY COMPLEMENTO varchar2(150) not null;

Veja como está a nossa tabela após essas primeiras alterações ...
-- Create table
create table ENDERECO_ZN
(
ENDERECO_ZNID NUMBER(10) not null,
ID_TIPO_ENDERECO NUMBER(10),
LOGRADOURO VARCHAR2(100),
COMPLEMENTO VARCHAR2(150) not null,
BAIRRO VARCHAR2(50),
CIDADE VARCHAR2(50),
ESTADO VARCHAR2(2),
CEP VARCHAR2(10),
NUMERO VARCHAR2(10)
);


Podemos aplicar modificações em mais de uma coluna no mesmo comando. Veja ilustrado abaixo como fazer:

-- Alterando mais de uma coluna no mesmo comando
ALTER TABLE ENDERECO_ZN MODIFY (COMPLEMENTO varchar2(170) null, LOGRADOURO varchar2(130) not null);


No exemplo acima alteramos tanto o tamanho das duas colunas, quanto a obrigatoriedade das mesmas. Aprimeira definimos para aceitar valores nulos e a segunda para não aceitar. Vejamos como ficou a tabela “ENDERECO_ZN”.


create table ENDERECO_ZN
(
ENDERECO_ZNID NUMBER(10) not null,
ID_TIPO_ENDERECO NUMBER(10),
LOGRADOURO VARCHAR2(130) not null,
COMPLEMENTO VARCHAR2(170),
BAIRRO VARCHAR2(50),
CIDADE VARCHAR2(50),
ESTADO VARCHAR2(2),
CEP VARCHAR2(10),
NUMERO VARCHAR2(10)
);


Podemos também adicionar mais de uma coluna com o mesmo comando
-- Adicionando novas colunas

Alter table ENDERECO_ZN
ADD ( Pais varchar2(50),
DataCadastro Timestamp not null);


Mais uma vez, a tabela ENDERECO_ZN refletindo o comando anterior:
     
create table ENDERECO_ZN
(
ENDERECO_ZNID NUMBER(10) not null,
ID_TIPO_ENDERECO NUMBER(10),
LOGRADOURO VARCHAR2(130) not null,
COMPLEMENTO VARCHAR2(170),
BAIRRO VARCHAR2(50),
CIDADE VARCHAR2(50),
ESTADO VARCHAR2(2),
CEP VARCHAR2(10),
NUMERO VARCHAR2(10),
PAIS VARCHAR2(50),
DATACADASTRO TIMESTAMP(6) not null
)


Supondo que a coluna “Pais” não seja adequada ao modelo de negócio em questão, vamos excluí-la da tabela.


-- Dropnado uma coluna
Alter table ENDERECO_ZN drop column Pais


Agora vamos alterar o tipo de dado de uma das colunas

-- Alterando o tipo de dado de uma coluna
ALTER TABLE ENDERECO_ZN MODIFY DATACADASTRO Date;


Outra vez, alteramos a tabela ...

create table ENDERECO_ZN
(
ENDERECO_ZNID NUMBER(10) not null,
ID_TIPO_ENDERECO NUMBER(10),
LOGRADOURO VARCHAR2(130) not null,
COMPLEMENTO VARCHAR2(170),
BAIRRO VARCHAR2(50),
CIDADE VARCHAR2(50),
ESTADO VARCHAR2(2),
CEP VARCHAR2(10),
NUMERO VARCHAR2(10),
DATACADASTRO DATE not null
)



O Comando “ALTER TABLE” também é uma forma de definirmos constraits. Vejamos ...


Definindo uma Chave primária: Suponha que você esta trabalhando com uma tabela que foi crianda a muitos anos por outros programadores. Esses programadores não definiram nenhuma coluna como chave primária. Mas hoje, você precisa fazer isso. Hoje você precisa que esta tabela possua uma PK. Vaja uma forma de fazer isso ilustrada abaixo:



-- Pk
alter table ENDERECO_ZN add primary key (ENDERECO_ZNID);


Note que eu preparei a tabela para estar relaciona a outra. A coluna “ID_TIPO_ENDERECO” deveria ser uma chave estrangeira para uma tabela que armazenasse os tipos de Endereço. Esse tipo de modelagem atende a uma normalização muito comum. Portanto, antes de declararmos a chave estrangeira vamos criar a tabela de tipo de endereço:


-- Crinado a tabela de Tipo de Endereço
Create Table Tipo_EnderecoZN (
ID_TIPO_ENDERECO NUMBER(10) not null,
Tipo_Endereco Varchar2(100) not null
);

alter table Tipo_EnderecoZN add primary key (ID_TIPO_ENDERECO);

Na linha 7 do trecho de código acima, repeti o mesmo comando, que usei para criar a chave primária para tabela Enreco_ZN, para definir a coluna “ID_TIPO_ENDERECO” como PK (Primary Key – Chave primária) em “Tipo_EnderecoZN”.

Agora vamos criar a constraint que garantirá a integridade referencial entre as tabelas:


Alter table Endereco_ZN add constraint FK_Endereco_TpEndereco foreign key (ID_TIPO_ENDERECO) references Tipo_EnderecoZN (ID_TIPO_ENDERECO);


Qualidade


Para garantir a qualidade dos dados que serão persistidos nessas tabelas podemos definir regras de validação dos dados (Veja mais sobre isso em “Banco de Dados ou Bando de Dados? ”).


-- Definido regras de validação de dados - checks
Alter table Tipo_EnderecoZN Add CONSTRAINT chk_Tipo_Endereco CHECK (LENGTH(Tipo_Endereco) > 5);
Alter table Endereco_ZN Add CONSTRAINT chk_DATACADASTRO CHECK (DATACADASTRO > TO_DATE('01/01/2000', 'DD/MM/YYYY'));
Alter table Endereco_ZN Add CONSTRAINT chk_BAIRRO CHECK (LENGTH(BAIRRO) > 3);
Alter table Endereco_ZN Add CONSTRAINT chk_ESTADO CHECK (LENGTH(ESTADO) > 1);


Qunado for necessário "dropar" uma constraint ...

ALTER table Endereco_ZN drop constraint FK_Endereco_TpEndereco;


Observe que não referenciei o nome da constraint entre plics.

Obviamente, você deve abusar de ser criterioso ao definir uma regra como essas. Visto que, se ela não definida com exatidão em total harmonia com as regras de negócio (da empresa, para qual o sistema gerenciador de banco de dados está sendo desenvolvido) você terá sérios problemas. Por exemplo, com relação ao trecho de código anterior:
Na linha 1 definimos que na tabela Tipo_EnderecoZN, a coluna Tipo_Endereco não vai aceitar nenhum valor cujo número de caracteres seja menor que 5. Portanto, se tentarem inserir o valor “Resid” (abreviação de “Residencial”) será frustrado. Isso tanto pode ser muito útil, evitando que valores lixo sejam inseridos no banco, mas pode ser prejudicial caso exista alguma possibilidade de uma valor de, por exemplo, três caracteres precise ser inserido na coluna em questão.
Na linha 2, definimos um valor mínimo para a coluna “DataCadastro”, da tabela “ENDERECO_ZN”. Isso vai evitar valores de data do tipo “01/02/0009”. Esse valor de data não é uma valor inválido, entretanto pode causar problema.


Artigo completo (View Full Post)

segunda-feira, 15 de dezembro de 2008

Trabalhando com Controles Lookup

Trabalhando com Controles Lookup

No Delphi chamamos de “Lookup” o mecanismo que representa o relacionamento entre duas tabelas dinamicamente e de forma automatizada para a manipulação de uma delas. Isso consiste em duas operações:
A primeira é de exibir a descrição de um dado a qual não existe no registro da tabela que esta sendo manipulada.
A segunda é, ao mesmo tempo que lista a descrição, sincronizadamente, atribui o valor do campo chave, de relacionamento entra as tabelas envolvidas no lookup, para a tabela que esta sendo manipulada.



Por exemplo, vejamos o relacionamento entre duas tabelas: “Produtos” e “Categoria de Produtos” (as quais usamos no artigo anterior). Primeiro a tabela Producs, abaixo:




Temos o ID da Categoria, mas não temos a descrição dela nesta tabela. A descrição da Categoria encontra-se na tabela Categories.



Existe um relacionamento entre elas ... (Mas isso não é obrigatório para se fazer o Lookup). Essa relação entre os campos pode ser feita pela aplicação, basta que exista um relacionamento lógico entre as colunas das tabelas que serão relacionadas.



O que essa estrutura me força previamente entender? _ Devo entender que para atualizar a tabela de “Produtos” dependerei sempre dos valores existentes na tabela “Categorias”. Isso porque, os valores possíveis para a categoria de produtos está armazenado na tabela Categoria, e a constraint que define a integridade referencial entre as duas tabelas jamais permitirá que seja inserido um valor para categoryID na tabela “Products” que não exista em “Categories”. Isso é muito bom que seja dessa forma.

O Lookup permite reproduzirmos essa relação, respeitando a referencia entre as tabelas de forma automática, suprimindo totalmente a necessidade da codificação de sequer uma linha de código para isso.


Os Controles de Lookup mais comuns são:

DBLookupComboBox: TDBLookupComboBox;
DBLookupListBox: TDBLookupListBox;

Intraweb Framework
IWDBLookupComboBox: TIWDBLookupComboBox;
IWDBLookupListBox: TIWDBLookupListBox;

Dev Express
cxDBLookupComboBox: TcxDBLookupComboBox;
cxDBCheckComboBox: TcxDBCheckComboBox;

Jedi
JvDBLookupComboEdit: TJvDBLookupComboEdit;

Campo Virtual LookUp

Tfield fkLookup: A mesma lógica descrita acima é aplicada também aos Datasets, especificamente quando, através deles trabalhamos com o que a literatura chama de campos persistentes. Trata-se de objetos da classe Tfield. Quando manipulamos dados usando Datasets (TDataset) podemos criar objetos que representam a referência linha/coluna de uma tabela. Esses objetos chamamos de campos de um Dataset, eles nos permitem acessar um determinado dado de um registro. Os Tfields podem ser de vários tipos. Cada tipo determina um grupo de operações que poderá realizar o Tfield. A Propriedade FieldKind determina o tipo do Tfield.
fkData, fkCalculated, fkLookup, fkInternalCalc, fkAggregate são os valores possiveis para a propriedade FieldKind. A Classe TFieldKind, definida na unit DB, define esses valores:



type TFieldKind = (fkData, fkCalculated, fkLookup, fkInternalCalc, fkAggregate);


O Tfield usado para fazermos Lookup é do tipo “fkLookup”. Isso quer dizer que a propriedade FieldKind é “fkLookup”.

Usamos a técnica de Lookups com os Fields (TFild) de um Dataset (Um TclientDataSet por exemplo) quando existe a necessidade de acessarmos (disponibilizarmos, visualizarmos) dados provenientes de tabelas diferentes num único resultset. Como por exemplo, ao apresentar uma listagem de “Pedidos” precisamos explicitamente exibir na tela: O nome do cliente que efetuou a compra, a data do pedido e a descrição dos produtos vendidos. Obviamente, a primeira coisa que vem a mente é o recurso de utilizarmos um join em SQL.


SELECT
C.NomeCliente,
P.DataPedido,
I.Quantidade,
I.PrecoVenda,
(I.Quantidade * I.PrecoVenda) Total,
P.DescricaoProduto
FROM
Clientes C
inner join Pedidos P on
C.ClienteID = P.ClikenteID
inner join Itens I on
I.PedidoID = P.PedidoID
inner join Produtos Pr on
Pr.ProdutoID = I.ProdutosID


Contudo, num Dataset, isto impossibilitaria a utilização do mesmo para qualquer atualização nestes dados (Obviamente, isso é verdadeiro se não consideramos a técnica de gerenciarmos explicitamente, via código, o evento “BeforeUpdateRecord” do DataSetProvider – Falaremos sobre está técnica mais adiante).
No Delphi, o campo (TField) “virtual” lookUp funciona, no que tange a visualização de dados, de forma semelhante ao join. Ou seja, podemos configurar um determinado Dataset trazendo dados através de um comando SQL genérico (Select * from ) de uma única tabela, como o exemplo anterior, “Products”, e adicionarmos a ele um campo virtual que irá conter informações de um outro Dataset. A exemplo da relação entre Products e Categories, demonstrado acima. A grande vantagem desta técnica é porque mesmo disponibilizando dados de tabelas diferentes e ainda assim podermos atualizar os dados usando os comandos convencionais do próprio Dataset. Para fazermos uso do campo LookUp basta que os Datasets possuam um campo de relacionamento.

Vejamos agora, a utilização do campo LookUp:

Suponha que neste momento queremos criar um cadastro (CRUD) de produtos. Mas temos um problema, o banco apresenta um normalização para a tabela produtos de maneira que o dado categoria do produto esta em outra tabela. A tabela Categorias (no caso Categories) é uma tabela de referência. Ela não é transacional e possui um número relativamente pequeno de registros.
Lembre-se que, na hora de incluirmos novos Produtos precisamos digitar, na interface, os dados necessários da tabela de produtos, sendo que para os campos “CategoryID” e “SupplierID” presimos apresentar as descrições de cada um dos campos. Entretanto, o dado, descrição da categoria, por exemplo, encontra-se na tabela de Categories. Ou seja, temos que ler da tabela de Categories: a descrição (Categories.Description), e o valor do respectivo vampo de relacionamento (Categories.CategoryID). Para, então, atribuir a Produtos (Products.CategoryID).

Para isso usaremos um Dataset, o CdsProdutos, criaremos nele um campo lookUp que apontará para o campo Description de Categories no CdsCategorias.
Existe o campo de relacionamento entre essas duas tabelas, esses dois campos estão presentes tanto no CdsProdutos (Products.CategoryID), quanto no CdsCategorias (Categories.CategoryID) possibilitando desta forma um “join virtual”, entre CdsProdutos e CdsCategorias. Consequentimente, podemos ainda assim a atualizar o recordset do CdsProdutos. Outro bonus fundamental dessa técnica é, o que que propositalmente guardei para relembrar no final, de que com o campo LookUp a atribuição de valor ao campo “Products.CategoryID” e feita automaticamente sem a necessidade de código para isso, proveniente do link feito com Categories.CategoryID. Isso ocorre imediatamente a ação do usuário selecionar a descrição da categoria no controle lookup disponibilizado na interface.




As linhas vermelhas indicam as propriedades envolvidas na configuração de um de um controle DBLookup (DBLookupComboBox). AS Linhas verdes indicam os valores, e suas origens, que devem ser associadas as respectivas propriedades.

Criando o Campo Virtual LookUp

Com o botão direito do mouse sobre o CdsProdutos, selecione “Fields Editor ...”



Para criar um novo Field, botão direito no “Fields Editor” e selecione “New Field” (Ou digite “Ctrl + N”).




No Diálogo de definição do novo Field configure as propriedades conforme ilustrado na figura abaixo.




Na propriedade “Name” será definido o nome da coluna/campo virtual. Automaticamente, enquanto você digitar o Delphi gera o nome do objeto Tfield em “Component”. A propriedade “Type” define o tipo de dado que o Tfield irá trabalhar, internamente isso irá definir a propriedade DataType cujo o tipo é “TfieldType”, por sua vez isso refletirá na definição de uma classe que especializa o Tfield a qual o Field criado instanciará.
Dependendo do tipo escolhido em “Type” será imprescindível definir o tamanho do Field. Isso quer dizer, por exemplo, se o campo for do tipo String, o limite máximo quanto ao número de caracteres que o Field poderá armazenar. Logo, na propriedade “Size” digite um valor adequado para o tamaho, limite de caracteres, no campo “CategoriaVirt”. É mais que aconselhável você conferir no banco qual o tamanho da coluna “Categories.CategoryName”, visto que será os valores armazenados por ela listados por esse novo campo.




Em Field Type marque Lookup, em resposta a essa ação os campos de “Lookup definition” serão habilitados, em “Key Fields” e “Lookup Keys” selecionamos as colunas de relacionamento entre os Datasets envolvidos no Lookup. Todavia, para habilitar a propriedade Dataset (onde devemos definir o Dataset que disponibilizara os dados para Lookup, no nosso caso CdsCategorias), temos que selecionar primeiro a coluna do CdsProdutos que faz o relacionamento com Categorias (CategoryID).

Na propriedade DataSet, repetindo, é onde definimos o Dataset de Lookup. Selecione CdsCategorias.
Na propriedade “Lookup Keys”, selecionamos a coluna, do Dataset o qual escolhemos na propriedade “Dataset”, que se relaciona com o CdsProdutos (CategoryID).
Por fim, na propriedade “Result Field” selecionamos a coluna do CdsCategorias que servirá para listar os dados da descrição da categoria. Ou melhor, a coluna para a qual nosso campo virtual “CategoriaVirt” apontará. Selecione “CategoryName”.




Portanto, olhando a tamanho da coluna em “Disign Table” no Enterprise Manager, podemos definir o valor 15 para a propriedade “Size”.


Para finalizar, após definir todas as propriedades, click em “OK”

Se você fizer um Drag and Drop do novo Field virtual Lookup para o Form veja que será criado um controle DbLookupCombobox associado ao CdsProdutos pelo DataSource “DsProdutos”.






Para testar, adicione um DbGrid ao Form1, associe ele ao DataSource DsProdutos (através da propriedade “DataSource” do DbGrid, no Object Inspector). No Evento OnCreate Do Form1 abra os dois Cds (CdsProdutos e CdsCategorias).



procedure TForm1.FormCreate(Sender: TObject);
begin
CdsCategotias.Open;
CdsProdutos.Open;
end;




Observações:

Embora apresente um ganho extraordinário para o desenvolvimento no front-end ,em situações onde trabalhamos com CRUD que envolve tabelas normalizadas, a técnica de lookup nem sempre será adequada. Observamos diversas situações em que o emprego do Lookup trará grande inconveniência, tanto no para usabilidade quanto para outros pontos importantes como: Performance e manutenibilidade. Um caso onde o Lookup é desaconselhado é quando a tabela de lookup possui muitos registros.

Em substituição a técnica de Lookup devemos usar, em conjunto, mais de uma técnica. Um exemplo comum é o join no próprio SQL do Dataset que manipula os dados, para tratar o pacote transacional posteiormente no evento BeforeUpdateRecord do DatasetProvider. Mas isso exige conhecimento intermediário em DataSnap. Em Breve abordaremos esse tema!

Artigo completo (View Full Post)

Delphi Intraweb 8 – Acessando dados – BDS2006

Neste artigo pretendo demonstrar como usar os componentes dataware do framwork Intraweb 8.
Tenho observado muitos problemas com essa versão da Intraweb. Graças a Deus parece que ninguém ousou usar esse framework, com algumas raras exceções. Se você veio aqui procurando saber se deve ou não iniciar um projeto com essa tecnologia, minha sugestão é: Procure outra coisa, ou na falta de alternativa use Delphi 7 com a versão 5.o do Intraweb.

Vamos construir uma aplicação que vai acessar a base de dados Northwind do SQL Server. Northwind, é uma base criada por default no SQL server, na instalação, cujo objetivo é didático. Ela é usada nos treinamentos oficiais da Microsoft, e exemplifica integralmente um banco de dados usado em um cenário real, profissional



Explicando sobre a base de dados

OBS:
Caso você já conheça a base Northwind, pode pular essa parte indo direto para “Iniciando um projeto Intraweb”.


Vamos trabalhar com as tabelas Categories (Refere-se as categorias dos produtos) e Products (Produtos).
Com o botão direito do mouse sobre “Diagrams”, na tree view, dentro do nó “Northwind”, podemos criar um DER (Diagram Entidade Relacionamento) das tabelas e entender como os dados se relacionam neste data base.



Nosso exemplo estará restrito ao contexto demonstrado na figura abaixo:



O relacionamento demonstrado acima indica que uma “Categoria” pode classificar muitos produtos. Sendo que o “Produto” somente pode ser classificado por uma “Categoria”. Este tipo de relacionamento chama-se “Um para N” (1-N). No relacionamento “Um para N” a chave (campo de relacionamento) aponta para a tabela “N”, no caso “Produtos”.
Isso quer dizer que na tabela Producs, existe uma coluna que referencia a tabela “Categories”. Em outras palavras: A coluna “CategoryID”, de “Producs” aponta para a “CategoryID” de “Categories”.


Iniciando um projeto Intraweb

Inicie um novo projeto do DBS2006: No menu File ►New ► Other ►Intraweb, selecione “Intraweb Application Wizard”.



No diálogo seguinte, “Intraweb Application Wizard”, definiremos alguns parâmetros da nova aplicação que criaremos. Configure conforme ilustrado na imagem abaixo:



Adicione na Unit1 os seguintes componentes:

IWDBEdit1: TIWDBEdit
IWDBListbox1: TIWDBListbox
IWDBNavigator1: TIWDBNavigator
IWDBLookupComboBox1: TIWDBLookupComboBox
IWButton1: TIWButton
IWCheckBox1: TIWCheckBox
ADOConnection1: TADOConnection
ADODataSet: TADODataSet, altere a propriedade “Name” para: AdsCategotias.
DataSetProvider: TdataSetProvider , altere a propriedade “Name” para: DspCategotias
ClientDataSet: TClientDataSet, altere a propriedade “Name” para: CdsCategotias
DataSource: TDataSource, altere a propriedade “Name” para: DsCategotias
ADODataSet: TADODataSet, altere a propriedade “Name” para: AdsProdutos
DataSetProvider: TDataSetProvider, altere a propriedade “Name” para: DspProdutos
ClientDataSet: TClientDataSet, altere a propriedade “Name” para: CdsProdutos
DataSource: TDataSource, altere a propriedade “Name” para: DsProdutos
OBS: A partir do DBS 2005 foi inroduzido na IDE do Delphi um novo conceito para a “Tool Palette”. Para vizualizá-la acesse o menu Vew ► Tool Palette. Hot key “Ctrl + Alt + P” ou digite “Alt” seguido de “V” seguido de “L”.



Uma forma fácil de adicionar um novo componente ao seu projeto é clickar sobre o ícone de filtro na Tool Palette e digitar o nome do componente. Veja imagem abaixo:



Veja o meu Form como ficou em tempo de projeto:




Conecte os componentes de acesso a dados da seguinte forma:

Selecione o IWEdit1, acesse o Objetc Inspector (F11). Associe IWDbEdit1, através da propriedade DataSource, ao DsProdutos. Defina a coluna (campo) que será associada ao IWEdit na propriedade “DataField”. Selecione “ProductName”.

Selecione o DsProdutos, acesse o Objetc Inspector (F11). Associe DsProdutos, através da propriedade DataSet, ao CdsProdutos.

Selecione o CdsProdutos, acesse o Objetc Inspector (F11). Associe CdsProdutos, através da propriedade ProviderName, ao DspProdutos.

Selecione o DspProdutos, acesse o Objetc Inspector (F11). Associe DspProdutos, através da propriedade “DataSet”, ao AdsProdutos.

Selecione o AdsProdutos, acesse o Objetc Inspector (F11). Associe AdsProdutos, através da propriedade “Connection”, ao ADOConnction1.


Conectando o acesso a categoria de produtos:

Selecione o DsCategotias, acesse o Objetc Inspector (F11). Associe DsCategotias, através da propriedade DataSet, ao CdsCategotias.

Selecione o CdsCategotias, acesse o Objetc Inspector (F11). Associe CdsCategotias, através da propriedade ProviderName, ao DspCategotias.

Selecione o DspCategotias, acesse o Objetc Inspector (F11). Associe DspCategotias, através da propriedade “DataSet”, ao AdsCategotias.

Selecione o AdsCategotias, acesse o Objetc Inspector (F11). Associe AdsCategotias, através da propriedade “Connection”, ao ADOConnction1.


Conectando o IWDBLookupComboBox1:


Selecione o IWDBLookupComboBox1, acesse o Objetc Inspector (F11). Associe IWDBLookupComboBox1, através da propriedade DataSource, ao DsProdutos. Defina a coluna (campo) que será associada ao IWDBLookupComboBox1 na propriedade “DataField”. Selecione “CategoryID”. A associação ao CdsCategorias deve ser feita através das propriedades:

1 – “ListSource”, nela selecione “DsCategotias”.
2 - “KeyField”, nela selecione “CategoryID”.
3 - “ListField”, nela selecione “CategoryName”

Esses três campos são do CdsCategorias. Veja mais detalhes sobre a técnica de Lookup ...




Conectando o IWDBListbox1:

Selecione o IWDBListbox1, acesse o Objetc Inspector (F11). Associe IWDBListbox1, através da propriedade DataSource, ao DsProdutos. Defina a coluna (campo) que será associada ao IWDBListbox1 na propriedade “DataField”. Selecione “Discontinued”. Este campo indica se o produpo foi descontinuado ou não.


Definindo os valores no DBListBox:

Na propriedade “Items”, click para acessar o editor. Digite “True”, em seguida, na linha de baixo, digite “False”. Como o CdsProdutosDiscontinued é um “TbooleanField” isso vai funcionar.





Na propriedade ItemsHaveValues, Selecione “False”.

Para a propriedade Height digite 41.


Conectando o IWDBNavigator:


Selecione o IWDBNavigator1, acesse o Objetc Inspector (F11). Associe IWDBNavigator1, através da propriedade DataSource, ao DsProdutos.


String connection no ADOConnection


Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=Landjah;Use Encryption for Data=False;Tag with column collation when possible=False

Conectei no SQL Server, usarei as tabelas Categories e Products do banco “Northwind”. Ele é o banco padrão do SQL Server para exemplo e estudo.

Comando SQL nos Ads:
AdsCategorias
Propriedade CommandText:
select CategoryID, CategoryName from Categories

AdsProdutos
Propriedade CommandText:
select * from Products


Codificando o evento OnClick do IWButton1:
procedure TTADo.IWButton1Click(Sender: TObject);
begin
CdsCategotias.Open;
CdsProdutos.Open;
end;


Podemos também trabalhar com o evento OnCreate do Form.
procedure TTADo.IWAppFormCreate(Sender: TObject);
begin
IWButton1Click(IWButton1);
end;

Agora você pode executar a aplicação e testar, navegando, alterando, inserindo, ou excluindo dados.


Veja a imagem ilustrando as conexões data ware no Delphi:



Para rodar o exemplo pressione F9, quando aparecer o diálogo referente ao servidor, pressione F9 novamente.



No IWCheckBox1, defina para a propriedade Caption = 'Editar Produto'. No evento OnClick programe:
procedure TTADo.IWCheckBox1Click(Sender: TObject);
begin
if IWCheckBox1.Checked then
CdsProdutos.Edit;
end;


Agora no evento AfterPost do CdsProdutos sicronise o comportamento do IWCheckBox:
procedure TTADo.CdsProdutosAfterPost(DataSet: TDataSet);
begin
IWCheckBox1.Checked := False;
end;


Testando o comando do IWCheckBox



Salvando as alterações realizadas




Sucesso!

Artigo completo (View Full Post)

quarta-feira, 10 de dezembro de 2008

3G Oi - Testando

Não é propaganda da Oi! Ok?
Acho importante registrar para os amigos que até aqui tudo está ok, afinal isso é do interesse de todos.
Estou usando o 3G da Oi (1 Mb) tem alguns dias. Por enquanto está funcionado mto bem.
Naveguei no You Tube, tranqüilo carregou os vídeos com poucas interrupções. Carregou o Estação Zn rapidão, ouvi os Zn Ringtones (sem legs). Postei tranqüilão, muito mais rápido que minha antiga conexão (TIM Móvel – não 3G).
Localidades onde usei o 3G da Oi:

Centro: Funcionou bem, registrei 500 Kbps, aproximadamente.
Botafogo: Funcionou bem, registrei 700 Kbps, aproximadamente (Dentro do Outback).
Méier: Funcionou bem, registrei 800 Kbps, aproximadamente.

Ainda não usei profissionalmente, tipo acesso remoto, mais em breve esse teste será realizado.




Artigo completo (View Full Post)

quarta-feira, 3 de dezembro de 2008

Operação de várias etapas gerou erro. Verifique cada valor de status.

Erro genérico da middleware OLE DB

Mensagem de exceção genérica, presumo (hehehhe...), da Ole Db. A mesma mensagem pode ser recebida ao inserir, alterar, excluir, ou até mesmo consultar, dados. Diversas vezes, em empresas diferentes ao dar manutenção em softwares (alguns muito imbicados, outros nem tanto) passei por essa situação. Há algum tempo imaginei postar a respeito. A princípio, não há nada neste problema que mereça destaque. Todavia, um pequeníssimo detalhe me chamou a atenção para tal.
A pior situação que vivenciei ao receber este erro foi com a seguinte configuração: Oracle e Delphi, usando ADO. O problema acontecia quando um determinado registro era carregado para tela e em decorrência era disparada a seguinte exceção: “Operação de várias etapas gerou erro.Verifique cada valor de status”. Obviamente, esse detalhe, de que era apenas um registro específico que causava o problema, só foi percebido depois de algum tempo perdido em função de estarmos concentrados em resolver um incident report, o qual descrevia que a determinada tela do sistema não estava funcionando. A tela do sistema não esta funcionando! Anexo ao incidente havia um screenshot com a mensagem de exceção e mais nada.
Apesar de estarmos certos de que o problema era o registro, foi bastante cansativo e demorado encontrar em que dado específico estava a causa do problema. A tela em questão envolvia pelo menos três tabelas tabelas. Sendo que duas delas (as principais, master/detail) possuíam, cada uma, mais de duzentas colunas. Contudo, num dos casos isso foi totalmente relevante porque por mais que observássemos os dados o problema era invisível. Como??? Pois é, isso mesmo, não dava pra perceber simplesmente usando um “select * from ... where ...”


Processo de identificação do dado defeituoso:


Primeiro, num ClientDataset de cada vez, excluímos todos os TFields. Em seguida fomos adicionando um TField de cada vez, então ativávamos o ClientDataset. e testávamos. Assim , encontramos o dado que apresentava problema. Não era possível ver o valor nem debugar. A exceção era disparada imediatamente ao método “Open” ser chamado. É claro, suponho que alguém possa sugerir, debuggar nas units do Delphi (a própria ADODb). Todavia, no nosso caso isso seria pouco eficiente porque nesta situação específica, os desenvolvedores originais do sistema haviam alterado a ADODb. Além de outras units importantes (é desnecessário dizer que eles haviam prejudicado bastante a biblioteca. Na minha opinião, destruíram as units). Além disso, haviam várias chamadas a centenas de funções bizonhas, desnecessárias e confusas (uma rara coletânea de bozosorts anhinhados). Era uma verdadeira "visão Dantesca" (Deus me livre e guarde!). Seria muito simplório também imaginar ser possível substituí-las pelas originais (Existem loucos que conseguem inventar problemas mais complicados que as soluções seriam, se fossem razoavelmente implementadas). Pode acreditar, eu tenho vergonha de mencionar essas coisas e trazer a luz fatos como esses...
Em fim, não era possível na aplicação Delphi identificar o valor do campo, tratava-se de um campo “Date”, ou “DateTime”. Tranqüilo, basta um select do PL/SQL Developer!! Que nada. "Select" feito, a data estava lá, perfeita. Sei lá, tipo “12/11/05”. Ué tudo certo com esse valor?!??!?! Parece que sim ... então ...
O Que fazer? Cara, faz um cast para string ... resultado: “12/11/00”. Só que, cansado, na tensão do problema, é bem provável que vc não consiga distinguir entre “12/11/00” e “12/11/05”. Mas, se usar a mascará “DD/MM/YYYY” fica mais fácil ver a diferença entre “12/11/0005” e “12/11/2005”.


Pois é amigo, isso acontece! Vi muita gente boa perder tempo e stress nessa sinuca de bico.
Hoje, ao socorrer um amigo, tive tempo para documentar e fiz alguns screenshots para demonstrar o problema.



Forçando a exceção em tempo de projeto: Atribuindo valor para o parâmetro, em seguida ativando o ClientDataset.




Exceção, mensagem, recebida no Delphi ...




No Oracle, o que víamos não apresenta falha. A data, aparentemente, era exibida como se estivesse correta ...




Não confiando no que os olhos viam superficialmente, procuramos um pouco mais....



Alteramos a data e tudo ficou bem. Problema resolvido! Só que, hoje, sem sofrimento.

update CadZnCotryDm set dat_nasc= to_date('25/03/2004', 'dd/mm/yyyy')
where cic='0618XXXXXX019X';

Isso também aconteceu, anteriormente com campos strings cujo valor possuía caracteres acentuados que de alguma forma ao serem persistidos eram substituídos por caracteres estranhos, tipo. “Maria das Gra¿as”.
Esse problema encontra-se dentro do escopo de problemas que descrevi no artigo “Banco de Dados ou Bando de Dados”. Esse é mais um exemplo de como poderá ser custoso no futuro para uma empresa manter um banco de dados o qual aceita que qualquer valor possa ser inserido nele. A qualquer momento caba entrando lixo, visto que não existem regras que determinem o que pode ou não ser persistido em suas tabelas.

Artigo completo (View Full Post)

terça-feira, 4 de novembro de 2008

VB6 & Oracle - Inserindo Dados

O Modelo Cliente/Servidor caracteriza-se por centralizar grande parte dos processos de um sistema de informação no SGBD. Esses processos são programados em forma de UDFs, Procedures e Triggers.
Neste artigo veremos como criar um procedure no Oracle, para em seguida desenvolvermos um aplicativo em VB6 o qual ira chamar a execução da mesma.

Iniciaremos então pelo banco de dados, veja abaixo o código da procedure:



Back-End Script de Banco de Dados

-- Criando a tabela para testar insert apartir de um front-end vb6
CREATE TABLE TESTEGM (
COD VARCHAR(3),
DESCRICAO VARCHAR(10)

);

-- Procedimento para insert - exemplo de arquitetura cliente/servidor
CREATE OR REPLACE PROCEDURE PROC_TESTE_GM (
PCOD IN VARCHAR,
PDESCRICAO IN VARCHAR,
PAUX_RETORNO OUT VARCHAR)
AS
BEGIN
INSERT INTO TESTEGM
(COD, DESCRICAO) VALUES (PCOD, PDESCRICAO);
COMMIT;
PAUX_retorno := 'OPERAÇÃO REALIZADA COM SUCESSO!';
EXCEPTION
WHEN OTHERS THEN
PAUX_retorno := SQLERRM || ' INSERT DISTRATO ERRO.' ; -- RETORNA A MENSAGEM COM CÓDIGO E DESCRIÇÃO DO ERRO ORACLE
ROLLBACK;

END;


Front-end Código do lado Cliente

Neste exemplo, aproveito para demostrar um pouco de modularização. Criei duas funcionalidades, uma que se preocupa com a conexão com o banco, "GetConnectionCRUD". Essa "Sub" retorna um "ADO Command" conectado e configurado como "procedure". Uma segunda rotina, "BuildParams", monta os parâmetros do "ADO Command" (o qual recebe como parâmetro) dinamicamente e atribui valor para os mesmos.


Private Sub BuildParams(ByRef obj As ADODB.Command)
'Cria o parâmetro de saida no commad
objInsertCommandAux.Parameters.Append objInsertCommandAux.CreateParameter("PAUX_RETORNO", adBSTR, adParamOutput)
'Cria os parâmetros de entrada nos commads já passando o valor para eles
obj.Parameters.Append objInsertCommandAux.CreateParameter("PCOD", adBSTR, adParamInput, , Text1.Text)
obj.Parameters.Append objInsertCommandAux.CreateParameter("PDESCRICAO", adBSTR, adParamInput, , Text2.Text)

End Sub

Private Function GetConnectionCRUD() As ADODB.Command
' Retorna um objeto (um activeX) ja conectado ao banco
' Dessa forma podemos de forma coesa, isolada definir uma conexão com o banco
Dim objCommandAux As New ADODB.Command
Dim MyConn As New ADODB.Connection

MyConn.Open "Provider=MSDAORA;Data Source=desvbancoteste;User ID=sistema;Password=landjah;"
objCommandAux.ActiveConnection = MyConn
objCommandAux.CommandType = adCmdStoredProc
Set GetConnectionCRUD = objCommandAux

End Function


Em seguinda codificaremos no evento OnClick de um botão a execução dos procedimentos, "Caixa Preta", descritos acima.


Dim objInsertCommandAux As New ADODB.Command
Dim AuxRetorno As String
' Para trabalar desconectado do banco ...
Dim rsZN As New ADODB.Recordset

Private Sub Command1_Click()

Set objInsertCommandAux = GetConnectionCRUD()
' Define que o command criado executará proc de Insert
objInsertCommandAux.CommandText = "PROC_TESTE_GM"


BuildParams objInsertCommandAux

'*** Executando a stored procedure
objInsertCommandAux.Execute

MsgBox (objInsertCommandAux("PAUX_RETORNO"))

'Destroi o objeto
Set objInsertCommandAux = Nothing

End Sub


Artigo completo (View Full Post)

segunda-feira, 3 de novembro de 2008

Banco de Dados ou Bando de Dados?

O fato de se gastar na ordem dos milhares por uma tecnologia de banco de dados relacional, tipo Oracle, MS SQL Server, IBM DB2, etc, não garante por si só que você terá informações consistentes.
Se você deseja algum dia extrair informações que agreguem valor ao seu negócio, trate de garantir que o que entra no seu banco de dados não seja lixo.
Supondo que, no que tange a modelagem de dados seu banco seja impecável. Suponhamos ainda, que você comprou o que existe de mais poderoso em termos de hardware, ainda assim existe a possibilidade desses dois fatores serem totalmente irrelevantes caso não exista mecanismos de checagem, neste suposto data base, a fim de garantir que o dado que é “inputado” não possui qualidade.
Para isso existem as constraints, checks e domains. Através deles programamos regras no banco de dados que trabalharão para que tudo que for inserido nele seja consistente, compreensível, relevante (Leia mais sobre ... ).

Veja um exemplo desse tipo de controle:

-- Criando a tabela de Tipo de Contato
CREATE TABLE ZnTipo_Contato(
TIPO_ContatoID NUMBER (8,0) PRIMARY KEY,
DESCRICAO VARCHAR2(20) NOT NULL,
DT_CADASTRO TIMESTAMP NOT NULL,
UpdateDate TIMESTAMP NOT NULL,
USERUPDATE NUMBER (8,0) NOT NULL,
CONSTRAINT chk_DESCRICAO CHECK (LENGTH(DESCRICAO) > 4)
);


No trecho de código acima criei uma tabela que possui nela duas constraints, ou seja, duas checagens de controle. Uma que não permitirá valores repetidos (Primary Key) na coluna “Tipo_ContatoID” (linha 3). A outra, não vai permitir valores com menos de 4 caracteres na coluna “DESCRICAO” (linha 8).

Comentários nos Objetos de Banco de Dados

Outro ponto importante que vai ser de extrema relevância para que seu banco de dados passe longe de ser o “bando de dados” mais high tech do mundo é o cuidado em comentar cada objeto construído no banco. Isso deve ser considerado uma cultura a ser desenvolvida, tanto pela equipe, num âmbito gerencial, quanto individualmente (Ou seja, aonde quer que você vá leve esse bom hábito).

Pense, com que cara você vai ficar quando daqui a três meses alguém lhe perguntar qual o significado da coluna “ValPerJurosPgto” e você não lembrar? Todavia, para a mesma situação, se houver um comentário na coluna sua orelha vai ser eternamente grata por continuar cinco palmos menor (hehehhe), além disso seu bolso irá lhe agradecer o salário continuar entrando.

COMMENT ON TABLE ZnTipo_Contato IS 'Tabela de referência. Armazena os possíveis Tipos de Contato. Exemplo: Email, Telefone, Celular';
COMMENT ON COLUMN ZnTipo_Contato.TIPO_ContatoID IS 'Primary key da tabela ZnTipo_Contato.';
COMMENT ON COLUMN ZnTipo_Contato.DESCRICAO IS 'Descrição do Tipo de Contato.';
COMMENT ON COLUMN ZnTipo_Contato.DT_CADASTRO IS 'Data de Cadastro do registro na tabela ZnTipo_Contato.';
COMMENT ON COLUMN ZnTipo_Contato.UpdateDate IS 'Data em que o usuário do sistema que atualizou um registro de Tipo de Contato.';
COMMENT ON COLUMN ZnTipo_Contato.USERUPDATE IS 'Usuário do sistema que atualizou um registro de Tipo de Contato.';


Agora vamos fazer alguns testes ...

-- Criando a Sequence para geração de Uk para a tabela ZnTipo_Contato
CREATE SEQUENCE SQ_ZnTipo_Contato
MINVALUE 1
MAXVALUE 999999999999999999999999999
START WITH 1
NOCYCLE
NOORDER
CACHE 20;



A seguir, vou inserir alguns registros na nova tabela. Pretento, em dado momento testar a constraint "chk_DESCRICAO".



-- Inserindo registros de Tipo de Contato em ZnTipo_Contato

INSERT INTO ZnTipo_Contato(
TIPO_CONTATOID
, DESCRICAO
, DT_CADASTRO
, UPDATEDATE
, USERUPDATE
) VALUES
(
SQ_ZnTipo_Contato.NEXTVAL
, 'Email'
, SYSDATE
, SYSDATE
, 1
);

INSERT INTO ZnTipo_Contato(
TIPO_CONTATOID
, DESCRICAO
, DT_CADASTRO
, UPDATEDATE
, USERUPDATE
) VALUES
(
SQ_ZnTipo_Contato.NEXTVAL
, 'Telefone Residencial'
, SYSDATE
, SYSDATE
, 1
);

INSERT INTO ZnTipo_Contato(
TIPO_CONTATOID
, DESCRICAO
, DT_CADASTRO
, UPDATEDATE
, USERUPDATE
) VALUES
(
SQ_ZnTipo_Contato.NEXTVAL
, 'Telefone Comercial'
, SYSDATE
, SYSDATE
, 1
);

INSERT INTO ZnTipo_Contato(
TIPO_CONTATOID
, DESCRICAO
, DT_CADASTRO
, UPDATEDATE
, USERUPDATE
) VALUES
(
SQ_ZnTipo_Contato.NEXTVAL
, 'Telefone Celuar'
, SYSDATE
, SYSDATE
, 1
);

INSERT INTO ZnTipo_Contato(
TIPO_CONTATOID
, DESCRICAO
, DT_CADASTRO
, UPDATEDATE
, USERUPDATE
) VALUES
(
SQ_ZnTipo_Contato.NEXTVAL
, 'Gtalk'
, SYSDATE
, SYSDATE
, 1
);

INSERT INTO ZnTipo_Contato(
TIPO_CONTATOID
, DESCRICAO
, DT_CADASTRO
, UPDATEDATE
, USERUPDATE
) VALUES
(
SQ_ZnTipo_Contato.NEXTVAL
, 'Skype'
, SYSDATE
, SYSDATE
, 1
);

INSERT INTO ZnTipo_Contato(
TIPO_CONTATOID
, DESCRICAO
, DT_CADASTRO
, UPDATEDATE
, USERUPDATE
) VALUES
(
SQ_ZnTipo_Contato.NEXTVAL
, 'Orkut Profile'
, SYSDATE
, SYSDATE
, 1
);

COMMIT;


Ok, agora vamos provocar a validação. Vou inserir um tipo de contato cujo tamanho será menor que 4 caracteres.

---- Testanto a constraint, inserindo um contato cujo o tamanho é menor que 4

INSERT INTO ZnTipo_Contato(
TIPO_CONTATOID
, DESCRICAO
, DT_CADASTRO
, UPDATEDATE
, USERUPDATE
) VALUES
(
SQ_ZnTipo_Contato.NEXTVAL
, 'Msn'
, SYSDATE
, SYSDATE
, 1
);




Verificando os registros inseridos


SELECT * FROM ZnTipo_Contato;



Como posso ver os comentários que colocamos nas colunas da tabela?

SELECT * FROM ALL_COL_COMMENTS WHERE table_name = 'ZNTIPO_CONTATO'



Artigo completo (View Full Post)

 
BlogBlogs.Com.Br