Olá.

Como faço para criar um index em <runtime>, no evento <Load> de um form, de forma que os dados de meu form sejam organizado pelos dados de um campo chamado <Recibo>?

A tabela chama-se <TabRecibo> e o campo chama-se <Rec_N>.

(Não quero alterar a base de dados, que já está no cliente e dá muito trabalho trazer de lá para inserir outro index). Tem jeito?

Chico.

Companheiro...

 

 

sera que se voce abrir o arquivo em modo exclusivo e mandar uma sql nao resolve

 

conexao.execute "create index....."

 

flw

t+

Paulo, essa é a idéia. O problema está em escrever o código para a criação do indice. No meu caso, o recordset já está aberto, quando o form é carregado na memória. Como deveria escrever o código para que fosse acrescentado (criado) um index tipo <Comprovante>, baseado na tabela <Recibo>, cujo campo a indexar fosse o campo <Rec_N>? Chico.

 

Bom dia Chico.Vc tem q criar o index logo após abrir a conexão ao banco de dados:

 

CONEXAO.EXECUTE "CREATE INDEX nome_index ON nome_tabela (nome_coluna)"

 

Depois do recordset aberto o máximo que vc pode fazer é uma ordenação.

 

No ADO, por exemplo vc pode usar o sort:

 

Rs.Sort = "Nome_Coluna" 'Ascendente

Rs.Sort = "Nome_Coluna DESC" 'Descendente

 

Qq dúvida é só postar.

 

at+

Bom dia, Ghost.

No seu exemplo, como faria com DAO? (utilizo o VB5 prof).

Na linha 'Conexão.Execute', seria uma variável? Qual o tipo dela? Ou seria o nome da tabela?

Usando ainda o seu exemplo:

"Create Index Rec on TabRecibo (Rec_N)" --- sendo Rec o nome do Index, TabRecibo o nome da tabela e Rec_N o nome do campo. Seria isso?

Obrigado. Chico.

Em DAO vc usa o database:

 

Dim Banco as Database

 

...

Banco.Execute SQL

 

Vc pode testar no próprio banco como está a SQL para verificar a criação do index.

 

Use uma sql no DAO para ordenar ao abrir a tabela:

 

Select campo from tabela Order by campo

 

at+