conn

正确连接水晶报表方法：
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博客 ” ，链接：http://blog.itpub.net/12122734/viewspace-520904/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/12122734/viewspace-520904/