براي فعال كردن يه 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) اضافه مي كنه.
بازدیدها: 198
