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

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

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

Начало

Forums

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

Форумы

Поиск

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Запрос на...

Тема: Запрос на добавление

15.06.2007 21:08:06

All

4316 сообщения

Тема: Запрос на добавление

Существует две разные, несвязанные формы. При помощи этих форм происходит добавление новых записей либо редактирование. Нравиться мне использовать запросы. В обоих формах добавление и редактирование производиться при помощи запросов UPDATE b INSERT INTO. Заело, но справиться не получается. В одной форме все работает в другой нет. Делал так
Dim Name as String
Dim Unit as Integer
Name=Forms("NewMaterial").Controls("Name")
Unit=Forms("NewMaterial").Controls("Unit")
Set DB=OpenDataBase(путь)
Set qdf=DB.CreateQuyereDef("")
qdf.SQL="INSERT INTO tblMaterial (Name, Unit) SELECT '"&Name&"' AS Name, '"&Unit&"' AS Unit"
qdf.Execute
Access не ругается
делал и так
strSQL="INSERT INTO tblMaterial (Name, Unit) SELECT '"&Name&"' AS Name, '"&Unit&"' AS Unit"
OpenDataBase(путь).Execute strSQL
и это не помогло
Set qdf=DB.QuyereDefs("Newmater")
qdf("Name")=Name
qdf("Unit")=Unit
и это не спасло
Раскажите почему. Могу добавить записи и подругому, но хочется при помощи запроса. Заело. Хочу победить. Да бывает выдает сообщение что должна быть хотябы одна таблица или запрос либо нужен 1 параметр

P.S. Запросы на добавление
Автор: Lucky от 0:00:00 Источник ...

15.06.2007 21:08:06

All

4316 сообщения

RE: Запрос на добавление

Все получилось. Было банально. Надо спать. Единственное не получилось использовать сохраненный запрос. Когда запускаю его руками все работат, но если из кода, то никакие изменения не вносятся.
Условие следующие. Есть пользовательская БД и БД с данными. Для подключения БД с данными используется свободное подключение. Запрос сохранен в БД с данными. Необходимо запускать его из кода в пользовательском приложении.Делаю следующим образом.
Dim Name as String
Dim Unit as Integer
Name=Forms("NewMaterial").Controls("Name")
Unit=Forms("NewMaterial").Controls("Unit")
Set DB=OpenDataBase(PathBD)
Set qdf=DB.QuyereDefs("NewMater")
qdf("Name")=Name
qdf("Unit")=Unit
Объясниет что делаю не так. Зарание Спасибо.

P.S. Запросы на добавление
Автор: Lucky от 0:00:00 Источник ...

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

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

Microsoft Access. Файлы mdb и accdb

Тема: Запрос на...

Поиск

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

Начало | Forums