Verificar o tamanho do DB

Esta consulta tras o tamnho do DB, esparço usado e livre.

select round(sum(used.bytes) / 1024 / 1024 / 1024) || ' GB' "Database Size",
round(sum(used.bytes) / 1024 / 1024 / 1024) -
round(free.p / 1024 / 1024 / 1024) || ' GB' "Used space",
round(free.p / 1024 / 1024 / 1024) || ' GB' "Free space"
from (select bytes
from v$datafile
union all
select bytes
from v$tempfile
union all
select bytes from v$log) used,
(select sum(bytes) as p from dba_free_space) free
group by free.p

Como usar o Crystal Reports XI como o Delphi 2009

Primeiro instale o componente Crystal ActiveX Report View Library 11.0 através da opção Import Component do menu Component







Será acrescentada a paleta Crystal na barra de componentes como segue.


Executando um relatório .crp a partir de uma aplicação.
Em uma nova aplicação acrescente um botão a um formulário e no seu evento de clique adicione o seguinte código:

Uses OleCtrls, CrystalActiveXReportViewerLib11_TLB;
…
procedure TForm1.Button2Click(Sender: TObject);
var
cry: TCrystalActiveXReportViewer;
oRpt, oApp: variant;
i: integer;
frm: TForm;
begin
// criação do objeto e identificação do arquivo .rpt a ser executado
cry := TCrystalActiveXReportViewer.Create(Self);
oApp := CreateOleObject('CrystalRuntime.Application');
oRpt := oApp.OpenReport('K:\Copia\rel\comissao.rpt', 1);
// passando o usuario e a senha do bando de dados para o relatório
for i := 1 to oRpt.Database.Tables.Count do begin
oRpt.Database.Tables[i].ConnectionProperties.Item['User ID'] := 'usuarioDoBancoDeDados';
oRpt.Database.Tables[i].ConnectionProperties.Item['Password'] := 'senhaDoBancoDeDados';
end;
// exemplo de passagem de parâmetros do tipo data e texto
oRpt.ParameterFields.GetItemByName('data1', '').AddCurrentValue(StrToDateTime( '01/04/2006 15:15:22' ));
oRpt.ParameterFields.GetItemByName('data2', '').AddCurrentValue(StrToDateTime( '05/04/2006 15:15:22' ));
oRpt.ParameterFields.GetItemByName('usuario', '').AddCurrentValue('Francisco Soares');

// criando o formulario que exibirá o relatório
frm := TForm.Create(Self);
try
cry.Parent := frm;
cry.Align := alClient;
cry.ReportSource := oRpt;
cry.ViewReport;
frm.Position := poOwnerFormCenter;
frm.ShowModal;
finally
FreeAndNil(frm);
end;
end;


Espero ter colaborado com esse exemplo. Qualquer dúvida sobre o assunto pode enviá-las que se eu souber eu as repoderei.

Strings de conexão com banco de dados

Deivid Roger Oliveira Santos escreveu vários exemplos de Strings de Conecxões com os banco de dados mais usados atualmente. Sugiro como consulta.

http://www.linhadecodigo.com.br/ArtigoImpressao.aspx?id=1640

Manipulação de datas

Delphi
1. Verifica se o ano é bissexto

function IsThisLeapYear: Boolean;
begin
Result := IsLeapYear(YearOf(Date));
end;

Oracle

• SYSDATE - retorna a data e a hora atual do banco de dados
  
  
  SELECT SYSDATE FROM dual;
  
  SYSDATE
  
  ---------------------
  
  30/07/2009 12:00:00



• ADD_MONTHS - somando meses ou subtraindo meses
  
  
  SELECT ADD_MONTHS(SYSDATE,1) FROM DUAL;
  
  
  ADD_MONTHS(SYSDATE,1)
  
  --------------------
  
  30/08/2009 12:00:00



• LAST_DAY - último dia do mês da data passada como parâmetro
  
  
  SELECT LAST_DAY(sysdate) FROM dual;
  
  
  LAST_DAY(SYSDATE)
  
  -----------------
  
  30/04/2009 10:17:00



• NEXT_DAY - próximo dia da semana
  
  
  SELECT SYSDATE, NEXT_DAY(SYSDATE,7) FROM dual;
  
  
  SYSDATE     NEXT_DAY(SYSDATE,7)
  
  ----------- -------------------
  
  06/04/2009  11/04/2009



• MONTHS_BETWEEN - número de meses que existem entre duas datas
  
  
  SELECT MONTHS_BETWEEN(ADD_MONTHS(SYSDATE,5),SYSDATE) FROM DUAL;
  
  
  MONTHS_BETWEEN(ADD_MONTHS(SYSDATE)
  
  ------------------------------
  
  5

Exemplos de CSS para formatar tabelas

Se você precisar formatar uma tabela e não tiver tempo para criar um modelo legal. Nesse site há vários modelos.

http://icant.co.uk/csstablegallery/index.php?css=84#r84

Formatar data no MS SQL Server

Exemplos de como formatar data direto na sentença SQL

SELECT CONVERT (VARCHAR, campo_tipo_data, 3) FROM nome_tabela
--> DD/MM/YY

SELECT CONVERT (VARCHAR, campo_tipo_data, 1) FROM nome_tabela
--> MM/DD/YYYY

SELECT CONVERT (VARCHAR, campo_tipo_data, 103) FROM nome_tabela
--> DD/MM/YYYY

SELECT CONVERT (VARCHAR, campo_tipo_data, 101) FROM nome_tabela
--> MM/DD/YYYY

Espero que seja útil.

Evitando erros de TNS

Dicas práticas para configurar o Oracle

http://profissionaloracle.com.br/blogs/rodrigoalmeida/tag/sqlnetora/

Visualizar JOBS no Oracle

Para visualizar os jobs pode-se utilizar a query abaixo:

SELECT JOB,
SUBSTR(WHAT,1,35),
NEXT_DATE,
NEXT_SEC,
BROKEN
FROM DBA_JOBS;


JOB SUBSTR(WHAT,1,35) NEXT_DATE NEXT_SEC B
---------- ----------------------------------- --------- -------- -
1 DBA.TESTE_001; 21-MAR-03 17:04:02 N
2 DBA.TESTE_002; 21-MAR-03 17:28:13 N
3 DBA.TESTE_003; 21-MAR-03 17:02:37 N
4 DBA.TESTE_004; 26-MAR-03 08:00:00 N

Instalando jCompany

O jCompany Community é distribuído em suas releases através de uma arquivo compactado com todo o seu código fonte e documentação disponível. Dessa forma, será necessária a geração do jars dos projetos jCompany para que as aplicações criadas com o produtos rodem sem problemas. O primeiro passo é descompactar o arquivo jcompany-community.zip no diretório desejado, Ex: “C:\caminho\jcompany”.

O próximo passo é a importação dos projetos no Eclipse. Através da ferramenta de importação do Eclipse, é necessário importar todos os projetos a partir do diretório que foi descompactado o zip do jCompany Community. Alguns dos projetos virão inicialmente com problemas de compilação até que façamos o primeiro deploy e as dependências sejam baixadas pelo maven para que o classpath esteja completo e a aplicação não apresente mais erros.

Para facilitar o processo de build do jCompany, sugerimos também a configuração de variáveis no Eclipse.

No Eclipse, abra o menu “Window/ Preferences/ General/ Workspace/ Linked Resources” e adicione a entrada: JCOMPANY_POM= C:\caminho\jcompany\pom.xml Com isso o ambiente está completamente configurado para gerarmos os binários do jCompany Community. Clique sobre o arquivo “jcompany_utils/pom.xml”. Execute a tarefa “Run/ External Tools/ Open External Tool Dialog/ Program/ ‘Install jCompany’ ”. Assim, as tarefas maven serão executadas para a compilação, empacotamento e distribuição. Todas as dependências do jCompany Community serão baixadas dos diversos repositórios remotos do maven e serão colocadas no repositório local. Esse processo pode demorar alguns minutos para ser executado, visto que serão baixados aproximadamente 50 MB em artefatos open-source que são matéria prima do jCompany Community.

Após a finalização da tarefa de instalação, caso os projetos no workspace do Eclipse ainda estiverem com problemas de compilação, é recomendável que se selecione todos os projetos e se execute a tarefa de limpeza, no menu “Project /Clean”. Algumas vezes a tarefa de Clean não faz um Re-Build nos projetos, logo a tarefa deve ser feita algumas vezes até se conseguir êxito em solucionar os problemas de compilação de todos os projetos.

Para um melhor aproveitamento e aprendizado das tags JSF existentes no jCompany Community, existe um arquivo de snippets para ajudar na edição de JSP’s. Na view “Snippets”, clique com o botão direito do mouse e depois em “Customize” e faça a importação do arquivo que se encontra em “jcompany_utils/snippets/snippets.xml”.

Diminuir o arquivo de log do banco de dados no MS SQL Server 2000

Diminuir o arquivo de log do banco de dados no MS SQL Server 2000

-- informações sobre um banco de dados
SP_HELPDB [nome_banco_de_dados]
-- estatísticas de uso do espaço do log de transações para todos os bancos de dados
DBCC SQLPERF (LOGSPACE)
-- grava os dados no disco
CHECKPOINT
-- cria uma copia do banco
BACKUP LOG [nome_banco_de_dados] WITH TRUNCATE_ONLY
-- compacta o arquivo de log do banco de dados
DBCC SHRINKFILE ('nome_banco_de_dados_Log', 1000)
-- informações sobre um banco de dados
SP_HELPDB [nome_banco_de_dados]

ORA-00979: not a GROUP BY expression em Delphi

Se um dia você acordar e sua aplicação estiver mostrando a sequinte mensagem ao executar consultas de agrupamento. Altere a propriedade CursorLocation do componete que esta execultado a consulta de clUseClient para clUseServer save a aplicação e volte para clUseClient, pronto tudo voltara ao funcionar. Porque isso acontece eu não, sei se alquem souber nos ajude, mas isso vai resolver.