Crystal Reports，Visual Basic 2010和mysql報告

Question

我試圖在Crystal Reports中創建報告，但是當我將參數分配給報告時，它不顯示選擇查詢的結果。它顯示錶格的所有列，儘管選擇查詢的結果是正確的。這是我的代碼：

Dim ulogueado, consulta As String  
    consulta = "select nombre from usuario where usuario = @user" 
    Dim lector1 As MySqlDataReader 
    Dim comando As New MySqlCommand(consulta, conector) 
    comando.Parameters.AddWithValue("@user", usuario_conectado) 
    Try 
     lector1 = comando.ExecuteReader() 
     If lector1.Read Then 
      ulogueado = lector1.GetString(0) 
     End If 
     Dim reporte1 As New CrystalReport3 
     reporte1.SetDataSource(lector1.GetString(0)) 
     reportes1.CrystalReportViewer1.ReportSource = reporte1 
     reportes1.CrystalReportViewer1.RefreshReport() 
    Catch ex As Exception 
    End Try 
    reportes1.Show() 

我幾乎可以肯定問題可能在SetDataSource行，但我不知道我還能做什麼。我很感謝你對這個問題的關注和合作。

Answer 1

由於documentation說，你需要一個記錄集或數據集傳送到ReportEngine，而你是通過其返回一個字符串

reporte1.SetDataSource(lector1.GetString(0)) 

更改語句使用DataReader應該解決問題的DataReader的場如

reporte1.SetDataSource(lector1) 

我還沒有使用MySqlDataReader作爲數據源，但已經使用DataSet來生成效果很好的報告。

您需要檢查的另一件事是上面我的comment中提到的保存的數據。如果您在您的報告中使用的參數再有其他的方式來值傳遞給這些參數，請參閱how-to-pass-values-to-two-different-parameters

編輯：使用DataSet中

Dim ulogueado, consulta As String  
consulta = "select nombre from usuario where usuario = @user" 
Dim comando As New MySqlCommand(consulta, conector) 
comando.Parameters.AddWithValue("@user", usuario_conectado) 
Dim da As MySqlDataAdapter = New MySqlDataAdapter() 
Dim ds As DataSet = New DataSet() 
da.SelectCommand = comando 
Try 
    da.Fill(ds, "usuario") 
    Dim reporte1 As New CrystalReport3 
    reporte1.SetDataSource(ds) 
    reportes1.CrystalReportViewer1.ReportSource = reporte1 
    reportes1.CrystalReportViewer1.RefreshReport() 
Catch ex As Exception 
    'Check for errors here 
    'MsgBox(ex.Message) 
End Try 
reportes1.Show() 

有關DataAdapters更多信息，DataSet中你可以看一下這SO post connecting-to-a-mysql-db-with-c-sharp-need-some-with-datasets