ActiveDelphi

JoaoSHi · Enviada: Qua Abr 01, 2009 8:47 pm Assunto: Para quem utiliza FIREBIRD

Senhores vi esta notícia, achei bom compartilhar.

Cuidado ao remover índices

Foi descoberto um bug que afeta todas as versões oficiais do Firebird >=
2.1.0 lançadas até agora. Caso você apague mais que um índice dentro da
mesma transação, o banco de dados ficará corrompido e não será possível mais
acessa-lo. Vale a pena prestar atenção, especialmente quem usa scripts de
atualização de dados para automatizar a manutenção dos BDs nos clientes.

Detalhes: http://www.firebase.com.br/fb/noticias.php?recentes=1

thomazs · Enviada: Qua Abr 01, 2009 9:40 pm Assunto:

Vou deixar a notícia fixada como apoio a galera. Valeu pela contribuição.
_________________
Suporte e Consultoria em Desenvolvimento de Sistemas
Bacharel em Sistemas de Informação
Especialista em Bancos de Dados
Desenvolvimento: Clipper, Delphi, PHP, Python/Django

rafa_crafter · Enviada: Qui Jul 30, 2009 9:09 pm Assunto: problemas procedure

create procedure sp_get_gerador (pNome Varchar(50)) returns (pValor d_inteiro)
as
declare variable vStm Varchar(500);
begin
vStm = 'select next value for ' || pNome || 'from rdb$database';
execute statement vStm into :pValor;
suspend;
end;

---------------------------

ISC ERROR MESSAGE:
Dynamic SQL Error
SQL error code = -104
Unexpected end of command - line 3, column 34
-----------

estou tentando criar essa procedure mas não da certo, da esse erro ai,
sera que é alguma incompatibilidade no firebird com para trabalhar com procedure? ou tem algo erro?

samuelseixas · Enviada: Qui Nov 25, 2010 3:37 pm Assunto:

Olá, meu nome é Samuel e sou novo aqui no site.

gostaria de uma ajuda ( na verdade uma grande ajuda!!!). Tenho um código para verificar os aniversariantes do mes e quando digito o numero referente ao aniversariante ele me dá o seguinte erro.

EIBINTEBASEERROR WITH message 'expression evaluation not supported'.

o Código seria este:

begin
dmMembros.ibdataNiver.Active:= false;
//dmMembros.ibdataNiver.SQL.Clear;
dmMembros.ibdataNiver.SQL.Text:= 'select tbmembros.nomemembro, tbmembros.fone, tbmembros.cel, tbmembros.email from tbmembros where extract(month from DATA)=' + (Edit1.Text);
DBGrid1.DataSource:= dmMembros.DsdataNiver;
dmMembros.ibdataNiver.Active:= true;
end;

O banco é interbase e os componentes seria

ibtable= tbmembros
ibquery= ibdataNiver
ibtransition

Gostaria que vc pudesse me apontar onde estão os erros, e qual a solucão para validar o meu código e realizar a busca.

Muito obrigado pela força.

Samuel Seixas

ovatsug · Enviada: Qua Fev 02, 2011 4:35 pm Assunto:

Tente verificar a dll(Ex.: C:\Program Files (x86)\Firebird\Firebird_2_0\bin\fbclient.dll) que está usando ou charset que está setado.

jarbasm · Enviada: Seg Jan 23, 2012 4:35 pm Assunto:

zottis · Enviada: Seg Abr 23, 2012 10:06 am Assunto: Como ordenar por outra tabela

Pessoal, tenho o script abaixo, tenho que ordena-lo por uma outra tabela que não faz parte dos Clientes, alguém poderia me dar uma luz?

desde já agradeço

select c.COD_CLIENTE, c.DATA_CAD, c.COD_EMPRESA, c.NOME_FANTASIA, c.RAZAO_SOCIAL,
c.NOME_MONTADO, c.COD_CIDADE, cd.cidade , c.COD_AREA_ATUACAO, c.COD_TIPO_AREA,
c.INICIO_CONTRATO, c.FINAL_CONTRATO, c.INTERVALO_COLETA, c.TIPO_BOMBONA, c.FORMA_PGTO,
c.VALOR_KILO, c.VALOR_KILO_EXCEDE, c.LIMITE_KILO, c.TAXA_RECOLHIMENTO, c.BOMBONA,
c.QTD_COLETAS, c.COD_CLASSIF_RESIDUOS, c.VALOR_MENSAL, c.COD_CLIENTE_EMPRESA, c.PROXIMA_COLETA,
c.SERASA, c.CENTRAL_COBRANCA, c.BLOQUEADO, c.INADIMPLENTE, c.COM_NOTA_FISCAL,
c.com_comodato, c.contrato_retornado, c.cod_master, c.COD_DESTINO,

(select Uf from Cidades where Cidades.Cod_cidade = C.Cod_cidade ) as UF,
(select area from areas_atuacao where areas_Atuacao.cod_area_atuacao = C.Cod_area_atuacao ) as Area_Atuacao,
(select TIPO_AREA from TIPO_AREA where TIPO_AREA.cod_TIPO_area = C.Cod_TIPO_area) as TIPO_Area,
(select Classificacao from CLASSIF_RESIDUOS where CLASSIF_RESIDUOS.COD_Classificacao = C.COD_CLASSIF_RESIDUOS) as Classific_Resid,
(select min(FAR_mtr.DATA_COLETA) from FAR_MTR where FAR_MTR.COD_CLIENTE = C.COD_Cliente) as Primeira_COLETA ,
(select Max(FAR_MTR.DATA_COLETA) from FAR_MTR where FAR_MTR.COD_Cliente = C.COD_Cliente) as Ultima_COLETA,
(select Count(*) from FAR_MTR where FAR_MTR.COD_CLIENTE = C.COD_Cliente and far_mtr.baixado = 'N' ) as MTR_ABERTA,
(select Count(*) from FAR_MTR where FAR_MTR.COD_CLIENTE = C.COD_Cliente and far_mtr.cod_rota = :VarRota/*:VarRota_Atual*/) as MTR_ROTA

from Clientes c, rotas_cliente R, cidades cd, cidades_rota CR
where c.DELETADO = 'N'
and c.cod_cidade = cd.cod_cidade
and c.cod_cliente = r.cod_cliente
and CR.cod_rota = R.cod_rota_nome
and r.cod_rota_nome = :VarRota
and c.ativo = 'S'
order by CR.ordem
_________________
Zottis Sistemas(TeamFB Users) - 2016 AnoXIX
Programação Delphi/Uniface/Firebird/MySQL/Oracle

"Se quiser ir rápido, vá sozinho.
Se quiser ir longe, vá em grupo."
Provérbio Africano

imex · Enviada: Seg Abr 23, 2012 11:15 am Assunto:

Bom dia zottis,

Acho que você deveria ter criado um novo tópico sobre a sua questão em vez de postar dentro deste.
Voltando a questão, você quer ordenar o resultado por quais campos, e a que tabela pertencem estes campos?

zottis · Enviada: Seg Abr 23, 2012 12:52 pm Assunto:

foi mal, eu estava fazendo isso, mas criquei no botão antes do tempo
_________________
Zottis Sistemas(TeamFB Users) - 2016 AnoXIX
Programação Delphi/Uniface/Firebird/MySQL/Oracle

"Se quiser ir rápido, vá sozinho.
Se quiser ir longe, vá em grupo."
Provérbio Africano

zottis · Enviada: Seg Abr 23, 2012 12:53 pm Assunto:

pelo campo ordem da Tabela Cidades_Rota
_________________
Zottis Sistemas(TeamFB Users) - 2016 AnoXIX
Programação Delphi/Uniface/Firebird/MySQL/Oracle

"Se quiser ir rápido, vá sozinho.
Se quiser ir longe, vá em grupo."
Provérbio Africano

imex · Enviada: Seg Abr 23, 2012 2:30 pm Assunto:

Acho que deveria funcionar com o Order By da forma que você postou acima, se as ligações entre as tabelas estiverem corretas.
Está ocorrendo algum erro?
Ou simplesmente não está na ordem desejada?

zottis · Enviada: Seg Abr 23, 2012 3:08 pm Assunto:

Só sai na ordem errada
acho que teria que mexer no plan, mas não sei como
_________________
Zottis Sistemas(TeamFB Users) - 2016 AnoXIX
Programação Delphi/Uniface/Firebird/MySQL/Oracle

"Se quiser ir rápido, vá sozinho.
Se quiser ir longe, vá em grupo."
Provérbio Africano

imex · Enviada: Seg Abr 23, 2012 3:55 pm Assunto:

Acho que deveria funcionar como está.
Acho melhor você adicionar o campo CR.ordem na lista de campos do select para conferir o que está acontecendo.

Espero que ajude.

zottis · Enviada: Seg Abr 23, 2012 4:15 pm Assunto:

Oi, obrigado novamente, mas fiz isso, ele esta pegando o primeiro indice
de cada cidade

no CR.Ordem esta tudo como 1
_________________
Zottis Sistemas(TeamFB Users) - 2016 AnoXIX
Programação Delphi/Uniface/Firebird/MySQL/Oracle

"Se quiser ir rápido, vá sozinho.
Se quiser ir longe, vá em grupo."
Provérbio Africano

zottis · Enviada: Seg Abr 23, 2012 4:57 pm Assunto: [RESOLVIDO]

Resolvi assim:

select c.COD_CLIENTE, c.DATA_CAD, c.COD_EMPRESA, c.NOME_FANTASIA, c.RAZAO_SOCIAL,
c.NOME_MONTADO, c.COD_CIDADE, cd.cidade , c.COD_AREA_ATUACAO, c.COD_TIPO_AREA,
c.INICIO_CONTRATO, c.FINAL_CONTRATO, c.INTERVALO_COLETA, c.TIPO_BOMBONA, c.FORMA_PGTO,
c.VALOR_KILO, c.VALOR_KILO_EXCEDE, c.LIMITE_KILO, c.TAXA_RECOLHIMENTO, c.BOMBONA,
c.QTD_COLETAS, c.COD_CLASSIF_RESIDUOS, c.VALOR_MENSAL, c.COD_CLIENTE_EMPRESA, c.PROXIMA_COLETA,
c.SERASA, c.CENTRAL_COBRANCA, c.BLOQUEADO, c.INADIMPLENTE, c.COM_NOTA_FISCAL,
c.com_comodato, c.contrato_retornado, c.cod_master, c.COD_DESTINO,

(select Uf from Cidades where Cidades.Cod_cidade = C.Cod_cidade ) as UF,
(select area from areas_atuacao where areas_Atuacao.cod_area_atuacao = C.Cod_area_atuacao ) as Area_Atuacao,
(select TIPO_AREA from TIPO_AREA where TIPO_AREA.cod_TIPO_area = C.Cod_TIPO_area) as TIPO_Area,
(select Classificacao from CLASSIF_RESIDUOS where CLASSIF_RESIDUOS.COD_Classificacao = C.COD_CLASSIF_RESIDUOS) as Classific_Resid,
(select min(FAR_mtr.DATA_COLETA) from FAR_MTR where FAR_MTR.COD_CLIENTE = C.COD_Cliente) as Primeira_COLETA ,
(select Max(FAR_MTR.DATA_COLETA) from FAR_MTR where FAR_MTR.COD_Cliente = C.COD_Cliente) as Ultima_COLETA,
(select Count(*) from FAR_MTR where FAR_MTR.COD_CLIENTE = C.COD_Cliente and far_mtr.baixado = 'N' ) as MTR_ABERTA,
(select Count(*) from FAR_MTR where FAR_MTR.COD_CLIENTE = C.COD_Cliente and far_mtr.cod_rota = :VarRota/*:VarRota_Atual*/) as MTR_ROTA,

CR.ordem
from Clientes c, rotas_cliente R, cidades cd, cidades_rota CR
where c.DELETADO = 'N'
and c.cod_cidade = cd.cod_cidade
and c.cod_cliente = r.cod_cliente
and CR.cod_rota = R.cod_rota_nome
and CR.cod_cidade = C.cod_cidade <= aqui Coloquei mais este and
and r.cod_rota_nome = :VarRota
and c.ativo = 'S'
order by CR.ordem
_________________
Zottis Sistemas(TeamFB Users) - 2016 AnoXIX
Programação Delphi/Uniface/Firebird/MySQL/Oracle

"Se quiser ir rápido, vá sozinho.
Se quiser ir longe, vá em grupo."
Provérbio Africano