+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : مشكلة في الترقيم التلقائي (/showthread.php?tid=7055)
مشكلة في الترقيم التلقائي - VB.NET - 20-11-12
إخواني عندي مشكلة في الترقيم التلقائي
يقرأ رقم آخر سجل ثم يبدأ من أول سجل و يتوقف عند رقم معين مع العلم أن هذا الرقم موجود أصلا في الجدول
كود :
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()مشكلة في الترقيم التلقائي - VB.NET - 20-11-12
مع العلم أنه شغال مع جدول آخر بدون أخطاء
مشكلة في الترقيم التلقائي - zeus - 20-11-12
تفضل يا اخي كود سهل ومفهوم
PHP كود :
Dim billno As New OleDbCommand("SELECT max(bill) From sales", con)
If con.State = ConnectionState.Open Then con.Close()
con.Open()
If billno.ExecuteScalar Is DBNull.Value Then
TextBox11.Text = 1
con.Close()
Else
TextBox11.Text = billno.ExecuteScalar + 1
con.Close()