Овај водич ће показати како се користи ВБА за отварање Аццесс базе података. Такође ће показати како да креирате пријаву за приступ бази података - проверавајући да ли корисничко име и лозинка постоје у табели тблУсерс базе података.
Опен Аццесс Датабасе
Ова ВБА функција ће отворити Аццесс Датабасе:
Јавна функција ОпенАццессДатабасе (стрДБПатх као низ) Ако није ИсНулл (стрДБПатх) Онда љуска "МСАЦЦЕСС.ЕКСЕ" "" & стрДБПатх & "" "", вбНормалФоцус Крајња функција
Функцију можете позвати овако:
Приватни под ОпенАццессДатабасе_Екампле () Позовите ОпенАццессДатабасе ("Ц: \ темп \ Датабасе1.аццдб") Крај Суб
Повежите се са Аццесс Датабасе
Алтернативно, можете користити овај код који ће створити нову инстанцу програма Аццесс, отворити базу података и доделити базу података променљивој дб:
Дим објАццесс Ас Аццесс.Апплицатион Дим дб Ас ДАО.Датабасе Сет објАццесс = Нев Аццесс.Апплицатион Сет дб = објАццесс.ДБЕнгине.ОпенДатабасе (стрДБПатх, Фалсе, Фалсе)
или користите ову функцију која садржи горњи код за отварање базе података за променљиву:
Јавна функција Цоннецт_То_АццессДБ (стрДБПатх Ас Стринг) Као ДАО.Датабасе Дим објАццесс Ас Аццесс.Апплицатион Дим дб Ас ДАО.Датабасе Сет објАццесс = Нев Аццесс.Апплицатион Сет дб = објАццесс.ДБЕнгине.ОпенДатабасе (стрДБПатх, ФалД_Бар, Фалсе_дон, фалсе) Завршна функција
Можете позвати функцију и ступити у интеракцију са базом података помоћу ове процедуре:
Привате Суб Цоннецт_То_АццессДБ_Екампле () Дим АццессДБ Као ДАО.Датабасе 'Пример за додељивање базе података променљивој Поставите АццессДБ = Цоннецт_То_АццессДБ ("ц: \ темп \ ТестДБ.аццдб") АццессДБ.Екецуте ("креирајте табелу тбл_тест3 (број, име , презиме цхар) ") 'Пример за додељивање затварања спољне базе података АццессДБ.Цлосе Сет АццессДБ = Нотхинг' Пример за брисање датотеке спољне базе података (.аццдб) 'Убијање (" ц: \ темп \ ТестДБ.аццдб ")' Пример да бисте затворили Аццесс 'ДоЦмд.Куит Енд Суб
Приступите пријави у базу података
Ова ВБА функција користи пријаву тако што провјерава унесено корисничко име и лозинку у таблици тблУсерс. Да би ова функција радила, мораћете да креирате табелу тблУсерс са пољима Лозинка и Корисничко име.
Јавна функција УсерЛогин (Корисничко име као низ, лозинка као низ) 'Проверите да ли корисник постоји у табели тблУсерс тренутне базе података. Дим ЦхецкИнЦуррентДатабасе Као Боолеан ЦхецкИнЦуррентДатабасе = Тачно Ако је Нз (корисничко име, "") = "" Тада МсгБок "Морате унети корисничко име.", ВбИнформатион Излаз Функција ОсталоИз Нз (Лозинка, "")) "" Затим МсгБок "Морате да унесете Пассворд " ), 0) = 0 Затим МсгБок "Неисправно корисничко име!", ВбЕкцламатион Излазна функција ОсталоАко Нз (Лозинка, "") Нз (ДЛоокуп ("Лозинка", "тблУсерс", "[Корисничко име] = '" & Нз (Корисничко име, " ") &" '")," ") Затим МсгБок" Неважећа лозинка! ", ВбЕкцламатион Излазна функција ЕлсеИф ДЦоунт (" Корисничко име "," тблУсерс "," [Корисничко име] =' "& Нз (Корисничко име," ") &" '")> 0 Затим Дим стрПВ Ас Стринг стрПВ = Нз (ДЛоокуп (" Пассворд "," тблУсерс "," [УсерНаме] =' "& Нз (УсерНаме," ") &" '")," ") Ако је Нз (Лозинка, "") = стрПВ Затим 'Поставите корисничко име и лозинку као глобалне променљиве ТемпВарс.Адд "ЦуррентУсерНаме", Нз (УсерНаме, "") ТемпВарс.Адд "Цур рентУсерПассворд ", Нз (Лозинка," ") МсгБок" Успешно пријављени ", вбЕкцламатион Крај ако крај Ако је другачије" Подесите корисничко име и лозинку као глобалне променљиве ТемпВарс.Адд "ЦуррентУсерНаме", Нз (УсерНаме, "") ТемпВарс.Адд "ЦуррентУсерПассворд ", Нз (Лозинка," ") МсгБок" Пријављени успешно ", вбЕкцламатион Енд Иф Енд Функција
Функцију можете позвати овако:
Привате Суб УсерЛогин_Екампле () Позовите ВБА_Аццесс_Генерал.УсерЛогин ("Корисничко име", "лозинка") Крај Суб
