收录日期:2019/01/17 21:34:17 时间:2016/05/26 22:24:01 标签:VB基础类
小弟在设计水晶报表的时候,设置了数据源(为本机上的数据源)。现在因为数据库在另一台机器,我要怎么样才能把报表的数据源设置成另一台机器上数据库(其中数据库为SQL中的存储过程),这样设置不行
Dim rs As New ADODB.Recordset
Dim cn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim para As New ADODB.Parameter
cmd.CommandText = "YZDPrint"                       '存储过程名
cmd.CommandType = adCmdStoredProc
Set para = cmd.CreateParameter("zdid", adVarChar)  '调用存储过程时的参数
cmd.Parameters.Append para
para ="200403001"
Set cmd.ActiveConnection = cn    ’连接对象已打开,在此省略
Set rs = cmd.Execute
Screen.MousePointer = vbHourglass
Report.Database.setdatasource rs
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault
这样设置为什么不行?(还有200分另外开贴)
你的代碼明天測試,今天沒有空.....
Public Function make_connection() As Boolean
    db_err = ""
    ' set the connection string
    Dim connect_str As String
    connect_str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=newman;password=newman;"
    connect_str = connect_str & "Initial Catalog=pubs;Data Source=192.168.11.254;Connect Timeout=30;Application Name=ListenEZ"
    On Local Error GoTo connection_error
    conn.Open connect_str
    make_connection = True
    Exit Function
    
connection_error:
    db_err = "Connect fail !! " & Err.Description
    make_connection = False
    Err.Clear
End Function

Dim rptapp As CRAXDRT.Application
Dim rpt As CRAXDRT.Report
Dim a(), g(1) As Single
Dim t As Integer, dt As Integer

Private Sub Command1_Click()
 CRViewer1.ShowFirstPage
End Sub

Private Sub Command2_Click()
  CRViewer1.ShowPreviousPage
End Sub

Private Sub Command3_Click()
  CRViewer1.ShowNextPage
End Sub

Private Sub Command4_Click()
  CRViewer1.ShowLastPage
End Sub


Private Sub Command5_Click()
  Form2.Hide
  Form1.Show
End Sub

Private Sub Form_Load()
   Set rptapp = CreateObject("crystalruntime.application")
   Set rpt = rptapp.OpenReport(App.Path & "\report.rpt")
   Dim g_sql As String
     g_sql = "select * from fft030735 with(nolock)"
  If Not make_i(g_sql) Then
     MsgBox "B"
      End
   End If
   rpt.DiscardSavedData
   rpt.Database.SetDataSource rs1
   CRViewer1.ReportSource = rpt
   CRViewer1.ViewReport
   CRViewer1.Left = Me.ScaleLeft
   CRViewer1.Top = Me.ScaleTop

   CRViewer1.EnableGroupTree = False
End Sub

如何让两个VLAN中的机器在网上邻居里都能看到服务器? CCTV新闻频道 新闻联播报道 最新教育改革计划. 硬盘也能DOS兼容?求解 七年之痒 如何解决安装软件时出现“RPC占位程序出错” 想自已干或开公司的进来谈谈 英雄帖2003 关于java.rmi.AccessException 真受不了金山的剑侠情缘网络版 计算机运行十几分钟后蓝屏,请问是什么问题? 求助:MSDN中VB的“请参阅、属性、示例”等链接都消失了,卸掉重装还是一样! 请问VC可以调用一个已经写好的汇编的程序吗?不是内联~:( 在win2000和xp下怎么来找到存放系统用户的文件? 关于Global中的Redirect问题 html,javascript的入门电子书籍!百分相送!! 在线等待,C高手们! MM在最需要我的时候,我放弃了......我孤独的游荡,象个孤魂野鬼...... 思归大哥,您在吗?看到后请务必进来看看 如何在NT系统中增加,删除,改变共享??? 关于ACCESS是否有必要安装的怪问题 一个丑人的自白!(强烈推荐) 关于ACCESS是否有必要安装的怪问题 IIS+PHP问题 关于Jsp服务器Resin的使用。 2003中国伟大的软考就要进入倒记时了,大家复习的怎么样了? 网站估价,大家看看做个这样的网站要多少钱呀?http://www.szboai.com.cn/ 如何在linux下面实现asp.net server ? 请问怎样监测网卡的当前传输速率? 请问怎样监测网卡的当前传输速率? 请教窗口融合技术的几个问题,大家帮帮我,急用!