急关于一个很简单的VS.net 2003 报表有关问题,各位大侠快来看看
急!关于一个很简单的VS.net 2003 报表问题,各位大侠快来看看
我想导出生成pdf格式的文档,但出现以下异常:
异常详细信息: CrystalDecisions.CrystalReports.Engine.LogOnException: 登录失败。
源错误:
行 105:
行 106:
行 107: myReport.Export()
行 108:
行 109:
我的代码:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Page.IsPostBack = False Then
Dim ReportDoc As New ReportDocument
Dim path1, path2 As String
path1 = Server.MapPath( "CrystalReport1.rpt ")
ReportDoc.Load(path1)
Dim TabLogInfo As New TableLogOnInfo
Dim Aobject As Object
Dim Astring As String
Dim ConString As String
Dim SqlString As String
Dim ADBMS As String
Dim ADatabase As String
Dim AServer As String
Dim AUserID As String
Dim APassword As String
' '读取注册表的数据库信息
Dim Aregkey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine
Aregkey = Aregkey.OpenSubKey( "SOFTWARE\SununCenter ")
Aobject = Aregkey.GetValue( "DBMS Name ")
ADBMS = Trim(Aobject.ToString)
Aobject = Aregkey.GetValue( "Database ")
我想导出生成pdf格式的文档,但出现以下异常:
异常详细信息: CrystalDecisions.CrystalReports.Engine.LogOnException: 登录失败。
源错误:
行 105:
行 106:
行 107: myReport.Export()
行 108:
行 109:
我的代码:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
If Page.IsPostBack = False Then
Dim ReportDoc As New ReportDocument
Dim path1, path2 As String
path1 = Server.MapPath( "CrystalReport1.rpt ")
ReportDoc.Load(path1)
Dim TabLogInfo As New TableLogOnInfo
Dim Aobject As Object
Dim Astring As String
Dim ConString As String
Dim SqlString As String
Dim ADBMS As String
Dim ADatabase As String
Dim AServer As String
Dim AUserID As String
Dim APassword As String
' '读取注册表的数据库信息
Dim Aregkey As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine
Aregkey = Aregkey.OpenSubKey( "SOFTWARE\SununCenter ")
Aobject = Aregkey.GetValue( "DBMS Name ")
ADBMS = Trim(Aobject.ToString)
Aobject = Aregkey.GetValue( "Database ")