[HELP] Crystal report fields displaying blanks.
-
I have created crystal report in VS 2012 using ado.net dataset object. I don't know what i did wrong or what i didn't do. this is my codes: Dim rpt As New Accept Dim con As New MySqlConnection Dim cmd As New MySqlCommand Dim da As New MySqlDataAdapter Dim ds As New asset_dbDataSet Try con = New MySqlConnection("server=localhost;userid=root;password=123456;database=asset_db") cmd.Connection = con cmd.CommandText = "SELECT request_number, request_date, asset_name, asset_amount, asset_quantity ,reason_to_buy, tbl_asset_request.department_code, tbl_asset_request.group_code, tbl_asset_request.supplier_code, concat(DATEDIFF( DATE_ADD(request_date, INTERVAL +30 DAY),current_timestamp) , ' DAYS LEFT ') AS DiffDate FROM tbl_asset_request join tbl_account_group on tbl_asset_request.group_code = tbl_account_group.group_code join tbl_department on tbl_asset_request.department_code = tbl_department.department_code join tbl_supplier on tbl_asset_request.supplier_code = tbl_supplier.supplier_code where asset_status = " & account_payable_form.num_counter & " order by request_number" cmd.CommandType = CommandType.Text da.SelectCommand = cmd da.Fill(ds, "tbl_asset_request, tbl_department, tbl_supplier, tbl_account_group") rpt.SetDataSource(ds) rpt.SetDatabaseLogon("root", "123456") CrystalReportViewer1.ReportSource = rpt Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
-
I have created crystal report in VS 2012 using ado.net dataset object. I don't know what i did wrong or what i didn't do. this is my codes: Dim rpt As New Accept Dim con As New MySqlConnection Dim cmd As New MySqlCommand Dim da As New MySqlDataAdapter Dim ds As New asset_dbDataSet Try con = New MySqlConnection("server=localhost;userid=root;password=123456;database=asset_db") cmd.Connection = con cmd.CommandText = "SELECT request_number, request_date, asset_name, asset_amount, asset_quantity ,reason_to_buy, tbl_asset_request.department_code, tbl_asset_request.group_code, tbl_asset_request.supplier_code, concat(DATEDIFF( DATE_ADD(request_date, INTERVAL +30 DAY),current_timestamp) , ' DAYS LEFT ') AS DiffDate FROM tbl_asset_request join tbl_account_group on tbl_asset_request.group_code = tbl_account_group.group_code join tbl_department on tbl_asset_request.department_code = tbl_department.department_code join tbl_supplier on tbl_asset_request.supplier_code = tbl_supplier.supplier_code where asset_status = " & account_payable_form.num_counter & " order by request_number" cmd.CommandType = CommandType.Text da.SelectCommand = cmd da.Fill(ds, "tbl_asset_request, tbl_department, tbl_supplier, tbl_account_group") rpt.SetDataSource(ds) rpt.SetDatabaseLogon("root", "123456") CrystalReportViewer1.ReportSource = rpt Catch ex As Exception MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) End Try
Hmm, i'm assuming no data is displayed in the report? Run the SQL through the database and check that the query results are as expected. i'm not familiar with CR under VB... Also, this is the lounge and i'm pretty sure you'll need to post this in Q&A or Quick Answers.