20-11-12, 02:01 PM
إخواني عندي مشكلة في الترقيم التلقائي
يقرأ رقم آخر سجل ثم يبدأ من أول سجل و يتوقف عند رقم معين مع العلم أن هذا الرقم موجود أصلا في الجدول
يقرأ رقم آخر سجل ثم يبدأ من أول سجل و يتوقف عند رقم معين مع العلم أن هذا الرقم موجود أصلا في الجدول
كود :
Dim sd As String = "select * from TABLE"
Dim c As New OleDbCommand(sd, cn)
'cn.Open()
Dim r As OleDbDataReader = c.ExecuteReader
Dim m As Integer = 0
While r.Read
m = r!add_no
End While
tEXTBOX1.Text = m + 1
r.Close()
'cn.Close()