SQLスロー例外を選択して、データが存在しないというメッセージを表示します。

Question

STSQL = "select STOCKROOM_QTY from mpcs.si_mtipart_info where inv_type = '" & rsMPCS("inv_type") & "' and mti_part_no = '" & rsMPCS("mti_part_no") & "'" 
    rsMPCS2 = MPCS_SELECT_SQL(UCase(STSQL)) 
    If rsMPCS2.HasRows Then 
     Dim CurrentQuan As Long = rsMPCS2("STOCKROOM_QTY") 

     STSQL = "update mpcs.si_mtipart_info set STOCKROOM_QTY = " & (CurrentQuan - NumericUpDown1.Value) & " where inv_type = '" & rsMPCS("inv_type") & "' and mti_part_no = '" & rsMPCS("mti_part_no") & "'" 
     MPCS_UPDATE_SQL(UCase(STSQL)) 

上記のコードは、OracleテーブルのSTOCKROOM_QTYを変更しているものの一部です。

私は取得していますエラーが、私は、SELECTステートメントを実行する場合、それはあなたはそれが存在して見ることができますselect STOCKROOM_QTY from mpcs.si_mtipart_info where inv_type = MACH_PART' and mti_part_no = '01400010005'

を送信しているが

です。

ダウン投票する理由あなたはそれが行われた方法が好きではありませんので。私はそれを研究し、可能な限り明確にし（写真を与えても）、努力もしました。それ以上の情報がなければ誰かが簡単に問題を見ることができました。

Answer 1

あなたはデータリーダーを使用しているようです。その場合は、データにアクセスする前にReadメソッドを呼び出す必要があります。