منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم اريد حل لمشكلة وهيا استدعاء اخر قيمة في حقل لجدول .... وقمت بكتابة هدا الكود ولكنه يستدعى في اول قيمة في الحقل ياريت لو في احد يحل لي المشكلة وشكرا

(28-04-18, 04:25 PM)mawadaalmogrbi كتب : [ -> ]السلام عليكم اريد حل لمشكلة وهيا استدعاء اخر قيمة في حقل لجدول .... وقمت بكتابة هدا الكود ولكنه يستدعى في اول قيمة في الحقل ياريت لو في احد يحل لي المشكلة وشكرا

PHP كود :

con1.Open()
        sh1.CommandText = "select * from tre1"
        Dim r1 As SqlDataReader
        r1 = sh1.ExecuteReader
        If r1.Read Then
            T3.Text = r1("tre_now")
            con1.Close()
        End If 


select top 1 (NoteID) from tre1  ORDER BY NoteID desc

وممكن بواسطة
 select Last(age) from tb

(29-04-18, 12:04 AM)سعود كتب : [ -> ]اخي سعود ياريت تفهمني اكتر الطريقا البسيطة من بينهم

وممكن بواسطة
 select Last(age) from tb

كود :

Public Class Form1
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Button1.Enabled = False
       Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
           Using cm As New OleDb.OleDbCommand("insert into tb(tname) values(@tname)", con)
               cm.Parameters.AddWithValue("@tname", TextBox1.Text)
               If con.State = ConnectionState.Closed Then con.Open()
               cm.ExecuteNonQuery()
               If con.State = ConnectionState.Open Then con.Close()
           End Using
       End Using
       TextBox1.Clear()
       Button2.Select()
       Button1.Enabled = True
   End Sub
   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Button2.Enabled = False
       Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
           Using cm As New OleDb.OleDbCommand("select last(tname) from tb", con)
               If con.State = ConnectionState.Closed Then con.Open()
               ToGet.Text = cm.ExecuteScalar.ToString
               If con.State = ConnectionState.Open Then con.Close()
           End Using
       End Using
       Button2.Enabled = True
   End Sub
End Class