(Resolvido) Índices no MySQL

[José Luiz]

Estou tentando utilizar o Banco de Dados MySQL ( InnoDB ), porém tenho algumas dúvidas.

Criei uma tabela de Clientes, que contém campos indexados por CODIGO, NOME, CEP e CPF.

Em um Form, coloquei um DBGrid, acessando a tabela como Table ( não como SQL ).

Como faço para trocar o índice corrente, clicando no Título como faço com o Paradox ?

No Paradox, coloco no onTitleClick

if Column.Field.DisplayName = 'CODIGO' then Table1.IndexFieldNames := 'CODIGO' ;

if Column.Field.DisplayName = 'NOME' then Table1.IndexFieldNames := 'NOME' ;

if Column.Field.DisplayName = 'CEP' then Table1.IndexFieldNames := 'CEP' ;

if Column.Field.DisplayName = 'CPF' then Table1.IndexFieldNames := 'CPF' ;

DBGrid1.SetFocus;

Com este procedimento simples, troco o índice que está sendo utilizado e permaneço no mesmo registro que estava anteriormente.

Não sei como alterar o índice no MySQL.

Obrigado,

José Luiz

[Jhonas]

Que componentes voce esta usando para acessar a tabela ?

[José Luiz]

Delphi 7 com Zeos, utilizando

TZConnection, TZTable e TDataSource.

Obrigado.

[Jhonas]

exemplo usando o ZTable:

procedure TForm1.Button1Click(Sender: TObject);
begin
   // o campo da tabela deve estar indexado
   ZTable1.IndexFieldNames := 'EMPRESA';
end;

se voce for usar o onTitleClick do DBgrid já é um pouco diferente, e o ideal seria usar o ZQuery

abraço

[José Luiz]

Coloquei 4 botões, com as seguintes instruções:

procedure TF_INICIO.BitBtn1Click(Sender: TObject);
begin
  pessoas.IndexFieldNames := 'id';
end;

procedure TF_INICIO.BitBtn2Click(Sender: TObject);
begin
  pessoas.IndexFieldNames := 'nome';
end;

procedure TF_INICIO.BitBtn3Click(Sender: TObject);
begin
  pessoas.IndexFieldNames := 'Endereco';
end;

procedure TF_INICIO.BitBtn4Click(Sender: TObject);
begin
  pessoas.IndexFieldNames := 'CEP';
end;

Quando clico nos botões não acontece nada.

Quando eu abro a tabela pessoas no MySQL, os índices abrem junto ( como no paradox ), ou existe outra forma de abrir os índices ?

Confirmei através do SQL-Front, e os índices existem.

Obrigado,

José Luiz.

[Jhonas]

Mais a noite farei um teste e posto o resultado ... ok ?

abraço

[Jhonas]

Leia esse texto e utilize o componente ZQuery

http://www.plugmasters.com.br/sys/materias...MySQL---Parte-I

http://www.plugmasters.com.br/sys/materias...ySQL---Parte-II

abraço

[José Luiz]

Jhonas, mais uma vez obrigado por seu interesse em ajudar.

O texto realmente esclareceu algumas dúvidas que eu tinha com relação aos índices, e confirmaram o que eu imaginava que ocorria com os índices utilizando a ZQuery.

Desde que o componente Zeus permite a utilização de ZTable, não deveria também utlilizar os índices nesta forma ?

É essa a resposta que eu gostaria.

Quando Clico no Componente ZTable, nas propriedades do Object Inspector aparece a Propriedade IndexFieldNames, mas não adianta colocar o índice, que no DBGrid, os dados não aparecem ordenados.

Desculpe se eu insisto, mas não gosto de trabalhar com comandos SQL. Só vou passar a utilizá-los, se realmente não houver outra opção disponível.

Novamente

Obrigado,

José Luiz.

[Jhonas]

José Luiz ... fazendo alguns testes o ZTable deve ser usando assim:

exemplo:

procedure TForm1.Button1Click(Sender: TObject);
begin
   ZTable1.IndexFieldNames := 'CODEXAME';  // campo da tabela
   ZTable1.SortedFields := 'CODEXAME';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   ZTable1.IndexFieldNames := 'EXAME';  // campo da tabela
   ZTable1.SortedFields := 'EXAME';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   ZTable1.IndexFieldNames := 'SETOR';  // campo da tabela
   ZTable1.SortedFields := 'SETOR';
end;

fazendo dessa maneira os campos são ordenados e indexados, facilitando a pesquisa

abraço

[José Luiz]

Perfeito.

Muito Obrigado,

Valeu mesmo.

Não é tão rápido como no Paradox que é instantâneo, mas resolveu a minha maior dificuldade para começar com o MySQL.

Abraços,

José Luiz.