代码如下:
Dim crConnectionInfo As New ConnectionInfo
With crConnectionInfo
.ServerName = "C:\data.mdb"
.DatabaseName = ""
.UserID = "Admin"
.Password = ""
End With
Dim crTableLogOnInfo As New TableLogOnInfo
With crTableLogOnInfo
.ConnectionInfo = crConnectionInfo
.TableName = "用户登录表"
End With
Dim crTableLogOnInfos As New TableLogOnInfos
crTableLogOnInfos.Add(crTableLogOnInfo)
CrystalReportViewer1.LogOnInfo = crTableLogOnInfos
CrystalReportViewer1.ReportSource = New CrystalReport1
可设置之后还是不行,打不开报表,我是用来访问ACCESS数据库文件的
把数据库添加到抱表文件里去