收录日期:2018/11/19 05:26:02 时间: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

VB + SQL2000 ,sqlserver占的内存在不断增大。怎么办? ::GetDIBits 返回值为0。请各位指教下。 16*16点阵几处不明白的地方(C语言) 求Java连连看游戏程序 The web application [/s203] created a ThreadLocal with key of type CString怎么替换一个 \\ 字符为两个\\\\字符? PHP输出杨辉三角的问题 &&&&&&&&&&&&&&&&&&&&&问条语句 MyEclipse 9.0安装教程及破解 evc4 源文件打开慢 java 如何获取某一程序的安装路径 [已处理]我的博客是什么原因被屏蔽了呢 初级linux C程序员转C++看什么书啊? 如何让div显示在Iframe上面呢? 求助关于m_pfnCreateObject()的问题 下午好 js提示框请教 为了怕身材走样,结婚以后坚持不生孩子的美女怎么称呼? 在装了加密系统的电脑下,用setupfactory 8.0打包的安装在别的操作系统上不能运行 有没有办法通过处理ICON图标,获得高亮,未激活等多种状态.现在用的ICO转BMP,亮度处理后再转回来,但是效果不好,能直接处理ICO图标吗? 服务器每日备份文件转移到pc机上? MySql 创建表 呃···毛毛虫解释的老霸道了··· 解释一个vector的问题。 有热水了。 关于android中操作sim卡联系人的相关内容 网页嵌套问题 ======================无语,俺公司现在竟然把本论坛给屏蔽了。~~天理何在啊!!!!============================ 请问在如何返回对话框中的文本?? 同一个session为什么jsp页面取得出来 action里取不出来啊