ماکزیمم رکورد

[elnazii]

سلام لطفا فوری :
می خوام در جدولم که SQL هست در یک فیلدی ماکزیمم مقدار رو پیدا کنم بعد بعلاوه یک کنم و در یک textbox نشون بدم . کد های من اینطوریه :


Dim cn1 As New SqlConnection(strcon)
cn1.Open()
Dim strsql As String
Dim cmd1 As New SqlCommand

strsql = " select max(code_dore) from dore"
cmd1.Connection = cn1
cmd1.CommandText = strsql
Dim myreader As SqlDataReader

Dim result As SqlDataReader = cmd1.ExecuteReader()
myreader = result
TextBoxX1.Text = myreader("code_dore")


cn1.Close()


چه اشکالی داره که خطا می ده به Code_dore ؟؟؟

[salehbagheri]

دوست عزيز

لطفاً متن خطا رو اينجا قرار بديد.

[Open-Source]

فکر کنم این خط رو جا انداختی:


result.Read()


به علاوه میتونی بوسیله Identity@@ آخرین مقدار رکوردت رو بدست بیاری(اگه کلیدت Identity باشه).

[DoDoklak]

Dim result As SqlDataReader = cmd1.ExecuteReader()
myreader = result

دستور cmd1.ExecuteReader برای برگشت یک یا چند سطر به کار میره وچون Query شما فقط یک عدد را برگشت میده از دستور cmd1.ExecuteScaler استفاده کنید و در ضمن در این نمونه کد شما احتیاجی به استفاده از SQLdataReader نیست کدتون رو به این روش اصلاح کنید



Dim cn1 AsNew SqlConnection(strcon)
cn1.Open()
Dim strsql AsString
Dim cmd1 AsNew SqlCommand

strsql = " select max(code_dore) from dore"cmd1.Connection = cn1
cmd1.CommandText = strsql

TextBoxX1.Text = cmd1.ExecuteScaler+1

cn1.Close()

[Hossein Bazyan]

سلام لطفا فوری :
می خوام در جدولم که SQL هست در یک فیلدی ماکزیمم مقدار رو پیدا کنم بعد بعلاوه یک کنم و در یک textbox نشون بدم . کد های من اینطوریه :


Dim cn1 AsNew SqlConnection(strcon)
cn1.Open()
Dim strsql AsString
Dim cmd1 AsNew SqlCommand

strsql = " select max(code_dore) from dore"
cmd1.Connection = cn1
cmd1.CommandText = strsql
Dim myreader As SqlDataReader

Dim result As SqlDataReader = cmd1.ExecuteReader()
myreader = result
TextBoxX1.Text = myreader("code_dore")


cn1.Close()


چه اشکالی داره که خطا می ده به Code_dore ؟؟؟

سلام
اینو امتحان کن

strsql = " select max(code_dore) AS XXXX from dore"
TextBoxX1.Text = myreader("XXXX")