Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

legd1991

Não consegue encontrar a base de dados

Mensagens Recomendadas

legd1991

boas,

estou aqui com um problema, eu tenho o seguinte código:

Try
            Dim wdApp As New Microsoft.Office.Interop.Word.Application
            Dim wdDoc As New Microsoft.Office.Interop.Word.Document
            Dim strWorkingDocName As String
            Dim txt As String

            strWorkingDocName = My.Application.Info.DirectoryPath.ToString & "\Mod.UNI03 - Protocolo de estágio.doc"

            With wdApp
                .WindowState = Microsoft.Office.Interop.Word.WdWindowState.wdWindowStateMaximize
                .Visible = True
            End With
            With wdApp
                wdDoc = wdApp.Documents.Open(strWorkingDocName)
                txt = My.Application.Info.DirectoryPath.ToString & "\Univa.accdb"
                Dim sql As String = "SELECT A.*,Emp.*col.*, Cur.*, P.*, Est.* FROM (((((col INNER JOIN A ON col.aluno = A.N) INNER JOIN Cur ON A.curso = Cur.Cod) INNER JOIN P ON col.prof = P.Cod) INNER JOIN Emp ON col.emp = Emp.cod) INNER JOIN Est ON col.le = Est.le)"
                ' Dim sql As String = "SELECT A.*,emp.*,p.*,col.*,est.*,cur.* FROM (((((col INNER JOIN A ON col.aluno = A.N) INNER JOIN Emp ON col.emp = Emp.cod) INNER JOIN P ON col.prof = P.Cod) INNER JOIN Est ON A.curso = Est.curso AND col.le = Est.le) INNER JOIN Cur ON A.curso = Cur.Cod)"
                wdDoc.MailMerge.OpenDataSource(Name:=txt, SQLStatement:=sql)

            End With
            With wdDoc.ActiveWindow.View
                .Type = Microsoft.Office.Interop.Word.WdViewType.wdPrintView
                .Zoom.Percentage = 100

            End With
            wdApp = Nothing

        Catch ex As Exception
            MsgBox("Erro:" & ex.Message)
        End Try

mas ao executar o código dá erro a dizer que nao consegue encontrar a base de dados, mas ela está lá..

alguém sabe porque não me está a dar bem??

cumps

legd1991

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
ribeiro55

Nunca trabalhei com essa namespace, Microsoft.Office.*, mas o seguinte não me parece correcto:

wdDoc.MailMerge.OpenDataSource(Name:=txt, SQLStatement:=sql)

Dá uma olhadela aos datatypes dos parametros. Não serão ambos string?

Experimenta:

wdDoc.MailMerge.OpenDataSource(txt, sql)


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
legd1991

Nunca trabalhei com essa namespace, Microsoft.Office.*, mas o seguinte não me parece correcto:

wdDoc.MailMerge.OpenDataSource(Name:=txt, SQLStatement:=sql)

Dá uma olhadela aos datatypes dos parametros. Não serão ambos string?

Experimenta:

wdDoc.MailMerge.OpenDataSource(txt, sql)

se fizer assim ao abrir o documento do word vai-me pedir qual a tabela que quero importar, e so me dixa importar um, mas eu queria importar todas para preencher o modelo correctamente

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.