能否动态绑定crystal report 报表的数据库服务器名（或IP）？

[fanjingfj]

用VB+SQL做了一个数据查询系统，并设计了一些报表（已绑定好服务器数据库)，打印查询结果数据.运行OK！
现把数据库移到其它主机上（客户端通过读取INI文件可更改登录服务器名，查询数据没问题），但报表定制好为了以前服务器名。不能动态更改，所以不能查询打印数据。。
有没办法能改过来呀。。》？
各位帮帮忙，不胜感激！！

[cailin381x]

我也遇到这个问题 ，我是C#+sql，学习一下

[jieweibin]

用 仅字段的方式就不用绑字数据库了，只需把查询的记录集作为数据源赋给水晶报表就行了，具体可以参考 阿泰的水晶报表博客，窗体代码大概如下(水晶报表)，供参考
Private objCRApp As New CRAXDRT.Application '水晶报表应用程序对象
Private objCRReport As New CRAXDRT.Report '报表对象

Private Sub CRViewer91_PrintButtonClicked(UseDefault As Boolean)

Dim lngRet As Long
'不使用默认设置
UseDefault = False
'进行打印机设置
objCRReport.PrinterSetup Me.hwnd
'直接打印(注意True/False的设置，主要是为了控制前一对话框取消的情况)
objCRReport.PrintOutEx True
End Sub

Private Sub Form_Load()
Dim rst As New ADODB.Recordset
Dim props As CRAXDRT.ConnectionProperties '报表数据源参数集
Dim prop As CRAXDRT.ConnectionProperty '报表数据源参数
'--------------------------------------------------
'构建与定义的记录集对应的数据集结构来模拟一次数据库操作
'以下的操作可以替换成任意的过程,最终目的就是处理成一个记录集
'作为报表的数据来源
'--------------------------------------------------
Set rst = New ADODB.Recordset
rst.Open "pjrpt", db, adOpenKeyset, adLockOptimistic

'创建报表
'--------------------------------------------------
'加载报表模板
Set objCRReport = objCRApp.OpenReport(App.Path & "\PjRpt.rpt", 1)

'加载报表字段定义文件
Set props = objCRReport.Database.Tables(1).ConnectionProperties
For Each prop In props
If InStr(prop.Name, "Field Definition File") > 0 Then
prop.Value = App.Path & "\PjRpt.ttx" '字段定义文件 PjRpt.ttx
Exit For
End If
Next
Set props = Nothing

'清除报表中保持的数据
objCRReport.DiscardSavedData
objCRReport.EnableParameterPrompting = False '不进行报表参数提示
'赋给报表数据
objCRReport.Database.SetDataSource rst
'--------------------------------------------------

'进行报表显示外观设置
'--------------------------------------------------

objCRReport.LeftMargin = 260 '左边距
objCRReport.RightMargin = 10 '右边距

CRViewer91.EnableExportButton = True '导出按钮
' CRViewer91.EnableSelectExpertButton = True
' CRViewer91.DisplayGroupTree = False '不显示组树
' CRViewer91.EnableAnimationCtrl = False
' CRViewer91.EnableCloseButton = False
' CRViewer91.EnableGroupTree = False
' CRViewer91.EnableHelpButton = False
' CRViewer91.EnableRefreshButton = False
CRViewer91.EnableNavigationControls = True '显示总页数和下一页
' CRViewer91.EnablePopupMenu = False
' CRViewer91.EnableSearchControl = False
' CRViewer91.EnableSearchExpertButton = False '查找
' CRViewer91.EnableSelectExpertButton = False
' CRViewer91.DisplayTabs = False

CRViewer91.DisplayBackgroundEdge = False
CRViewer91.EnableAnimationCtrl = False
CRViewer91.EnableCloseButton = False
CRViewer91.EnableGroupTree = False
CRViewer91.EnableHelpButton = False
CRViewer91.EnableRefreshButton = False
CRViewer91.EnableSearchExpertButton = False
CRViewer91.EnableSelectExpertButton = False
'指定报表来源
CRViewer91.ReportSource = objCRReport
'显示报表
CRViewer91.ViewReport
Set rst = Nothing

End Sub

Private Sub Form_Resize()
On Error Resume Next
CRViewer91.Left = 200
CRViewer91.Width = Me.Width - 500
CRViewer91.Height = Me.Height
End Sub