اضافه كردن هنگام ثبت اطلاعات در.....

[karim orooji]

با سلام به دوستان گلم
چطوري كاري كنم كه زماني بانكم خالي هيچ درش نيست
زماني كه من ميخوام نفري رو اضافه كنم شماره رديف اونو به صورت دستي گذاشتم
كه يكي به شماره قبلي اضافه كنه شماره ردف فردي كه ميخواد ثبت بشه
تا اين مشكلي نيست ولي اگه بان خالي باشه شماره در بانك موجود نيست چطور بياد براي من شماره بزاره از دستور if هم استفاده كردم

If txt_id.Text = 0 Then

txt_id.Text = +1
Else

txt_id.Text = copy.Text + 1
End If

نشد
راهنمايي ميخوام

[majid_vb_2008]

آخرين شماره رو با اين كد بدست بيار


Dim a As Object, P As Integer

con.Open()
strsql = "SELECT MAX(Id)FROM Chak"
com = New SqlCommand(strsql, con)
Dim A As Object = com.ExecuteScalar, P As Integer
If A1.ToString <> "" Then
P = CType(A1, Integer) + 1
con.Close()
Else
P = 1
con.Close()
End If

با اين كد آخرين شماره بانك بدست مي ياد بعد اگر بانك خالي باشه عدد 1 رو بر مي گردنه و اگر عددي توي بانك باشه يك دونه به اون اضافه مي كنه