-1

SQL から最大値を取得しようとしています - vb.net

これは私のコードです:私はこのエラーが発生します:

タイプ「System.DBNull」のオブジェクトをタイプ「Oracle.DataAccess.Client.OracleDataReader」にキャストできません

助けてください。:(

Dim cmd2 As New OracleCommand
cmd2.Connection = conn
'SELECT MAX(LASTNO) FROM d001005 where lbrcode = '104' and CODE1 = 'CASH' and lnodate = '14-NOV-08' 
Dim datepara As String = Date.Now.ToString("dd-MMM-yy")
'datepara = "14-NOV-08"
cmd2.CommandText = "SELECT MAX(LASTNO) FROM d001005 where lbrcode = '" + lbr + "' and CODE1 = 'CASH' and lnodate = '" + datepara + "'"
cmd2.CommandType = CommandType.Text
Dim dr2 As OracleDataReader = cmd2.ExecuteScalar
Dim result As Decimal = dr2.Item("LASTNO")
4

2 に答える 2

3

メソッドExecuteScalar()が返さSystem.Objectれるので、コードを変更してください。

 Dim value=cmd2.ExecuteScalar()
 IF Not IsNoThing(value) Then
    result=Decimal.Parse(value.ToString())
 End IF

または、ExecuteReader を使用できます。

   Dim dr2 As OracleDataReader = cmd2.ExecuteReader()
    Dim value as Decimal
    If dr2.Read() Then
       IF Not dr2.IsDbNull(0)
           Value=dr2.GetDecimal(0)
       End IF
    End If

また、ハードコーディングされた SQL 文字列ではなく、常にパラメーターを使用してください。

cmd2.CommandText = "SELECT MAX(LASTNO) FROM d001005 where lbrcode=@lbrcode and CODE1='CASH' and lnodate=@lnodate"
cmd2.Parameters.Add("@lbrcode",SqlDbType.VarChar,20).Value=lbr
.....
于 2012-08-29T05:49:35.903 に答える
2

集計関数を使用して最大値を調べているため、 「LASTNO」という名前の項目はありません。さらに、 ExecuteScalarは最初の行の最初の値を返します。もう 1 つのポイントは、SQL インジェクションを防ぐために、あらゆる種類の動的ステートメントにOracleParameterを使用する必要があることです。

Dim cmd2 As New OracleCommand
cmd2.Connection = conn
Dim datepara As String = Date.Now.ToString("dd-MMM-yy") ' see hint below

cmd2.CommandText = "SELECT MAX(LASTNO) as maxLastNo FROM d001005 where lbrcode = :lbr and CODE1 = 'CASH' and lnodate = :lnodate"

' add parameter value directly
cmd2.Parameters.AddWithValue("lbr", lbr)   ' lbr seems to be your var which holds the according value

' or create parameter object and set type and add it afterwards
Dim param as new OracleParameter
param.ParameterName = "lnodate"
param.Value = datepara    ' or any other value (furthermore: no need to convert to string)
param.ParameterType = OracleType.DateTime ' or OracleType.Varchar which is set by default
cmd2.CommandType = CommandType.Text

Dim val = cmd2.ExecuteScalar()
if Not val is Nothing then
    Dim maxValue as Decimal = Convert.ToDecimal(val)
    Console.WriteLine(maxValue)
End if
于 2012-08-29T06:06:14.267 に答える