Sub UsingDAOWithWord()
Dim docNew As Document
Dim dbNorthwind As DAO.Database
Dim rdShippers As Recordset
Dim intRecords As Integer
Set docNew = Documents.Add
Set dbNorthwind = OpenDatabase _
(Name:="C:\Program Files\Microsoft Office\Office11\" _
& "Samples\Northwind.mdb")
Set rdShippers = dbNorthwind.OpenRecordset(Name:="Shippers")
For intRecords = 0 To rdShippers.RecordCount - 1
docNew.Content.InsertAfter Text:=rdShippers.Fields(1).Value
rdShippers.MoveNext
docNew.Content.InsertParagraphAfter
Next intRecords
rdShippers.Close
dbNorthwind.Close
End Sub
Данные из Access в Word
у меня WinApp небольшая прога. База данных лежит в Access'е. Нужно с помощью проги некоторые данные перенести из бд access'а в word. Плз подскажите как это сделать, очень нуна))
вот пример из справки использования DAO из Word.
совсем не обязательно подобный код вызывать именно из Word, можно и из Access и из сторонего кода(в этом случае доступ к серверу Word через Word.Application). И не обязательно использовать DAO, можно (возможно лучше) взять ADO.
Код:
совсем не обязательно подобный код вызывать именно из Word, можно и из Access и из сторонего кода(в этом случае доступ к серверу Word через Word.Application). И не обязательно использовать DAO, можно (возможно лучше) взять ADO.
спасииибо! я как раз тож DAO использую) с рекордсетами легко работать. спасиб еще раз)
если б еще подсказал кто как программно состасить отчет Access и перекинуть его в ворд)) было бы ваще отлично.