欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

vb 调用水晶表格

更新时间: 2014-01-05 03:07:14 责任编辑: Author_N1

 

vb 调用水晶报表
vb 调用水晶报表,要传递给水晶报表 连接sql的信息 还有参数字段值,改如何做!
我写了个代码如下:
Option Explicit
Private objCRApp As New CRAXDRT.Application    '水晶报表应用程序对象
Private objCRReport As New CRAXDRT.Report             '报表对象
Private Sub Form_Load()
  Dim props As CRAXDRT.ConnectionProperties     '报表数据源参数集
    Dim prop As CRAXDRT.ConnectionProperty        '报表数据源参数
   Dim adoCon As New ADODB.Connection
     Dim rst As New ADODB.Recordset
     Dim CnnStr As String
Dim strSQL As String
      rst.CursorLocation = adUseClient
     CnnStr = ""
 CnnStr = "provider=SQLOLEDB;Data Source=192.168.0.11;Database=Demo_app ;UID=dm1;PWD=dm1;"
  strSQL = "SELECT top 5 description FROM item_all "
     adoCon.Open CnnStr
     rst.Open strSQL, adoCon, adOpenStatic, adLockReadOnly
      Dim strTotal As String
     strTotal = ""
 adoCon.CursorLocation = adUseClient
 Set objCRReport = objCRApp.OpenReport(App.Path & "\report.rpt", 1)
 Set props = Nothing
'    清除报表中保持的数据
 
   
    '让模板中设置的参数不出现提示框!!!!
    objCRReport.EnableParameterPrompting = True '不进行报表参数提示
     objCRReport.DiscardSavedData
  '  赋给报表数据
 objCRReport.Database.SetDataSource rst, 3, 1
       '指定报表来源
    CRViewer91.ReportSource = objCRReport
    '显示报表
    CRViewer91.ViewReport
    
   Set rst = Nothing
运行后水晶报表提示 该字段未知!
帮看看什么问题啊!
--参考方法--
changechange

大侠是Access专家,是其他数据库开发大版技术专家分NO.1。

抱歉这里 水晶报表 方面的高手不多,看看帖子回复数就知道了。
--参考方法--
你的代码上并没有什么问题,但可能代码和报表模板不匹配

SELECT top 5 description FROM item_all 

注意看一下你的模板里设计的时候,表名和字段是不是跟上面的一样
而且,你的报表里是否有公式等里面用到了字段,但是字段输入错误
或者
你后来更改了数据表结构,但没有同步更新报表模板?
--参考方法--
。。
我所有的文章都没用过这句:
rpt.Database.LogOnServer "p2ssql.dll", "Demo_app", "192.168.0.11", "sa", "gming751112" 

呵呵~~

而且你如果用了ttx模式的话,那么
Dim tbl As CRAXDDRT.DatabaseTable 
Dim tbls As CRAXDDRT.DatabaseTables
这两句是不要用的 

这两篇你看过吗?
http://www.cnblogs.com/babyt/archive/2005/03/11/116878.html
http://www.cnblogs.com/babyt/archive/2005/03/11/116880.html

看会了这个,用VB开发水晶报表基本上可以全部做下来的。
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 03:07:14
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/18539/
本文WWW.DOC100.NET DOC100.NET版权所有。