افزودن یک ایندکس

براي فعال كردن يه Index در يك جدول بايد از متدAppend استفاده كنيم.

Dim DB As DataBase
Dim NewIndex As New Index
 Set DB = OpenDataBase ("DataBaseAddress.mdb")
 NewIndex.Name = "IndexName"
 NewIndex.Fields = "FieldName"
 NewIndex.Uniqe = False
 DB.TableDefs ("TableName").Indexes.Append NewIndex
MsgBox "ايندكس فعال شد." , vbInformation , "پيام"
DB.Close  DataBaseName.mdb: نام بانك اطلاعاتي هستش

IndexName: نام Index ما هستش كه قرار در مجموعه Indexes (ايندكس هاي جدول) اضافه بشه

FieldName: ايندكس رو برحسب اون فيلد مورد نظر مي سازه.

NewIndex.Uniqe = False: باعث ميشه تا از ورود داده هاي تكراري تويه ايندكس جلوگيري بشه

در خطي كه متد Append نوشته شده NewIndex (همون متغير بالايي) رو به جدول 
(TableName) از بانك اطلاعاتي (DataBaseName.mdb) اضافه مي كنه.
						

من تويه پست مفهوم Index گفتم كه ميشه از چندين ايندكس در جدول استفاده كرد. ولي تويه نكته گفتم كه يكبار ميشه ايندكس ساخت. چرا؟
منظور اين هستش كه اگر ما ايندكسي رو قبلاً ساخته باشيم ديگه نمي تونيم همون ايندكس رو دوباره بسازيم و دوباره ازش استفاده كنيم چون سيستم Error مي ده. چاره چيه؟ بايد قبل از اجراي برنامه اون ايندكس رو فعال كنيم. براي فعال كردن يك ايندكس بايد از خاصيت استفاده كنيم.

Dim DB As DataBase
Dim RS As Recordset
 Set DB = OpenDataBase ("DataBaseName.mdb")
 Set Rs = OpenRecordst ("TableName")
Rs.Index = "IndexName")

DataBaseName.mdb: نام بانك اطلاعاتي هستش.
TableName: نام جدول بانك اطلاعاتي هستش.
Index: خاصيتي هستش كه ما از اون براي فعال سازي ايندكسي كه استفاده مي كنيم.
IndexName: ايندكسي هستش كه ما قبلاً اون رو ايجاد كرديم.