विधि 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 [email protected] and CODE1='CASH' and [email protected]"
cmd2.Parameters.Add("@lbrcode",SqlDbType.VarChar,20).Value=lbr
.....