在客户端运行如下代码出错:
Dim Cn As New ADODB.Connection
Dim AppReport As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Dim StrSales As String
Dim RsSales As New ADODB.Recordset
Cn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=Mysystem;Data Source=01-1300-10"
StrSales = "select * from TestSales"
RsSales.Open StrSales, Cn
Set Report = AppReport.OpenReport("\\01-1300-10\PrintFile\saletest.rpt")
===>运行到此报“activex componet cant create object”
Dim Cn As New ADODB.Connection
Dim AppReport As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Dim StrSales As String
Dim RsSales As New ADODB.Recordset
Cn.Open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=Mysystem;Data Source=01-1300-10"
StrSales = "select * from TestSales"
RsSales.Open StrSales, Cn
Set Report = AppReport.OpenReport("\\01-1300-10\PrintFile\saletest.rpt")
===>运行到此报“activex componet cant create object”
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货