Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Помогите разобр...

Помогите разобраться с автоматизацией

10.08.2008 18:08:34

user

7 сообщения

Помогите разобраться с автоматизацией

Возникла необходимость при работе с базой переходить с экрана монитора на принтер и бумажные листы. За основу взял Ваши примеры из "3004_la_automat" получилось и почти разобрался. Сумел "повесить" на одну кнопку и пример03 и пример 04. Большое спасибо за примеры. Однако, споткнулся с запросом и вообще с подпрограммой :
.InsertDatabase Format:=0, Style:=0, LinkToSource:=False, _
Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & strMDB & ";Mode=Read;Extended Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLE" _
, SQLStatement:="SELECT * FROM `ЗапЭкл`" & "", PasswordDocument _
:="", PasswordTemplate:="", WritePasswordDocument:="", _
WritePasswordTemplate:="", DataSource:= _
strMDB, From:=-1, To _
:=-1, IncludeFields:=True
1- Как упростить эту запись, исключить проверку пароля, Возможно-ли такое.
2- Как делать выборку из запроса, (Обычный запрос не позволяет использовать ссылку на свойства формы, преобразовывать запрос в запрос SQL ? Или в этот участок "SELECT * FROM `ЗапЭкл`" вставить выражение типа
SELECT tabРтура.Дата, Время.Time, tabРтура.Усл_подробно, НазвВсп.НазвВсп, tabРтура.кол
FROM НазвВсп INNER JOIN (tabТовар INNER JOIN (((tabЗакпрог INNER JOIN tabРтура ON tabЗакпрог.id_Закпрог = tabРтура.id_Закпрог) INNER JOIN Время ON tabРтура.idT = Время.idT) INNER JOIN Зак_Эк ON tabЗакпрог.id_Закпрог = Зак_Эк.Id_Закпрог) ON tabТовар.id_Tov = tabРтура.id_Tov) ON НазвВсп.id_НазвВсп = tabТовар.Id_услуги
WHERE (((tabТовар.Id_Кат)=10) AND ((Зак_Эк.Id_Заказ)=[Forms]![Зак_Эк]![Id_Заказ])); , . Как правильно решить эти вопросы, возможно-ли отказаться от SQL &

13.08.2008 13:58:54

Admin1

731 сообщения

Re: Помогите разобраться с автоматизацией

1. В разных версиях офиса функция InsertDatabase имеет разные параметры. Параметры можно отследить через Word. Создаете макрос и записываете свои действия. Далее этот код подставляете в базу.

2. Зачем усложнять запрос, подставляя данные из формы, его VBA должен анализировать. Надо использовать replace или объединение строк. Например,

SQL = Replace(SQL,"Parameter1",Forms!...)

Страница 1 из 1