أريد أحسب أكبر عدد

هناك خطأ في الإستعلام. احذف النجمة.

السلام عليكم

شكرا أستاذي

الكود شغال معي

		Dim connSql As SqlConnection
		Dim cmSql As SqlCommand
		Me.WindowState = FormWindowState.Maximized
		con.Open()
		Dim dremp As SqlDataReader
		connSql = New SqlConnection("Data Source=USER-PC\SQLEXPRESS;Initial Catalog=Project;Integrated Security=True;Pooling=False")
		cmSql = New SqlCommand("procename", connSql)
		cmSql.CommandType = CommandType.StoredProcedure



		'Dim adpt As OleDbCommand = New OleDbCommand("select Max(CompanyId)* from CompanyInfo", con)

		Dim MaxIdCommand As New OleDbCommand
		MaxIdCommand.Connection = con
		MaxIdCommand.CommandType = CommandType.Text
		MaxIdCommand.CommandText = "SELECT Max(CompanyId) AS CountID FROM CompanyInfo;"




		Try

			connSql.Open()


			Dim CountId As String = MaxIdCommand.ExecuteScalar() + 1

			Me.ContractId.Text = CountId
			dremp = cmSql.ExecuteReader()
			Do While dremp.Read()
				Console.WriteLine(dremp("ename").ToString())
			Loop
		Catch err As SqlException
			Console.WriteLine(err.ToString())
		Finally
			connSql.Close()
		End Try

;) ;)

:)

اخي الغالي يجب ان تنتبه لامر ان كانت قاعدة البيانات فارغة يعني يجب ان تفحص الداتاريدر اذا كانت dbnull

شكرا أخي

hussientafserqa

لكن كيف أفحص الداتاريدر اذا كانت dbnull وما الغرض من فحصها

code hunter كتب:

هل الغرض من هذه العمليه هو عمل رقم تسلسلي لكل صنف بحيث انه لا يتكرر ؟

اذا عرفت هدفك استطيع مساعدتك.

نعم الغرض عمل رقم تسلسلي

حيث أني أحسب أكبر عدد ومن ثم أزيد عليه واحد

لكي يظهر في التكس بوكس مباشره

وفي هذه الحاله مستحيل اليوز لايستطيع أن يدخل قيمه حيث تطلع تلقائي

وهكذا أضيفه ألى الديتابيز

الكود شغال معي

بس أذا مسحت record ولنقل رقم 4 وانا عندي

5 record

يعني يكون عندي 1و2و3و5

وفي record القادم نبدا من 6

لكن الأخ ذكر dataNull

حيث أني لم أفهم ماذا يقصد

فكان طرحي لسؤال السابق

وشكرا