ВБ - Повезивање на Аццесс ДБ

Питање

Имам табелу Екцел коју желим да копирам у Аццесс када кликнем на дугме на листу. Кслс садржи ову табелу.

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

 Суб цнкБДД () стринг = "Провајдер = Мицрософт.Јет.ОЛЕДБ.4.0; Извор података = Ц: Корисници Нант Десктоп МАБДД.мдб; Персист Сецурити Инфо = Фалсе" Поставите ДБ = Ново АДОДБ. Цоннецтион Сет рецСет = Ново АДОДБ.Рецордсет БДД.Опен ЦСКЛ Ме.Освежи Сун ДБ Као АДОДБ.Цоннецтион Сун РецСет Као АДОДБ.Рецордсет Сун ЦСКЛ као низ БДД.Екецуте "ЦРЕАТЕ ТАБЛЕ тест (име варцхар (60), ФирстНаме варцхар (60), маил варцхар (60), Надимак варцхар (60), ДатеАјоут дате нулл) "Крај Суб

Грешка која се појављује је

ово: "АДО: Цомпиле Еррор: типе усер-дефинед, није дефинисано" и на "Нев АДОДБ.Цоннецтион"

Решење

Требало би додати пројект Мицрософт АцтивеКс Дата Објецтс кк Либрари.

У менију ВБ едитор => Тоолс => Референце ... откуцај одговара.

Онда морате декларирати објекте прије стварања ...

 ДБ Ас АДОДБ.Цоннецтион Сун Сун Сун РецСет Ас АДОДБ.Рецордсет ЦСКЛ Ас Стринг Сет ДБ = Нови АДОДБ.Цоннецтион Сет рецСет = Ново АДОДБ.Рецордсет 'Веза стринг стр = "Провидер = Мицрософт.Јет.ОЛЕДБ.4.0; Извор података = Ц: Корисници Нант Десктоп МАБДД.мдб; Персист Сецурити Инфо = Фалсе "'Направили смо везу БДД. Отворили смо' Написали смо ЦСКЛ упит 'Ми просљеђујемо упит у базу података рецСет.Опен ЦСКЛ, ДБ,, , адЦмдТект 'Затвара везу и ослобађа објекте на БДД-у. Затвори рецСет.Цлосе = Ништа не постави ДБ = Ништа не постави рецСет

Требало би да ради!

Такође проверите овај савет о повезивању ВБ на Аццесс базу података:

//ццм.нет/фак/6079-цоннецтинг-вб-то-датабасе