[أحمد النجار]

بالنسبة للسؤال الأول

لو مثلا الجدول اسمه Table1
والحقل ID

اعمل الجملة كالتالي

كود :

dim cs as new New SqlConnection = "ضع جملة الاتصال بقاعدة البينات هنا"
Dim ds As New DataSet
    Dim sql As String = "Select top 1 id from table1 order by id desc"
   Dim da As New SqlDataAdapter(sql, cs)
da.fill(ds, "Table1")

dim x as integer = Me.BindingContext(ds, "Table1").Current("ID")

textbox1.text = x + 1