WEB форумы на jedi
[Форум] [Помощь] [Поиск] [Выйти]
Добро пожаловать, [info]User

WEB форумы на jedi [ПОИСК] [Архив до 03.2006]

Тема Access 1 К предыдущему сообщению На следующее сообщение Программирование

Отправил SergOpel в 15:41 21.10.2002[Ответить]
Имеем Access :) (мелочь, а приятно)

Необходимо сделать запрос на много всяких условий. Варианты (имхо):
1) Все мышкой (не проходит, в запросе очень много чего...)
2) Пишем на Делфи программу, которая на выходе имеет SQL запрос, который позже мы импортируем в Access или кидаем в файл, откуда потом из Accessа прочитаем (все ОК, только извратом и геморроем попахивает)
3) Пишем все на VBA (начал почитывать), импортируем SQL запрос в виде текста в настоящий запрос (перезаписываем select * from DbName на наш запрос).

Вариант 3 должен работать. Не подскажете, как конкретно, перезаписать текст SQL запроса в запросе Accessа?

Спасибо. Заранее.


Отправил SergOpel в 13:02 22.10.2002[Ответить]
Дык... Помогите!!!


Отправил Crypto в 21:49 23.10.2002[Ответить]
Помогаю, Серега, помога-а-аю!
PS. Дай денег на CD-R (лучше конечно непосредственно CD-R), а... получиться немного быстрее... :)


Отправил HPawel в 00:39 24.10.2002[Ответить]
Миста Сержопель, вы какую-то фигню сказали :-) Даж не знаю, чем помочь, почти ничего не понял, чё надо-то ваще :-)


Отправил SergOpel в 13:47 24.10.2002[Ответить]
Эх, как мало у меня недостатков, один из них - без визуального контакта, плохо объясняю...харизмы не хватает... не бритой...

Access....

Есть запрос - Запрос1. Его можно просмотреть в SQL-виде.
Есть подозрения, что програмно его можно изменить, т.е. подменить текст непосредственно SQL-запроса.

Вопрос: Как конкретно это сделать в VBA for Access.


Отправил CAHbKA в 18:35 24.10.2002[Ответить]
Где есть?
На такие вводные ответом будет - пусть там будет ваш запрос, там где есть этот.


Отправил HPawel в 22:47 25.10.2002[Ответить]
Попробуй сделать макрос.
см. Макрокоманда Удалить объект


Отправил SandMan в 12:38 27.10.2002[Ответить]
Сергей, насчёт изменения запроса решение такое: (точно катит в 97-м, в 2к-том - не знаю)
Имеются семейства объектов Tables, Forms, Reports, Modules, Queries.
Тебе нужно семейство Queries, через круглые скобки добираешься до своего запроса, там должно быть свойство вроде Text или SQL - там и лежит твой текст запроса; он не только на чтение, но и на запись, если этот запрос не открыт сейчас. Подробнее - см. хелп или подожди, я уточню.
Успехов!


Отправил DDDa в 19:45 30.10.2002[Ответить]
Пример:
Set dbs = CurrentDb
Set gry = dbs.QueryDefs(Хорошие продажи)

DoCmd.OpenForm FormName:=Вводпериода, WindowMode:=acDialog
НДень = Month(НачДень) & / & Day(НачДень) & / & Year(НачДень)
КДень = Month(КонДень) & / & Day(КонДень) & / & Year(КонДень)
StrSQL = gry.sql
S1 = Left(StrSQL, InStr(StrSQL, HAVING) - 1)
S2 = HAVING (((Продажи.Дата)Between & # & НДень & # & And & # & КДень & # & ) AND ((Sum(Продажи.Количество))>4));
gry.sql = S1 & S2
^^^^^^^^^^^ Вот то что тебе нужно,
но если уж начал делать на васике, так и делай все там.