Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: VBA MS Office

Программирования для MS Office кроме ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Управление уловиями в запросах MS ACCESS
 
 автор: Штурман   (27.03.2008 в 17:13)   личное сообщение
 
 

Как из Экселя изменить условие в запросе MS ACCESS? Подключаюсь через DAO.

  Ответить  
 
 автор: osmor   (27.03.2008 в 17:43)   личное сообщение
 
 

именно условие или можно весь текст?

Querydefs("Запрос").SQL = "Select ....."

  Ответить  
 
 автор: Штурман   (27.03.2008 в 18:29)   личное сообщение
 
 

именно условие на выборку. Только с SQL вообще не работал никогда. Желательно через то, к чему боль менее привык:
Dim Db As Database
Dim rrr As Recordset
Set Db = OpenDatabase(vspom.Cells(1, 1), True, False, "MS Access")
Set rrr = Db.OpenRecordset("запрос_склад", dbOpenDynaset)

трампапа

rrr.Close
Set rrr = Nothing
Db.Close
Set Db = Nothing
Вот что мне вместо трампапа вставить?

  Ответить  
 
 автор: osmor   (27.03.2008 в 19:14)   личное сообщение
 
 

жаль что только условие, как только условие незнаю... если целиком текст запроса, то так

Dim Db As Database
Dim rrr As Recordset
Set Db = OpenDatabase(vspom.Cells(1, 1), True, False, "MS Access")
Db.querydefs("запрос_склад").sql = "SELEСТ......." 

Set rrr = Db.OpenRecordset("запрос_склад", dbOpenDynaset)
rrr.Close
Set rrr = Nothing
Db.Close
Set Db = Nothing

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList