sql-vb.net से अधिकतम मूल्य प्राप्त करना

विधि 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
.....