Դաս VBA

VBA-ի շնորհիվ Access բազայի ստեղծումը

Տվյալների բազա ստեղծելու համար պետք կառուցվածքի մեջ կտեղադրենք data օբյեկտը, որը կապ է հաստատում Microsoft Office Access տվյալների տիպի հետ և կկատարենք՝

  • Add-Ins
  • Visual Data Manager
  • Visual Data
  • File- New-Microsoft Office Access version 0.7
  • Select M. Access D.B. to crate, File name (բազայի անուն, ստեղծվում է mdb ֆորմատով բազա, որը դեռ դատարկ է և այնտեղ աղյուսակ չկա)։ Ստեղծել աղյուսակ Database window-New table

    Data օբյեկտ

    Հատկությունները՝

    • Database name - Կապ է հատատումօբյեկտի և բազայի միջև
    • Recordsourse - Ընտրվում է աղյուսակ
    • Refresh - Թարմացվում է օբյեկտի և բազայի մեջ
    • Exclusive - true (աղյուսակը դադարում է կապվել մյուսա ծրագրրերի հետ և պատկանում է միայն Data1 օբյեկտին։ Ընտրում ենք այն դեպքում երբ աղյուսակում կատարում ենք գլոբալ փոփոխույուններ, որի մեջ մյուս ծրագրերի միջամտույունը արգելվում է, իսկ ավարտելու դեպքում պետք է ընտրել false հրահանգը)
    • Read only - true (փոփոխականնորը չեն ֆիքսվում բազայում)
    • Add new - Ավելացնում է նոր գրառում
    • Record set - Գրառումների հավաքածու
    • CoFoction հատկություն - Արժեքներից մեկը add new է, որի դեպքում նոր գրառում է ավելանում

      • Movenext, MovePrevious

    • Հաջորդ գրառում
    • Նախորդ գրառում
    • Վերջին գրառում
    • Առաջին գրառում
    • Recondcount - է բնական թիվ, որը ցույց է տալիս ընթացիկ համարը
    • Cof - Ֆունկցիան ցույց է տալիս ֆայլի վերջը
    • Bof - Ֆայլի սկիզբը

      • If data.recondset cof=false and if data.recondset bof=false then…

      Այժմ կտեղադրենք սեղմակներ, որոնց շնորհիվ կարելի է ավելացնել և պակասացնել գրառումների թիվը։ Հարահանգները սեղմակների վրա տեղադրելու համար կգրենք հետևյալ ծրագրային կոդերը՝

      +

      Data1.recondset.addrev

      -

      Data1. Recondset.delete

      If not data. Recondset.cof then

      Data1. Recondsetmovenext

      Else

      Data. Recondsetmovelest

      End if

      End Sub