正确连接水晶报表方法：
Dim STRCON As String
Dim SQLSTR As String
Dim rs As ADODB.Recordset
STRCON = "Provider=MSDAORA.1;SERVER=crp;DATA SOURCE=crp;USER ID =apps;PASSWORD=apps"
SQLSTR = "select DESCRIPTION from apps.fnd_user where user_name='3ITG1307316'"
rs = Server.CreateObject("ADODB.RecordSet")
rs.Open(SQLSTR, STRCON, 3, 1)
Label1.Text = rs.Fields(0).Value
Dim obj As New ta
obj.SetDataSource(rs)
CrystalReportViewer1.ReportSource = obj
---------------------------------
正确连接方法：
Dim STRCON As String
Dim SQLSTR As String
Dim rs As ADODB.Recordset
STRCON = "Provider=MSDAORA.1;SERVER=crp;DATA SOURCE=crp;USER ID =apps;PASSWORD=apps"
SQLSTR = "select DESCRIPTION from apps.fnd_user where user_name='3ITG1307316'"
rs = Server.CreateObject("ADODB.RecordSet")
rs.Open(SQLSTR, STRCON, 3, 1)
Label1.Text = rs.Fields(0).Value
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/12122734/viewspace-520904/ ，如需转载，请注明出处，否则将追究法律责任。
