1. Vincenzo Romano
  2. Valentina Reports ADK
  3. Четверг, Ноябрь 10 2016, 03:25 PM
  4.  Подписаться через email
Hi I have this code:

dim vconn as String
dim sql as String

Valentina.InitReports()

myReports = new VProject(GetFolderItem("Z:\XojoProject\BCPrint\Report.vsp";))

try
myReports.Open()

Exception err as VException
MsgBox Str(err.ErrorNumber) + ":" + err.Message
End

vconn = "mssql://host=\\server\SQLFW2008, port = 50244, user = sa, password = pppppppp, dbname = fwprint"
sql = "select * from bctoprint"

Et_Scatolo = myReports.MakeNewReport("et_scatolo", vconn, sql)

dim f as FolderItem = GetFolderItem("Z:\XojoProject\BCPrint\";).Child("Report.pdf";)

Et_Scatolo.PrintToDisk(f, EVReportPrintType.kToPDF, 1)
f.Launch

It crashes on the .Open. no error message

Running on Windows 10 64bit
Комментарий
There are no comments made yet.
Sergey Pashkov Ответ принят
Hello Vincenzo,

It shouldn't crash anyway, but can you check please that the project file is correctly located, for example:


Dim fi As FolderItem = GetFolderItem("Z:\XojoProject\BCPrint\Report.vsp")
If fi.Exists Then
myReports = new VProject( fi )
Else
MsgBox("The FolderItem does not exist.")
End if
Комментарий
There are no comments made yet.
  • Страница :
  • 1


There are no replies made for this post yet.
However, you are not allowed to reply to this post.