Poxa... até agora ninguém entrou em contato, será que meu problema é tão difícil à ponto de NINGUÉM dar palpites?

 

Bom Dia Felippe,

 

Não sei qual é o tipo de conexão e qual seu banco, porém vai um exemplo:

Faça a referência ao Microsoft Word  Object Library no seu projeto VB.

 

   Set RSAux = Cn.Execute("SELECT No_Usuario,NR_CNS,NR_Logradouro,No_Compl_Identidade FROM TB_Usuario,TB_Endereco WHERE TB_Usuario.REF_IdDomic = TB_Endereco.REF_IdDomic ")  'aqui estou usando um recordset ADO e Cn é a conexão, adapte para seu tipo de acesso
   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 RSAux.EOF
      sel.TypeText Text:=RSAux!No_Usuario

      sel.MoveRight unit:=12
      sel.TypeText Text:=RSAux!NR_CNS
      sel.MoveRight unit:=12

      'proximas colunas ....
      RSAux.MoveNext
   Loop
   WordApp.Visible = True
   Set WordApp = Nothing

 

Espero ter ajudado,

 

Susana

o tipo de conexão é ADODB e o banco é IbOleDb (Interbase)

 

ainda não consegui, pois diz que não se conhece a coluna REF_IDDOMIC nas tabelas...

 

PELAMORDEDEUS, tô vendo que vou ter q relacionar tuuudo, 1 por 1... tem uma pilha grotescaa aqui... se esse programinha rodasse 100% seria uma mão na roda, acredito q para muita gente...