|
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
|
|
|
|
|
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ª
|
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 Rochª
|
|
|
|
Postada em 06/07/2005 12:17 hs
Tem como eu Indexar e deixar com cuplicação autorizada?
M A R C I O
|
|
|