1。FastReport使用的数据库连接列在注册表 HKEY_LOCAL_MACHINE/SOFTWARE/Fast Reports/Connections下面。可以在启动报表操作前,修改该注册表的值实现动态连接。
2。另一个方法是 修改 TfrxADODatabase 对象的属性 'DatabaseName'. 比如:
Dim database_obj As TfrxADODatabase
' Find database object
Set database_obj = report.FindObject("ADODatabase1")
If database_obj Is Nothing Then
MsgBox "ADO connection object 'ADODatabase1' not found"
Else
Rem MsgBox "ADO connection string: " + Trim$(database_obj.ConnectionString)
' You can set connection string instead of showing it.
End If
Set database_obj = Nothing