USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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      Clique aqui para enviar email para o autor  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página