Преузми резултате упита у Аццесс користећи ВБА.
Знање како да прочитате резултате из Мицрософт Аццесс упита може вам помоћи да учините своју Аццесс апликацију динамичнијом. Аццесс је део Мицрософт Оффице пакета и користи се за креирање релационих база података. Висуал Басиц за апликације (ВБА) се може користити у Аццесс-у за креирање Виндовс апликација и преузимање података базе података. Упит се прави помоћу израза структурираног језика упита (СКЛ) за тражење информација из базе података.
Корак 1
Покрените Мицрософт Оффице Аццесс 2007 и изаберите „Празна база података“, а затим кликните на „Креирај“. Кликните на „Алатке за базу података“ и изаберите „Висуал Басиц“. Кликните на поље "Инсерт" и изаберите "Модуле".
Видео дана
Откуцајте „Привате суб реадКуериРесултс“ и притисните „Ентер“ да бисте креирали нови потпрограм.
Корак 2
Унесите следеће да бисте прогласили променљиве које ћете користити за читање резултата упита:
Дим РецордСт Ас Рецордсет Дим дБасе Ас Датабасе Дим стрингСКЛ Ас Стринг Дим рЦнт Ас Интегер
Корак 3
Унесите следеће да бисте креирали табелу "ЦитиТбл":
стрингСКЛ = "КРЕИРАЈ ТАБЕЛУ ЦитиТбл (Текст града(25), ТЕКСТ државе(25));" ДоЦмд. РунСКЛ (стрингСКЛ)
Корак 4
Унесите следеће да бисте додали два нова записа у табелу „ЦитиТбл“:
стрингСКЛ = "ИНСЕРТ ИНТО ЦитиТбл ([Град], [Држава] ) " стрингСКЛ = стрингСКЛ & "ВРЕДНОСТИ ('Форт Вортх', 'Текас');" ДоЦмд. СетВарнингс Фалсе ДоЦмд. РунСКЛ (стрингСКЛ)
стрингСКЛ = "ИНСЕРТ ИНТО ЦитиТбл ([Град], [Држава] ) " стрингСКЛ = стрингСКЛ & "ВАЛУЕС ('Далас', 'Текас');" ДоЦмд. СетВарнингс Фалсе ДоЦмд. РунСКЛ (стрингСКЛ)
Корак 5
Унесите следеће да дефинишете свој упит и отворите свој скуп података:
стрингСКЛ = "ИЗАБИР ЦитиТбл.* ИЗ ЦитиТбл;" Поставите РецордСт = дБасе. ОпенРецордсет (стрингСКЛ)
Корак 6
Унесите следеће да бисте креирали „За петљу“ и приказали резултате вашег упита у оквиру за поруку:
РецордСт. МовеФирст За рЦнт = 0 За РецордСт. РецордЦоунт МсгБок (РецордСт. Фиелдс("Град").Валуе & ", " & РецордСт. Фиелдс("Стате").Валуе) РецордСт. МовеНект Нект рЦнт
Притисните "Ф5" да извршите потпрограм.
