Ei... tem como fazer isso no ADSQuery ao inves de table ?
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
----- Original Message -----
From: Alfeu Marcatto
To: [EMAIL PROTECTED]
Sent: Tuesday, October 26, 2004 1:23 PM
Subject: Re: [delphi-br] DBF x Performance (com ADS) Como melhorar ?
Marcelo Silva wrote:
> Ja me disseram para criar indices.. mas não manjo muito em criar
> indices no DBF com ADS e não posso ficar mexendo na base visto que não
> foi eu quem criou.
>
> Se alguém tiver algumas de como melhorar a performance em DBF ficarei
> grato ...
>
Veja este exemplo. A velocidade é a mesma no Clipper ou Delphi
Se você já tem a tabela em DBF basta usar o AddIndexDef como abaixo.
// Cria Table
Assembleias := TAdsTable.Create(Self);
DSAssembleias.DataSet := Assembleias;
DBCarta.DataField := 'CARTA';
with Assembleias do
begin
If Assembleias.Active then Assembleias.Close;
TableName := 'Assembleias';
DatabaseName := sTempDirectory;
If Assembleias.Exists then Assembleias.DeleteTable;
TableType := ttAdsNTX;
FieldDefs.Clear;
FieldDefs.Add('CD_CON_APT', ftString, 04, False);
FieldDefs.Add('CD_BLC_APT', ftString, 06, False);
FieldDefs.Add('CD_APARTAM', ftString, 04, False);
FieldDefs.Add('CONDICAO', ftString, 1, False);
FieldDefs.Add('CORREIO', ftBoolean);
FieldDefs.Add('CORSIMPREG', ftString, 1, False);
FieldDefs.Add('NOME', ftString, 35, False);
FieldDefs.Add('AOSCUI', ftString, 35, False);
FieldDefs.Add('ENDER', ftString, 40, False);
FieldDefs.Add('CIDADE', ftString, 20, False);
FieldDefs.Add('ESTADO', ftString, 2, False);
FieldDefs.Add('CEP', ftString, 9, False);
FieldDefs.Add('CARTA', ftMemo, 10, False);
with IndexDefs do begin
Clear;
with AddIndexDef do begin
Name := 'Assemb_1';
Fields := 'CD_CON_APT + CD_BLC_APT + CD_APARTAM';
Options := [ixCaseInsensitive];
end;
end;
CreateTable;
Open;
end;
Alfeu
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
