|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Como enviar o conteudo do seu banco de dados para o Word
|
 |
|
|
|
Postada em 14/4/2001 por VBManiaco
activexnanet@bol.com.br
'Não se esqueça de fazer a referencia as Bibliotecas DAO 3.6 e Microsoft Word 9.0 Object Library
'Detalhe disponibilizarei o código fonte na seção projetos também.
Option Explicit
Private WordApp As Word.Application
Private doc As Word.Document
Private sel As Word.Selection
Private db As Database
Private rs As Recordset
Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "\dbVidro.Mdb")
Set rs = db.OpenRecordset("Select * From TABLOGIN")
Set WordApp = New Word.Application
WordApp.Documents.Add
Set doc = WordApp.ActiveDocument
Set sel = WordApp.Selection
doc.Tables.Add Range:=sel.Range, numrows:=1, numcolumns:=2
Do Until rs.EOF
sel.TypeText Text:=rs!USUÁRIO
sel.MoveRight unit:=12
sel.TypeText Text:=rs!SENHA
sel.MoveRight unit:=12
rs.MoveNext
Loop
WordApp.Visible = True
Set WordApp = Nothing
End Sub
Qualquer dúvida, mail-me
|
|
|
|
|
