vb6 mail Код слияния, не выполняющий выбранную оценку в исходном документе

332
user961419

Я использую приложение vb, которое получает данные из базы данных и выполняет объединение почты на одном из шаблонных документов и отправляет распечатки на принтер. Теперь, когда у нас есть обновление до Word 2010, приложение VB6 выглядит следующим образом. Этот код работает для Word 2010, но пока я открываю шаблон документа, он говорит, что открытие этого будет выполнено select * from c:\temp where rectype = 0, эта функция не работает в Word 2010, он печатает весь Rectype. Может кто-нибудь посоветовать, какую часть нужно изменить, чтобы это отсортировалось?

Могу ли я изменить оператор выбора? как? подходит ли word.basic к слову 2010? Нужно ли конвертировать весь код в соответствии со словом 2010? Пожалуйста, порекомендуйте.

Private Sub printWorddocument(ByRef rstjobdata As rdoresultset)  Dim oword As Object Dim sdatasource As String  Set oword = CreateObject("Word.basic") oword.appshow oword.appMinimize oword.fileopen Name:=rstjobdata("path").Value sdatasource = oword.mailmergedatasource$(5)  oword.Mailmergeopendatasource Name:=mstemp_path, _ Confirmconversions:=0, _ ReadOnly:=1, _ AddtoMru:=0, _ sqlstatement:=sdatasource  oword.MailMerge checkerrors:=1, destination:=0, _ mergerecords:=1, Suppression:=0, _ mailsubject:="", MailMerge:=1, _ mailAttachment:=0, mailaddress:=""   'Replace pipe character ("|") with CRLF oword.editreplace Find:="|", Replace:="^p", _ Direction:=0, MatchCase:=0, _ Wholeword:=0, PatternMatch:=0, _ SoundsLike:=0, ReplaceAll:=1, _ Format:=0, Wrap:=1, _ FinaAllWordForms:=0  oword.ScreenUpdating 1  oword.FileprintSetup Printer:=sGetWordQueuename(CStr(rstjobdata("Queuename"))) oword.FilepageSetup Firstpage:=CInt(rstjobdata("FirstPage")), Otherpages:=CInt(rstjobdata("OtherPages")) oword.Fileprint background:=0, NumCopies:=CInt(rstjobdata("Copies")) oword.FileCloseAll 2 oword.Filequit Set oword = Nothing Exit Sub
0
Вы пытались процитировать путь, как «выбрать * из« c: \ temp », где rectype = 0»? duDE 6 лет назад 0
Спасибо за ваш ответ. я должен упомянуть об этом в sqlstatement ?? если мне нужно сделать это в текстовом шаблоне, который используется для mailmerge, где я должен упомянуть об этом? user961419 6 лет назад 0
Я хотел бы попытаться процитировать путь в выражении SQL, это возможно? Вы можете попробовать это? duDE 6 лет назад 0
Я попытался sqlstatement: = "Выбрать * из 'C: \ temp.doc', где RecType = 0", это приводит меня к обработке ошибок. user961419 6 лет назад 0

0 ответов на вопрос

Похожие вопросы