数据库联接问题
机器上有两个数据库JMIS和Caiwu,现在要用JMIS里的标a,Caiwu数据库里的表b,用来关联显示,然后将显示的数据倒入到报表。我现在的做法是:新建一个强类型的数据集Dataset1,里面新建一个表t1,然后动态的方式获得数据,将数据加载到报表,但是,会提示登录错误的问题。下面是代码:
Dim dst As New ShouFei.Dataset1 'Dataset1是类型化数据集
dst.Clear()
'concaiwu是数据库联接,selstring是sql语句,用来检索数据的内容
Dim da As New SqlDataAdapter(selString, concaiwu)
da.Fill(dst, "t1")
'rptxuefei是创建的一个报表
Dim rpt As New rptxuefei
rpt.SetDataSource(dst)
'以下是设置登录信息,读取的是webconfig的内容
Dim logOnInfo As New TableLogOnInfo
logOnInfo.ConnectionInfo.ServerName = ConfigurationSettings.AppSettings("ServerName")
' logOnInfo.ConnectionInfo.DatabaseName = ConfigurationSettings.AppSettings("DatabaseName")
logOnInfo.ConnectionInfo.UserID = ConfigurationSettings.AppSettings("UserID")
logOnInfo.ConnectionInfo.Password = ConfigurationSettings.AppSettings("Password")
rpt.Database.Tables("t1").ApplyLogOnInfo(logOnInfo)
rpt1.ReportSource = rpt