como criar um secundario index

Delphi

12/08/2005

strsql:=strsql+´(burro AutoInc, datavenda DATE,codigo CHARACTER(45),descricao CHARACTER(45),variacao CHARACTER(5),quantidade INTEGER,tiporeceita CHARACTER(1),´;
strsql:=strsql+´medico CHARACTER(50),nvisitas NUMERIC(15,2),nvisitasobj NUMERIC(15,2),objetivorec NUMERIC(15,2),varvisita NUMERIC(15,2),divulgadora CHARACTER(30),totalrec NUMERIC(15,2),Primary Key (burro))´;


estou criando essa tabela via SQL, como faço par criar um secundario index?


Rjcerri

Rjcerri

Curtidas 0

Respostas

Rjcerri

Rjcerri

12/08/2005

esqueci de falar que não quero fazer isso via database desktop.


GOSTEI 0
Sistemald

Sistemald

12/08/2005

Olhe talves esse programa lhe ajude

http://www.donato.inf.br/Download/Parapas.rar

ele examina tabelas e lhe da o codigo fonte para criação da mesma.


GOSTEI 0
Rjcerri

Rjcerri

12/08/2005

ele vai me mostrar isso em sql?


GOSTEI 0
Sistemald

Sistemald

12/08/2005

ex.:

  with TTable.Create(Application) do
  begin
    Active := false;
    DatabaseName := Directory;
    TableName := ´COMPRAPRODUTO.DB´;
    TableType := ttParadox;

    With FieldDefs do
    Begin
      Clear;
      Add(´CodigoA´, ftAutoInc, 0, False);
      Add(´CodigoGeral´, ftInteger, 0, False);
      Add(´Codigo´, ftInteger, 0, False);
      Add(´Nome´, ftString, 50, False);
      Add(´Quantidade´, ftString, 8, False);
      Add(´Valor´, ftCurrency, 0, False);
      Add(´Saldo´, ftCurrency, 0, False);
      Add(´ValorOri´, ftCurrency, 0, False);
      Add(´Observacao´, ftString, 100, False);
    End;

    With IndexDefs do
    Begin
      Clear;
      Add(´´, ´CodigoA´, [ixPrimary,ixUnique]);
      Add(´IND_VALOR´, ´Valor´, [ixCaseInsensitive]);
      Add(´IND_SALDO´, ´Saldo´, [ixCaseInsensitive]);
      Add(´IND_QUANTIDADE´, ´Quantidade´, [ixCaseInsensitive]);
      Add(´IND_NOME´, ´Nome´, [ixCaseInsensitive]);
      Add(´IND_CODIGOGERAL´, ´CodigoGeral´, [ixCaseInsensitive]);
      Add(´IND_CODIGO´, ´Codigo´, [ixCaseInsensitive]);
    End;

    CreateTable;

  End;


é este código que ele irar gerar.

Qual o banco de dados vc está usando?


GOSTEI 0
Rjcerri

Rjcerri

12/08/2005

baixei o programa Parapas.rar mas ele não abre!


GOSTEI 0
Sistemald

Sistemald

12/08/2005

Você precisa do Winrar para descompactar


GOSTEI 0
Sistemald

Sistemald

12/08/2005

Você pode baixar um Trial no seguinte endereço:

http://www.rarlab.com/rar/wrar350.exe


GOSTEI 0
POSTAR