quote:

---

Originally posted by Kris DExelle

Hi,

When I try to set the ConnectBufferString property, I get the following error:
"this property is currently in a read only state and cannot be modified"
(I'm using Crystal Reports 9)

Any ideas?

Thx,

Kris


Private Sub ConnectReports(ByVal aBuilder As IPreviewBuilder, areportrouter As ReportSourceRouter)
   Dim i As Integer
   Dim strConnectionBuffer
   Dim objDatabaseTable As CRAXDRT.DatabaseTable
   On Error GoTo Cleanup
   
   strConnectionBuffer = _
      "Server=" & m_conMain.Properties("Data Source").Value & ";;" & _
      "User ID=" & m_conMain.Properties("User Name").Value & ";;" & _
      "Password=" & m_conMain.Properties("Password").Value

   For i = 0 To (aBuilder.ReportCount - 1)
      With aBuilder.Report(i).CRReport
         .EnableParameterPrompting = False
         If .Database.Tables.Count > 0 Then
            If Not (aBuilder.Report(i).IsConnected) Then
                     .Database.LogOnServer CR_ORACLEDLL, _
                                    m_conMain.Properties("Data Source").Value, , _
                                    m_conMain.Properties("User Name").Value, _
                                    m_conMain.Properties("Password").Value
               For Each objDatabaseTable In .Database.Tables
                  objDatabaseTable.ConnectBufferString = strConnectionBuffer
               Next
            End If
         End If
      End With
      areportrouter.AddReport aBuilder.Report(i).CRReport
      aBuilder.Report(i).IsConnected = True
   Next i

Cleanup:
...

End Sub

---