كود توليد الرقم تلقائي

randomize()
textbox1.text = Int(10.0# * Rnd())

مش هو دة الكود المطلوب انا عايز ترقيم تلقائي بالترتيب يعني 1,2,3,4 ....... وهكذا

حط هذا الكود في زر Button كل مره تنقر يزداد بمقدار واحد

dim i as static

i=i+1

me.text1.text=i

اسف الكود خطأ خذ هذا الكود

Static i As Integer

i = i + 1

Me.Button1.Text = i

انا شخصيا ما افضل الطريقة اللي تبغاها انت ولكن للافادة

للحصول على اخر قيمة في العمود المطلوب واضيف عليها رقم واحد ثم اظهرها

أنا واقع بنفس المشكلة فعلاً اريد كود مثلاً يذهب لقاعدة البيانات ويأخذ مثلاً آخر قيمة واضيف عليها رقم واحد تلقائياً في التكست بوكس مثلاً (ID) ويضيفها في قاعدة البيانات مع زر الاضافة انا حاولت لكن :^) للاسف هل يكون مثلاً عن طريق الاحصاء استخدام (Rows.Count)

تفضل الكود واتمنى يكون واضح Dim da As New SqlClient.SqlDataAdapter Dim ds As New DataSet Dim sqlstr As String = "select max(unit_no) as unitno from units" da = New SqlClient.SqlDataAdapter(sqlstr, strcon) da.Fill(ds, "units") Dim unitno As Long unitno = ds.Tables("units").Rows(0).Item("unitno") Me.TextBox1.Text = unitno + 1تفضل الكود واتمنى يكون واضح

        Dim da As New SqlClient.SqlDataAdapter        Dim ds As New DataSet        Dim sqlstr As String = "select max(unit_no) as unitno from units"        da = New SqlClient.SqlDataAdapter(sqlstr, strcon)        da.Fill(ds, "units")        Dim unitno As Long        unitno = ds.Tables("units").Rows(0).Item("unitno")        Me.TextBox1.Text = unitno + 1

فقط اعدل على كود الأخ منير

dim sql as string = "Select Max(Id) From tbl"
dim cmd as new oledb.oledbcommand(sql,connName)
dim obj as object
obj = cmd.ExecuteScalar
if obj is dbnull.value
 textbox1.text=1
else
 textbox1.text=cint(obj)+1
end if

هذه طريقة وهناك طرق اخرى ولكن انا عن نفسي لا افضل اظهار رقم الفاتورة قبل حفظها في قاعدة البيانات خصوصا في البرامج المتعددة المستخدمين لان الرقم لا يكون فعليا لانه اثناء كتابة معلومات الفاتورة يكون شص اخر قد استفاد من الرقم

وافضل طريقة هيه استخدام الـ transaction

والله اعلم