Vb.net Stampa unione di un doc Word - problemi con mailmerge.opendatas...

venerdì 09 marzo 2012 - 12.15

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

victordotnet Profilo | Newbie

31 messaggi | Data Invio: ven 9 mar 2012 - 12:15

Salve ragazzi in pratica non riesco a risolvere il problema seguente - il mess di errore è "Impossibile aprire l'origine dati" ma la connessione all'origine dati è corretta e verificata. Qualcuno si è mai trovato dinanzi a questo problema?
Vi posto il codice
------------------------
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
'procedo con la stampa di un determinato documento, seleziono dal datagrid e stampo
'connessione al db
Dim SQLCon As New SqlClient.SqlConnection
Dim connection1 As String = principale.CON1.ToString
SQLCon.ConnectionString = connection1
SQLCon.Open()
Dim wrdDataDoc As Word.Document
'mi seleziono il record di interesse
Dim selezionarecord As Integer = TblTempStpUnioneDataGridView.CurrentCell.RowIndex
Dim reccorrente As String = TblTempStpUnioneDataGridView.Item(0, selezionarecord).Value.ToString.Trim
'così mi ricavo il nome del file
Dim selezionofile As Integer = TbrWordModelDataGridView.CurrentCell.RowIndex
Dim nomefile As String = TbrWordModelDataGridView.Item(3, selezionofile).Value
Dim percorsoOdc As String = System.Windows.Forms.Application.StartupPath & "\modellistandard\192.168.0.70 Wordapplication TblTempStpUnione.odc"
Dim filecorrente As String = nomefile.Trim

Dim querystring As String = ("SELECT * FROM [Wordapplication].[dbo].[TblTempStpUnione] where idtemporanea = " & reccorrente)
Dim Command = New SqlCommand(querystring, SQLCon)
Command.ExecuteNonQuery()

'apriamo il file col record selezionato
Dim appword = CreateObject("word.application")
appword.visible = True

If MsgBox(" vuoi Aprire il file", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
( il problema è in questa linea di codice la seguente )
[/code]WordDoc.MailMerge.OpenDataSource(Name:=percorsoOdc, , SQLStatement:=querystring)[/code] WordDoc = Wordapp.Documents.Open(filecorrente)
Else
'stampa unione

'WordDoc.MailMerge.OpenDataSource(Name:=percorsoOdc, _
'ConfirmConversions:=True, LinkToSource:=True, PasswordDocument:="elco", _
'SQLStatement:="Select * from TblTempStpUnione where idtemporanea= " & reccorrente)
End If
'WordDoc.MailMerge.Destination = Word.WdMailMergeDestination.wdSendToNewDocument
WordDoc.MailMerge.Destination = Word.WdMailMergeDestination.wdSendToPrinter
WordDoc.MailMerge.Execute()
End Sub
--------------
spero possiate aiutarmi...ciauz

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !