'在此处放置初始化页的用户代码
        Dim STRCON As String
        Dim SQLSTR As String
        Dim rs As ADODB.Recordset
        Dim rs_d As ADODB.Recordset
        Dim sql_d As String
        Dim rs_p As ADODB.Recordset
        Dim sql_p As String

        STRCON = "Provider=MSDAORA.1;SERVER=crp;DATA SOURCE=crp;USER ID =apps;PASSWORD=apps"
        'delete from table
        sql_d = "truncate table ch_bi_t1"
        rs_d = Server.CreateObject("ADODB.RecordSet")
        rs_d.Open(sql_d, STRCON, 3, 1)

        'excute procudure
        Dim cmdSql As ADODB.Command
        Dim strconU As String
        Dim conn As New ADODB.Connection
        Dim CmdSqlt As ADODB.Command
        ' strconU = "Provider=MSDAORA.1;SERVER=H80;database=PROD;data Source=PROD.WORLD;User ID=inquiry;Password=aabb"
        cmdSql = Server.CreateObject("ADODB.Command")
        conn.ConnectionString = STRCON
        conn.Open()
        cmdSql.ActiveConnection = conn
        cmdSql.CommandText = "ch_bi_p1"
        cmdSql.CommandType = 4
        'cmdSql.Parameters.Append(cmdSql.CreateParameter("p_org_id", 200, 1, 999, 255))
        'cmdSql.Parameters.Append(cmdSql.CreateParameter("P_CONC_REQUEST_ID", 200, 1, 999, 1))
        'cmdSql.Parameters.Append(cmdSql.CreateParameter("P_SUB_INV", 200, 1, 999, "产成品"))
        cmdSql.Execute()
        cmdSql.Cancel()
        conn.Close()

        'crystalreport
        SQLSTR = "select * from  ch_bi_t1 where sum_close>0 "
        rs = Server.CreateObject("ADODB.RecordSet")
        rs.Open(SQLSTR, STRCON, 3, 1)
        'Label1.Text = rs.Fields(0).Value
        Dim obj As New wip_p
        obj.SetDataSource(rs)
        CrystalReportViewer1.ReportSource = obj

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/12122734/viewspace-524635/，如需转载，请注明出处，否则将追究法律责任。