bosscshttp://multi-up.com/273646
Этот файл всё ещё заливается!
Название: Моя.rar
Размер: 70.31KB

А вообще по аксессу есть отдельный форум

bosscsВыполнить запрос из Access

Так бы и сказали - выполнить из VB6 сохраненный запрос в MDB.

А в чем проблема-то? Изложите.

bosscsЯ в принципе так и сказал) Ну ладно.

Вы сказали Из Access

bosscs1) Нужно занести все запросы в комбобокс

Предполагаю, что вам поможет перебор коллекции QueryDefs

bosscs2) Нужно сделать выполнение запроса при нажатии на имя запроса.

Предполагаю, что вам поможет Execute

bosscsавторПредполагаю, что вам поможет перебор коллекции QueryDefs

Сори, но я совсем начинающий в этом деле(
Нужно написать цикл?
Как узнать 1ю и последнюю запись?

Однако ж вы смогли сделать это для таблиц (TableDefs). Абсолютно то же самое. Ну или так и говорите сразу, что код не ваш и вы в нем ничего не понимаете. Предлагаю вам сначала разобраться в том коде, а потом модифицировать его.

Кстати, рекомендация - между прочим пользователи в диалогах могут нажимать кнопку "Отмена". Это нужно учитывать, а не рушить программу.

И еще просьба - к форуму можно крепить файлы, не заставляйте нас смотреть эту дурацкую рекламу, может вы за нее и получаете деньги, но нам это совершенно неинтересно.

Пробовал я менять
Одно на другое...
Вопрос я забыл озвучить.

(Хокку. Или танка. Не разбираюсь я в них)

bosscsПлз, без загадок что не так?
Вы написали:
"Пробовал я менять"
и все.
Ни резюме, ни вопросов, ни текстов сообщений об ошибке. Видимо, у вас все получилось, вот и я позволил себе немножко поэзии.

Давайте так:
1) Вы почитаете немножко какой-нибудь учебник, поймете, что такое переменная, как она определяется, что такое объект, метод, что такое коллекция и элемент коллекции. Как работает цикл For Each. Что такое событие и когда оно возникает.

2) Полностью разберетесь как работает пример, который вы же сами и привели

3) Почитаете хелп по объектам QueryDef и QueryDefs

4) Почитаете правила форума и рекомендации по оформлению сообщений.

Если вы все это сделаете, у вас вопросов и не останется, а если останутся - зададите, и это будут уже конкретные вопросы.

bosscsФорум для того что бы спрашивать, а не что бы говорить что мне читать. Мне до завтра нужно сделать запросы, то что там написано я более-менее понимаю.

Где-то я это уже слышал
bosscsЯ здесь, что бы вы отвечали на нужные мне вопросы, а не на те, которые вам нравятся.


bosscsЖалко что ли написать в чем ошибка?
...
Пару строк не понимаю.

Ошибка в том, что вы не понимаете не пару строк. В чем ошибка я написал выше - неверный выбор события, непонимание, как работает For Each, непонимаение, к чему относится коллекция QueryDefs (и TableDefs судя по всему тоже), неправильное определение объектной переменной...

И я вам уже писал - если хотите чтобы кто-то что-то делал ЗА вас (писал программу, или пересказывал вам учебник или читал на ночь хелп) - ставьте ценник и вперед. Если хотите разобраться - разбирайтесь, а не задавайте вопросы "что у меня тут неправильно". Все у вас тут неправильно.

О. Сразу видно, мозги включены.

Set db1 = OpenDatabase(CommonDialog1.FileName)
For Each tb1 In db .QueryDefs

улавливаете?

bosscsКак дать параметр запросу?

Гм, я совершенно не спец по DAO, надо лезть в литературу или хелпы, а щас уже лень.
Может так? Но это практически от балды

А, не, точно не так, это в ADO было...