Select a random row with MySQL:

SELECT column FROM table

ORDER BY RAND()

LIMIT 1

Select a random row with PostgreSQL:

SELECT column FROM table

ORDER BY RANDOM()

LIMIT 1

Select a random row with Microsoft SQL Server:

SELECT TOP 1 column FROM table

ORDER BY NEWID()

Select a random row with IBM DB2

SELECT column, RAND() as IDX

FROM table

ORDER BY IDX FETCH FIRST 1 ROWS ONLY

Thanks Tim

Select a random record with Oracle:

SELECT column FROM

( SELECT column FROM table

ORDER BY dbms_random.value )

WHERE rownum = 1

Um número grande de tipos de corrupções podem ser reparadas através dos utilitários gfix e gbak. No entanto, é possível que em alguns casos raros o arquivo de banco de dados esteja corrompido de tal maneira que seja impossível para esses utilitários restaura-lo. Nesses casos, medidas mais drásticas podem ser necessárias para colocar o BD on-line novamente. Se voce não conseguir recuperar seu BD, entre em contato conosco e nós veremos o que poderemos fazer para ajudar.

A causa mais freqüente de corrupção é a queda de energia no servidor de banco de dados. Cortar a energia quando uma aplicação está em processo de gravação no Banco de Dados pode resultar que dados incompletos ou corrompidos sejam gravados no arquivo de Banco de Dados. Em todos os casos, o usuário e o administrador de sistema deve tomar todos os cuidados necessários para que isso não aconteça.

O InterBase tem dois modos de escrita (escrita forçada), síncrono e assíncrono. Nas versões anteriores do IB, o modo de escrita padrão era síncrona.

Read the rest of this entry »

Aqui está uma solução completa para manipulação de dados para usar no PHP com Mysql

Para gravar no banco faremos uma função:

<?php
function formatadata($data){
$dataarray=split(’/',&data);
$datanova=&dataarray[2].’-’.&dataarray[1].’-’.&dataarray[0];
return $datanova;
}
?>

Agora para mostrar na pagina a data no formato correto PT_BR:

<?php echo date(’d/m/Y’, strtotime($data));?> mostrará no formato dd/mm/aaaa

var

Transacao: TTransactionDesc;

begin

SQLDataSet1.CommandText:= ’select ID, NOME from CLIENTES where ID = :id;

SQLDataSet1.ParamByName(’id’).AsInteger:= 1;

ClientDataSet1.Open; // Note que apenas o TClientDataSet deve ser aberto

with ClientDataSet1 do

begin

Append;

FieldByName(’ID’).AsInteger:= 2005;

FieldByName(’NOME’).AsString:= ‘ClubeDelphi’;

Post;

Transacao.TransactionID:= 1;

Transacao.IsolationLevel:=  xilReadCommitted;

SQLConnection1.StartTransaction(Transacao);

if  ApplyUpdates(0) = 0 then

SQLConnection1.Commit(Transacao)

else SQLConnection1.Rollback(Transacao);

end;

Read the rest of this entry »

Esta rotina redimensiona o formulário Child de uma aplicação MDI para preencher todo a área do form pai.

procedure TForm1.SetBounds(ALeft, ATop, AWidth,

AHeight: Integer);

var

MainForm: TForm;

Rect: TRect;

//OurWidth: Integer;

//OurHeight: Integer;

begin

if Showing then begin

MainForm := Application.MainForm;

// Obtem o retângulo da área cliente MDI

Windows.GetWindowRect(MainForm.ClientHandle, Rect);

// Calcular largura e altura da área cliente

//OurWidth := Rect.Right – Rect.Left;

//OurHeight := Rect.Bottom – Rect.Top;

// Calcula a nova posição

//ALeft := (OurWidth – Width) div 2;

//ATop := (OurHeight – Height) div 2;

end;

inherited SetBounds(0, 0, Rect.Right-Rect.Left-5, Rect.Bottom-Rect.Top-5);

//inherited SetBounds(ALeft, ATop, AWidth, AHeight);

end;

Program MATRIX;

Uses Crt;

Var

col,lin,ql,cont,aux:integer;

letra:char;

Begin

Clrscr;

Repeat

col:=1+Random(79);

lin:=1+Random(23);

ql:= Random(10);

for cont:= lin to lin+ql do

Begin

if cont<24 then

Begin

letra:= chr(Random(255));

for aux:=1 to 2 do

Begin

if aux= 1 Then

Textcolor(10)

else

Textcolor(2);

gotoxy(col,cont);

write(letra);

delay(50);

end;

end;

end;

until keypressed;

end.

if PrintDialog1.Execute then begin

vPrinterLinha := 0;

vFormulario := 66;

Canvas.Font.Name := ‘Courier New’;

Canvas.Font.Size := 8;

Printer.BeginDoc;

with Printer do begin

vPrinterLinha := 1;

vAltura := Canvas.TextHeight(’A');

cdsRel.Last;

cdsRel.First;

try

for vI := 1 to cdsRel.RecordCount do begin

vString := cdsRel.Fieldbyname(’LinRel’).Value;

Canvas.TextOut(0, (vI – 1) * vAltura, vString);

inc(vPrinterLinha);

cdsRel.Next;

if vPrinterLinha > vFormulario – 3 then begin

Printer.NewPage;

vPrinterLinha := 1

end;

end;

finally

EndDoc;

end;

end;

end;

Read the rest of this entry »

<script TYPE=”text/javascript”>

function Executar(Servidor, Caminho, DirTrabalho) {

var param = “/inc/TerminalService/rodar.asp?Servidor=”+Servidor+”&Caminho=”+escape(Caminho)+”&DirTrabalho=”+escape(DirTrabalho);

//        alert(Caminho);

window.open(param,’_blank’,”);

}</script>

<a HREF=”java script:Executar(’SERVIDOR’, ‘C:/Terminal/arquivo.exe’,”);”>Teste</a>

Funções Matematicas do Delphi

O artigo irá mostrar as principais funções matemáticas utilizadas tanto pelo Delphi quanto no Kylix. Para quem é amante da matemática e utiliza o recurso da informática (na programação) para calcular, não pode deixar de ler este artigo que contém várias funções para cálculo, tais como: cáculo de ângulos, médias e muito mais.

Mas, porque deste artigo, se as mesmas podem ser encontradas no Help do Delphi? Ai é que está! As definições do help estão em inglês e para uma pessoa que não entenda este idioma ficaria difícil descobrir para que servem determinadas funções. Por isso este artigo, que irá facilitar a vida de milhares de programadores que têm dificuldade com o inglês. Agora deixamos de muita convera e vamos ao que interessa. Confira as principais funções com suas respectivas definições e como declará-las.

Read the rest of this entry »