/ / ऑटो-इंक्रीमेंट आईडी - vb.net, टेक्स्टबॉक्स

ऑटो-इंक्रीमेंट आईडी - vb.net, टेक्स्टबॉक्स

मैं vb.net में ऑटो-इन्क्रिमेंट नंबर बनाना चाहता हूँ जैसे: -

01, 02, 03, 04

आदि .. तो यह क्रम में है।

मैं VB NET 2008 कनेक्शन OleDb को MS Access में उपयोग कर रहा हूं।

उसे यह त्रुटि मिलेगी

ऑपरेटर "+" प्रकार के लिए परिभाषित नहीं है "DBNull" और प्रकार "पूर्णांक"

अगर मेरे पास तालिका में एक खाली रिकॉर्ड है। लेकिन यह काम कर रहा है जब मेरे पास तालिका में कम से कम 1 रिकॉर्ड है

मेरा कोड यहाँ है

Try
cmd = New OleDbCommand(" SELECT MAX(sampleID) FROM 1BK ", cnnOLEDB)
Dim dr As OleDbDataReader = cmd.ExecuteReader
If dr.Read Then
TextBox1.Text = dr.Item(0) + 1
Else
TextBox1.Text = "20120701"
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try

उत्तर:

जवाब के लिए 0 № 1

ऐसा शायद इसलिए है dr.Item(0) अशक्त है, और इसके साथ जोड़ा नहीं जा सकता। मैं यह सुनिश्चित करने के लिए सबसे पहले एक जांच चलाऊंगा dr.Item(0) != null और फिर इसके अतिरिक्त करें। यदि यह अशक्त है, तो बनाओ TextBox1.Text = [YOURSTARTERVALUE];