Quando eu crio índices através do DataBase Desktop, os arquivos tem a extensão NDX, e quando eu crio estes índices de dentro do programa, os índices são MDX.
Como fazer para que os índices de dentro do programa sejam NDX ?
Por exemplo :
A rotina abaixo irá criar um arquivo ARQTESTE.DBF e um arquivo ARQTESTE.MDX.
Eu gostaria que fossem criados os arquivos
ARQTESTE.DBF e os arquivos TESTE_01.NDX e TESTE_02.NDX
Pergunta
José Luiz
Quando eu crio índices através do DataBase Desktop, os arquivos tem a extensão NDX, e quando eu crio estes índices de dentro do programa, os índices são MDX.
Como fazer para que os índices de dentro do programa sejam NDX ?
Por exemplo :
A rotina abaixo irá criar um arquivo ARQTESTE.DBF e um arquivo ARQTESTE.MDX.
Eu gostaria que fossem criados os arquivos
ARQTESTE.DBF e os arquivos TESTE_01.NDX e TESTE_02.NDX
procedure TForm1.FormCreate(Sender: TObject);
var
NovaTabela : TTable ;
begin
NovaTabela := TTable.Create ( Form1 ) ;
With NovaTabela do
Begin
Active := False ;
TableName := 'ARQTESTE' ;
TableType := ttDBase ;
FieldDefs.Clear ;
FieldDefs.Add ( 'NOME' , ftString, 30, False );
FieldDefs.Add ( 'CPF' , ftString, 11, False );
FieldDefs.Add ( 'ENDERECO', ftString, 30, False );
FieldDefs.Add ( 'TELEFONE', ftString, 8, False );
IndexDefs.Clear ;
IndexDefs.Add ( 'TESTE_01', 'NOME', [] );
IndexDefs.Add ( 'TESTE_02', 'CPF' , [] );
CreateTable ;
end ;
end;
Obrigado.
Link para o comentário
Compartilhar em outros sites
1 resposta a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.