Joined
Last Seen
0 Reputation Points
Unknown Quality Score
No one has voted on any posts yet. Votes from other community members are used to determine a member's reputation amongst their peers.
0 Endorsements
Ranked #72.7K
|
dbconn.Open() s = "Select Max(cheque_no) + 1 As NewValue From tblEntry" Dim cmd As SqlCommand = New SqlCommand(s, dbconn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then dr.Read() If IsDBNull(dr("NewValue")) Then empId = 1 Else empId = CInt(dr("NewValue")) + 1 End If Else empId = 1 End If dr.Close() …
|