[VB.NET] كود جلب اخر اسم في قاعدة البيانات عن طريق button4

كود :

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

    Dim connection As New SqlConnection("Data Source=myServerAddress;Initial Catalog=myDataBase;User Id=myUsername;Password=myPassword;")

    Dim command As New SqlCommand("SELECT TOP 1 name FROM myTable ORDER BY id DESC", connection)



    connection.Open()

    Dim reader As SqlDataReader = command.ExecuteReader()



    If reader.Read() Then

        Dim name As String = reader.GetString(0)

        ' استخدم الاسم المسترجع كما تريد هنا ...

    End If



    reader.Close()

    connection.Close()

End Sub

PHP كود :

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    ' افتح الاتصال بقاعدة البيانات
    Using connection As New SqlConnection("Your_Connection_String")
        connection.Open()

        ' قم بإنشاء استعلام SQL لاسترجاع آخر اسم من الجدول
        Dim query As String = "SELECT TOP 1 Name FROM YourTableName ORDER BY ID DESC"

        ' أنشئ SqlCommand لتنفيذ الاستعلام
        Using command As New SqlCommand(query, connection)
            ' قم بقراءة النتيجة
            Dim result As Object = command.ExecuteScalar()

            ' تحقق مما إذا كان هناك نتيجة
            If result IsNot Nothing Then
                ' قم بعرض الاسم في MessageBox أو في Label أو TextBox أو أي عنصر واجهة مستخدم آخر
                MessageBox.Show($"آخر اسم في قاعدة البيانات هو: {result.ToString()}")
            Else
                ' في حالة عدم وجود بيانات
                MessageBox.Show("لا توجد بيانات في الجدول.")
            End If
        End Using
    End Using
End Sub