USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Indexar um Campo de uma tabela Acces via VB
M A R C I O
SÃO BERNARDO
SP - BRASIL
ENUNCIADA !
Postada em 05/07/2005 16:35 hs            
Ola, Gostaria de saber como eu faço pra Indexar um campo na minha base de dados access pelo proprio vb, essa base de dados ja esta em muitos clientes e não tem como eu pedir pra todos me enviar de volta pra que eu possa alterar, eu queria que na hora que o sistema carregasse ele verificava se o campo esta indexado, se não estiver ai ele modifica a base, indexando esse campo.
 
Eu não sei se isso é possivel, mais se for e alguem puder me ajudar desde ja agradeço
 
Obrigado

M A R C I O
   
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 06/07/2005 08:44 hs         
O comando SQL para o que vc quer fazer é:
Alter Table NomeDaTabela Add constraint NomeRestrito Primary Key (ColunaASerIndexada)
     
Rochª
Pontos: 2843 Pontos: 2843 Pontos: 2843
RIO DE JANEIRO
RJ - BRASIL
Postada em 06/07/2005 10:39 hs            
Se voce estiver usando DAO e nao quizer usar o comando SQL pode ser assim tambem.
' x-x-x-x-x-x-x-x-x-x-x-x-x-x-x
'
' A Tabela em questao devera ser fechada e posteriormente aberta com
' a nova chave "CHAVE_TEMP"
' Exemplo :
'   eof_movimento = FECHA_ARQUIVO(Tbl_movimento)
'   Lixo = CRIA_INDEX(Arq_Pclancamento, "movimentacao", "cliente")
'   Set Tbl_movimento = Arq_Pclancamento.OpenTable("movimentacao")
'   Tbl_movimento.Index = "Chave_temp"
'   Tbl_movimento.LockEdits = False
'
' x-x-x-x-x-x-x-x-x-x-x-x-x-x-x
' Funcao para criar chave
Function CRIA_INDEX(arq_aux As Database, nome_arquivo, nome_campo) As Integer
Dim idx_new As New Index, Tbl_index_def As TableDef
   
    Set Tbl_index_def = arq_aux.TableDefs(nome_arquivo)
    Set idx_new = Tbl_index_def.CreateIndex("Chave_temp")
    idx_new.Primary = False
    idx_new.Name = "Chave_temp"
    idx_new.Fields = nome_campo
    Tbl_index_def.Indexes.Append idx_new
   
    CRIA_INDEX = True
End Function
 

__________________________________________________________________________
Qualquer coisa post
 
Emoções
Rochª
     
M A R C I O
SÃO BERNARDO
SP - BRASIL
ENUNCIADA !
Postada em 06/07/2005 12:17 hs            
Tem como eu Indexar e deixar com cuplicação autorizada?

M A R C I O
   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página