Како добити приступ у ВБА упитима за попис таблица у бази података

Аутор: Robert Simon
Датум Стварања: 19 Јуни 2021
Ажурирати Датум: 1 Новембар 2024
Anonim
Как я взломала сайт знакомств
Видео: Как я взломала сайт знакомств

Садржај

Мицрософт Аццесс је систем за управљање базом података који омогућава корисницима да креирају сопствене базе података, извештаје и обрасце. Аццесс садржи све градивне елементе за развој малих апликација. Можете креирати табеле података, похрањене процедуре, функције и макрое, као и обрасце и извјештаје. Све ове компоненте имају сопствене показиваче или дефиниције снимљених у скривеној системској табели. Аццесс води евиденцију сваке табеле, извештаја, обрасца итд. које креирате, а такође чува податке као што су датум креирања или ажурирања и системске заставице.


Упутства

Аццесс чува информације о структури базе података у табели МСисОбјецтс (слика за складиштење података Кир од Фотолиа.цом)

    Добијам листу табела

  1. Креирајте упит који покреће СКЛ наредбу испод. Овај упит приказује листу свих табела у тренутној Аццесс бази података. Клаузула "вхере" која користи број 1 служи да означи да желимо само наведене табеле.

    СЕЛЕЦТ МСисОбјецтс.Наме, МСисОбјецтс.ДатеЦреате, МСисОбјецтс.ДатеУпдате, МСисОбјецтс.Типе, МСисОбјецтс.Флагс из МСисОбјецтс ВХЕРЕ МСисОбјецтс.Типе = 1

  2. Вратите не-систематски упит табеле у базу података, са примером испод:

    СЕЛЕЦТ МСисОбјецтс.Наме, МСисОбјецтс.ДатеЦреате, МСисОбјецтс.ДатеУпдате, МСисОбјецтс.Типе, МСисОбјецтс.

  3. Унесите листу скривених табела базе података тако што ћете извршити упит испод:


    СЕЛЕЦТ МСисОбјецтс.Наме, МСисОбјецтс.ДатеЦреате, МСисОбјецтс.ДатеУпдате, МСисОбјецтс.Типе, МСисОбјецтс.

  4. Сортирајте листу не-скривених, несистемских табела користећи следећи СКЛ код:

    СЕЛЕЦТ МСисОбјецтс.Наме, МСисОбјецтс.ДатеЦреате, МСисОбјецтс.ДатеУпдате, МСисОбјецтс.Типе, МСисОбјецтс. ОРДЕР БИ МСисОбјецтс.Наме

    Користите листу табела у ВБА

  1. Учитајте листу табела у објекат записа, користећи ВБА код испод:

    Дим рсМиТаблес Ас ДАО.Рецордсет Сет рсМиТаблес = ЦуррентДб.ОпенРецордсет ("МиКуери")

  2. Помичите се кроз сваки запис довршеног упита.

    Дим рсМиТаблес Ас ДАО.Рецордсет Сет рсМиТаблес = ЦуррентДб.ОпенРецордсет ("МиКуери")

    До Вхиле Нот рсМиТаблес.ЕОФ 'Код за манипулацију подацима

    рсМиТаблес.МовеНект Лооп

  3. Додајте име свакој табели за листу тако што ћете изменити његову петљу:

    Дим рсМиТаблес Ас ДАО.Рецордсет Сет рсМиТаблес = ЦуррентДб.ОпенРецордсет ("МиКуери") Ме.цмбМиЦомбоБок.Цлеар


    До вхиле Нот рсМиТаблес.ЕОФ Ме.цмбМиЦомбоБок.АддИтем рсМиТаблес! [Наме]

    рсМиТаблес.МовеНект Лооп

  4. Затворите објект регистра да бисте ослободили меморију коју користи:

    Дим рсМиТаблес Ас ДАО.Рецордсет Сет рсМиТаблес = ЦуррентДб.ОпенРецордсет ("МиКуери") Ме.цмбМиЦомбоБок.Цлеар

    До вхиле Нот рсМиТаблес.ЕОФ Ме.цмбМиЦомбоБок.АддИтем рсМиТаблес! [Наме]

    рсМиТаблес.МовеНект Лооп

    рсМиТаблес.Цлосе Сет рсМиТаблес = Ништа

Како

  • Макрои који су направљени у Висуал Басиц за апликације (ВБА), који је програмски језик Мицрософт Оффице Стандард.
  • Можете да наведете било који од ових објеката у Аццессу променом филтера "МСисОбјецт.Типе". Опције за ову вредност наведене су у наставку:
  • Табела = 1
  • Упит = 5
  • Повезана табела = 4, 6 или 8
  • Форм = -32768
  • Репорт = -32764
  • Модуле = -32761