Visual Basic - acces2000 y sus indices

Life is soft - evento anual de software empresarial
 
Vista:

acces2000 y sus indices

Publicado por jose (128 intervenciones) el 27/11/2002 02:54:01
Como se puede desde mi codigo de visual basic, crear o generar los indices de una
tabla de access.2000

algo asi.

open tabal1
if indiceprimario no existe
crearlo
endif

if indicesecundario1 no existe
crearlo
endif

if indicesecundario2 no existe
crearlo
endif
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:acces2000 y sus indices

Publicado por Fernando (166 intervenciones) el 27/11/2002 13:16:46
Aca te doy el código para que lo pegues en un formulario nuevo, y agregale dos botones llamados cmdCrearIndice, y cmdBorrarIndice, después cambia los nombres de base de datos, tabla, campo, e indice por los tuyos, y probalo que funciona, sobre las rutinas if, para ver si el indice existe, fijate vos como lo haces, podes recorrer la coleccion Indexes para ver si existe por ejemplo....
El código es:

Dim dbs As Database
Dim Indice As Index
Dim Tabla As TableDef

Private Sub cmdBorrarIndice_Click()
Tabla.Indexes.Delete "Nombre Del Indice"
End Sub

Private Sub cmdCrearIndice_Click()
Indice.Fields.Append Indice.CreateField("Nombre del Campo", dbText, 1) 'Nombre del campo al que le aplicaras el indice '*
Tabla.Indexes.Append Indice
End Sub

Private Sub Form_Load()
Set dbs = DBEngine.OpenDatabase("C:\Windows\Escritorio\Nombre de tu Base.mdb")
Set Tabla = dbs.TableDefs("Mi Tabla")
Set Indice = Tabla.CreateIndex("Nombre del Indice")
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar