У овом водичу научит ћемо како отворити скуп записа, пребројати број записа у скупу записа, проћи кроз скуп записа, додати запис, ажурирати запис, прочитати вриједност из записа и избрисати запис.
Имамо приступну табелу, која се зове ПродуцтсТ, приказана испод:
Отварање скупа записа
Прво морамо успоставити базу података коју намјеравамо користити, у овом случају то је тренутно отворена база података. Затим можемо користити метод ЦуррентДБ.ОпенРецордСет за отварање/креирање нашег скупа записа.
Да бисмо створили скуп записа који ће нам омогућити манипулацију подацима у табели под називом ПродуцтсТ, користили бисмо следећи код:
| 1 | ЦуррентДб.ОпенРецордсет ("ПроизводиТ") |
Бројање броја записа помоћу ВБА
Када креирате скуп записа, вероватно ћете пожелети да урадите нешто корисно с њим или на неки начин манипулишете подацима у њему. Можете да пребројите број записа у свом скупу података (у овом случају табелу под називом ПродуцтсТ) помоћу следећег кода:
| 1 | МсгБок ЦуррентДб.ОпенРецордсет ("ПроизводиТ"). РецордЦоунт |
Понављање кроз РецордСет помоћу ВБА
Следећи код се провлачи кроз наш РецордСет:
| 1234567891011121314 | Суб РецордСет_Лооп ()Затамните нашу базу података као базу податакаЗатамните наш снимак као скуп записаПодесите нашу базу података = Тренутну базу податакаПодесите оурРецордсет = оурДатабасе.ОпенРецордсет ("ПродуцтсТ")Урадите све до оурРецордсет.ЕОФМсгБок нашРецордсет! ПродуцтИДоурРецордсет.МовеНектЛоопЕнд Суб |
Додавање записа у РецордСет
Користите метод Рецордсет.АддНев за додавање новог записа у РецордСет:
| 1234567891011121314 | Суб РецордСет_Адд ()Са ЦуррентДб.ОпенРецордсет ("ПродуцтсТ").Додај нови! [ПродуцтИД] = 8! [ПродуцтНаме] = "ХХХ производа"! [ПродуцтПрицеПерУнит] = 10! [ПродуцтЦатегори] = "Играчке"! [УнитсИнСтоцк] = 15.АжурирањеЗавршитиЕнд Суб |
Резултат је:
Ажурирање скупа записа
Морате да користите метод Рецордсет.АддНев или Рецордсет.Едит. Након ове изјаве морате користити методу Рецордсет.Упдате да бисте задржали промене.
Очитавање вредности из записа
Морате користити методу Рецордсет.ФиндФирст да бисте направили запис, тренутни запис. Затим морате користити Рецордсет.Фиелдс да наведете које поље желите да погледате.
| 12345678910111213141516 | Суб РецордСет_РеадВалуе ()Затамните нашу базу података као базу податакаЗатамните наш снимак као скуп записаПодесите нашу базу података = Тренутну базу податакаПодесите оурРецордсет = оурДатабасе.ОпенРецордсет ("ПродуцтсТ", Тип: = РецордсетТипеЕнум.дбОпенДинасет)Са нашим записом.ФиндФирст "ПродуцтНаме =" & "'ЦЦЦ производа" "Ако .НоМатцх ТадаМсгБок "Није пронађено подударање"ИначеМсгБок оурРецордсет.Фиелдс ("ПродуцтЦатегори")Крај АкоЗавршитиЕнд Суб |
Резултат је:
Брисање записа из скупа записа
Да бисте избрисали запис из скупа записа, морате га поставити као тренутни запис помоћу методе Рецордсет.ФиндФирст. Затим га можете избрисати помоћу методе Рецордсет.Делете. Следећи код приказује како да избришете запис 2 у скупу података:
| 1234567891011121314151617181920212223 | Суб РецордСет_ДелетеРецорд ()Затамните нашу базу података као базу податакаЗатамните наш снимак као скуп записаПодесите нашу базу података = Тренутну базу податакаПодесите оурРецордсет = оурДатабасе.ОпенРецордсет ("ПродуцтсТ", Тип: = РецордсетТипеЕнум.дбОпенДинасет)Са нашим записом.ФиндФирст "ПродуцтНаме =" & "'БББ производа" "Ако .НоМатцх ТадаМсгБок "Није пронађено подударање"ИначеоурРецордсет.ДелетеКрај АкоЗавршити„Поново отворите стоДоЦмд.Цлосе ацТабле, "ПродуцтсТ"ДоЦмд.ОпенТабле "ПродуцтсТ"Енд Суб |
Резултат је:
