رفتن به آخرین رکورد جدول توسط DataAdapter , DataRow

[arashjoon]

سلام

می خواستم بدونم چطوری می شه با استفاده از یه DataAdapter , DataSet, DataTable,DataRow توی کل رکوردهای جدول جستجو کرد یا بتونم به آخرین رکورد اون جدول برم و اطلاعات یه فیلد خاص از اونو بیرون بکشم

در حالت عادی با استفاده از یه متغیر از نوع SQLCommand , DataReader این کارو انجام می دم ولی زمانی که جدول خالیه نمی تونم از ExecuteReader در همون ابتدا استفاده کنم اشکال کار کجاست؟

کد خودمم اینه:


Dim Cmd As New SqlCommand
Dim Dtrd As SqlDataReader
Dim str_Code As String = ""

Try
Cmd = New SqlCommand("Select Code_Kala From Tb_Kala", sqlCnn)
Dtrd = Cmd.ExecuteReader

If Dtrd.Read = False Then

Select Case Cmb_Group.SelectedItem
Case "مواد غذایی"
str_Code = "1001"
Case "کامپیوتر"
str_Code = "2001"
Case "لوازم تحریر"
str_Code = "3001"
Case "لوازم اداری"
str_Code = "4001"
Case "تأسیسات"
str_Code = "5001"
Case "ماشین آلات"
str_Code = "6001"
Case "پوشاک"
str_Code = "7001"
End Select

Txt_Code.Text = Cmb_Group.SelectedValue.ToString & "-" & str_Code
Else

Do While Dtrd.Read
Loop

str_Code = Str(Val(Dtrd.Item("Code_Kala")) + 1)
Txt_Code.Text = Cmb_Group.SelectedValue.ToString & "-" & str_Code
End If