Овај водич садржи примере коришћења СКЛ -а са ВБА Аццессом. Као што ћете видети у наставку, за покретање СКЛ упита у програму Аццесс са ВБА можете користити било ДоЦмд.РунСКЛ или ЦуррентДб.Екецуте методе.
СКЛ Селецт
Овај пример ће користити израз СКЛ Селецт за отварање скупа записа:
Дим рс као сет записа рс = ЦуррентДб.ОпенРецордсет ("изаберите * из табеле1 где је број = 0", дбОпенДинасет)
Табела за ажурирање СКЛ -а
Ова линија ВБА кода користи методу ДоЦмд.РунСКЛ за ажурирање табеле:
ДоЦмд.РунСКЛ ("УПДАТЕ табле1 СЕТ нум = 0 вхере нум = 999")
Или можете користити .Екецуте метод објекта базе података:
ЦуррентДб.Екецуте "УПДАТЕ табле1 СЕТ нум = 0 вхере нум = 999"
СКЛ Алтер Табле
Ова линија ВБА кода користи ДоЦмд.РунСКЛ за промену табеле:
ДоЦмд.РунСКЛ ("АЛТЕР ТАБЛЕ Табле3 АДД ЦОЛОНН Плата новац")
Или помоћу .Екецуте методе објекта базе података:
ЦуррентДб.Екецуте "АЛТЕР ТАБЛЕ Табле3 АДД ЦОЛУМН Новац за зараду"
Дроп Табле
Ова линија ВБА кода користи ДоЦмд.РунСКЛ за промену табеле:
ДоЦмд.РунСКЛ ("ДРОП Табле Табле1")
Или помоћу .Екецуте методе објекта базе података:
ЦуррентДб.Екецуте "ДРОП Табле Табле1"
СКЛ Делете
Овај код користи ДоЦмд.РунСКЛ за брисање записа из табеле:
ДоЦмд.РунСКЛ ("ДЕЛЕТЕ ФРОМ табле1 вхере нум = 999")
Или помоћу .Екецуте методе објекта базе података:
ЦуррентДб.Екецуте "ДЕЛЕТЕ ФРОМ табле1 вхере нум = 999"
СКЛ Уметните у
Ова инстанца ДоЦмд.РунСКЛ уметне записе у табелу:
ДоЦмд.РунСКЛ ("ИНСЕРТ ИНТО Табле1 (ЛастНаме, доб, нум) ВАЛУЕС ('Л1',#01/01/2001#, 78)")
Или помоћу .Екецуте методе објекта базе података:
ЦуррентДб.Екецуте "ИНСЕРТ ИНТО Табле1 (ЛастНаме, доб, нум) ВАЛУЕС ('Л1',#01/01/2001#, 78)"
СКЛ Креирај табелу
Овај код ће створити табелу користећи СКЛ:
ЦуррентДб.Екецуте "ЦРЕАТЕ ТАБЛЕ Табле1 (КеиИД ЦОУНТЕР ЦОНСТРАИНТ ПримариКеи ПРИМАРИ КЕИ, Фиелд1 ТЕКСТ, Фиелд2 ТЕКСТ)"
Или помоћу .Екецуте методе објекта базе података:
ЦуррентДб.Екецуте "ЦРЕАТЕ ТАБЛЕ Табле1 (КеиИД ЦОУНТЕР ЦОНСТРАИНТ ПримариКеи ПРИМАРИ КЕИ, Фиелд1 ТЕКСТ, Фиелд2 ТЕКСТ)"
Цреате Индек
Ова линија ВБА кода користи ДоЦмд.РунСКЛ за промену табеле:
ДоЦмд.РунСКЛ ("ЦРЕАТЕ ИНДЕКС" & ИндекНаме & "ОН" & ТаблеНаме & "(" & Име колоне & ");")
Или помоћу .Екецуте методе објекта базе података:
ЦуррентДб.Екецуте "ЦРЕАТЕ ИНДЕКС" & ИндекНаме & "ОН" & ТаблеНаме & "(" & Име колоне & ");"
Дроп Индек
Ова линија ВБА кода користи ДоЦмд.РунСКЛ за промену табеле:
ДоЦмд.РунСКЛ "ИД ДРОП ИНДЕКС ОН ОН Табле1;"
Или помоћу .Екецуте методе објекта базе података:
ЦуррентДб.Екецуте "ДРОП ИНДЕКС ИД ОН Табле1;"
Креирајте базу података
Овај код ће створити базу података (без СКЛ -а):
Аццесс.ДБЕнгине.ЦреатеДабасебасе "ц: \ Темп \ тестДБ1.аццдб", ДБ_ЛАНГ_ГЕНЕРАЛ
СКЛ упити
Отворите упит
Помоћу ДоЦмд.ОпенКуери можете отворити сачувани упит:
ДоЦмд.ОпенКуери "кри_1", ацВиевНормал, ацЕдит
Извршите упит
ЦуррентДБ.Екецуте ће извршити упит:
ЦуррентДб.Екецуте "кри_1", дбФаилОнЕррор
Извезите упит у Екцел
ДоЦмд.ОутпутТо ће извести упит у Екцел:
ДоЦмд.ОутпутТо ацОутпутКуери, "Куери1", ацФорматКСЛС, "ц: \ темп \ ЕкпортедКуери.клс"