crystal 9.0 無法動態添加數據庫連接???請9.0的高手幫助

Question

xtrpt 為Report對象
在8.5下 xtRpt.Database.AddADOCommand mCnn, mCmd 正常
在9.0下 xtRpt.Database.AddADOCommand mCnn, mCmd 出錯
錯誤信息:creation feature  not enabled.
報表運行環境:9.0 + vb

Answer 1

請各路高手幫忙,急急!!!!!!!我的郵箱為[email protected],如果解決另加200分

Answer 2

' *************************************************************
' Purpose:  Demonstrate new methods of adding ADO connections to reports
'           (New to Crystal Reports 8.0)
'
'           There are two new methods that provide a convenient
'           way to add ADO data sources to a report:
'           1.) AddADOCommand takes as parameters an active ADO connection
'           and an ADO command object.  In this example, a new connection
'           is created to a database, and the resulting recordset is assigned
'           at runtime to the report
'           2.) AddOLEDBSource takes as parameters the name of an active
'           ADO connection and the name of a table that can be accessed
'           through that connection.  In this example, the connection set
'           up through the VB Data Environment is used as a data source.
'
'           Both methods can be used with either the VB Data Environment
'           or another data source created at runtime.
'           Notice in the Crystal Report design environment that there is
'           no data source attached to the report at design time.
'
Option ExplicitDim m_Report As New CrystalReport1' The ADO connection to the local database.
Dim cnn1 As ADODB.Connection
Dim datcmd1 As ADODB.Command' *************************************************************
' Demonstrate the use of AddADOCommand by opening an ADO data command,
' adding the data source to the report, and then adding a field
' to the report that uses that data source.
'
Private Sub cmdADO_Click()
    Dim fld As FieldObject
    Dim strCnn As String
    
    ' Open the data connection
    Set cnn1 = New ADODB.Connection
    strCnn = "Provider=MSDASQL;Persist Security Info=False;Data Source=Xtreme Sample Database 9;Mode=Read"
    cnn1.Open strCnn    ' Create a new instance of an ADO command object
    Set datcmd1 = New ADODB.Command
    Set datcmd1.ActiveConnection = cnn1
    datcmd1.CommandText = "answers"
    datcmd1.CommandType = adCmdTable    ' Add the datasource to the report
    m_Report.Database.AddADOCommand cnn1, datcmd1
    ' Add a new field object to the report and set the field object to use
    ' the new data source.
    Set fld = m_Report.Section3.AddFieldObject("{ado.answers answer}", 0, 0)
    LoadReport
End Sub' *************************************************************
' Demonstrate the use of AddOLEDBSource by opening an ADO data source,
' adding the data source to the report, and then adding a field
' to the report that uses that data source.  In this example, the
' OLEDB source in the VB Data Environment is used
'
Private Sub cmdOLEDB_Click()
    Dim fld As FieldObject
    
    ' Add the datasource to the report
    m_Report.Database.AddOLEDBSource DataEnvironment1.Connection1, "Customer"
    ' Add a new field object to the report and set the field object to use
    ' the new data source.
    Set fld = m_Report.Section3.AddFieldObject("{Customer.Customer Name}", 0, 0)
    LoadReport
End Sub' *************************************************************
' Load the Report in the viewer
'
Private Sub LoadReport()
    Screen.MousePointer = vbHourglass
    CRViewer1.ReportSource = m_Report
    CRViewer1.ViewReport
    Screen.MousePointer = vbDefault
    cmdOLEDB.Enabled = False
    cmdADO.Enabled = False
End Sub' *************************************************************
Private Sub cmdAbout_Click()
    frmAbout.Show vbModal
End Sub' *************************************************************
Private Sub cmdExit_Click()
    Unload Me
End Sub

Answer 3

to  lihonggen0(李洪根，MS MVP，标准答案来了) 
   首先感謝你,這種方法我也知道,問題是xtRpt.Database.AddADOCommand mCnn, mCmd 在引用8.0,8.5中都是正確的,引用9.0時,錯誤信息:creation feature  not enabled,所有代碼都相同,而且原有的報表已經改為9.0報表,請李大俠幫兄弟看看:)
mCnn:ADO.Connection
mCmd:Ado.Command