推 fumizuki:cmdSQL 沒有命令文字？ 10/12 12:41
※ 編輯: shuuns 來自: 61.59.236.116 (10/20 23:18)
------------------------------------------------------------------------
| ！ 類型 'System.NullReferenceException' 的未處理例外狀況發生於 |
| WizExportOper.exe |
| |
| 其他資訊: 並未將物件參考設定為物件的執行個體 |
------------------------------------------------------------------------
請問一下這個錯誤訊息是什麼意思 我不知道怎麼了
我照著書上做 大概的意思是要把SQLcommand查詢所得的資料傳入DataSet中
然後再用CrystalReport讀出來
但是看來應該是在將SqlDataReader填入DataRow時出錯
以下是我的程式碼 麻煩大家幫我解答 謝謝
'定義ReportDocument物件
Dim objRptDoc As New ReportDocument()
'定義DataReader物件
Dim rdrPR210 As SqlDataReader
'定義DataTable物件
Dim dtPR210 As New DataTable()
'定義DataRow物件
Dim drPR210 As DataRow
'把資料集的表格指向dt
dtPR210 = DsExport1.Tables("dsExport2")
'賦予cmdSQL參數值
With cmdSQL
.Parameters("@PurchaseID").Value = "purchase1"
'.Parameters("@PurchaseID").Value = PurchaseID
End With
cnDB.Open()
rdrPR210 = cmdSQL.ExecuteReader(CommandBehavior.CloseConnection)
Do While rdrPR210.Read
drPR210 = dtPR210.NewRow()
drPR210("PurchaseID") = rdrPR210.GetString(0) '是這裡出錯的
drPR210("PurchaseDate") = rdrPR210.GetDateTime(1)
drPR210("SupplierID") = rdrPR210.GetString(2)
drPR210("SupplierName") = rdrPR210.GetString(3)
drPR210("ProductID") = rdrPR210.GetString(4)
drPR210("ProductName") = rdrPR210.GetString(5)
drPR210("PurchaseProperty") = rdrPR210.GetString(6)
drPR210("PurchaseAmount") = rdrPR210.GetDecimal(7)
drPR210("PurchaseUnitPrice") = rdrPR210.GetDecimal(8)
drPR210("PurchaseQuantity") = rdrPR210.GetDecimal(9)
dtPR210.Rows.Add(drPR210)
Loop
Try
objRptDoc.Load("D:\Subject\練習的\WizExportOper\crExport2.rpt")
objRptDoc.SetDataSource(DsExport1)
CRV.ReportSource = objRptDoc
Catch err As System.SystemException
MessageBox.Show(err.ToString, "error", MessageBoxButtons.OK,
MessageBoxIcon.Error)
End Try
--
你可以試著將sunnys倒過來看看。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 61.59.237.109