Óñëîâèå äëÿ çàïðîñà ïåðåäàòü â Access |
Dim DB As Object
Set DB = OpenDatabase("d:\users\Áàçà.accdb")
Application.ActiveCell.CopyFromRecordset _
DAO.Workspaces(0).OpenDatabase("d:\users\Áàçà.accdb"). _
OpenRecordset("SELECT Äàííûå.Íîìåð, Äàííûå.Äàòà, Äàííûå.Ñìåíà, Äàííûå.Âðåìÿ, Äàííûå.Ìàøèíà, Äàííûå.Ïîêàçàíèÿ FROM Äàííûå;")
Set DB = Nothing
Range("A2").Select
http://www.sql.ru/forum/1115909/uslovie-dlya-zaprosa-peredat-v-access
| Êîììåíòèðîâàòü | « Ïðåä. çàïèñü — Ê äíåâíèêó — Ñëåä. çàïèñü » | Ñòðàíèöû: [1] [Íîâûå] |