[suliman01]

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

     =   BindingContext(ds, "st1").Position 

[HALIM ELEULMA]

طبعًا، يمكنك استخدام SQL لجلب أخر اسم في قاعدة البيانات عند النقر على زر Button4. هنا مثال على كيفية فعل ذلك باستخدام مكتبة ADO.NET في VB.NET:

PHP كود :

Imports System.Data.SqlClient ' يجب استبدالها بمكتبة الاتصال المناسبة إذا كنت تستخدم قاعدة بيانات غير SQL Server

Public Class Form1
    Dim connectionString As String = "YourConnectionStringHere" ' استبدل هذا بسلسلة الاتصال الخاصة بك

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Try
            Dim query As String = "SELECT TOP 1 NameColumn FROM YourTableName ORDER BY IDColumn DESC" ' استبدل YourTableName و NameColumn و IDColumn بالاسماء الصحيحة
            Using connection As New SqlConnection(connectionString)
                Using command As New SqlCommand(query, connection)
                    connection.Open()
                    Dim result As Object = command.ExecuteScalar()
                    If result IsNot Nothing Then
                        MessageBox.Show("أخر اسم في قاعدة البيانات هو: " & result.ToString(), "الاسم")
                    Else
                        MessageBox.Show("لا يوجد أسماء في قاعدة البيانات.", "تنبيه")
                    End If
                End Using
            End Using
        Catch ex As Exception
            MessageBox.Show("حدث خطأ: " & ex.Message, "خطأ")
        End Try
    End Sub
End Class 


يرجى استبدال "YourConnectionStringHere" بسلسلة الاتصال الخاصة بك وتغيير الأسماء "YourTableName" و "NameColumn" و "IDColumn" بالأسماء الصحيحة لجدولك وأعمدتك.

هذا الكود يستخدم استعلام SQL

كود :

SELECT TOP 1

لاسترداد أخر اسم في قاعدة البيانات، حيث يتم ترتيبه بناءً على العمود الذي يحتوي على معرف فريد (مثل الـ ID) بترتيب تنازلي

كود :

ORDER BY IDColumn DESC

، ويستخدم

كود :

ExecuteScalar()

لاسترجاع قيمة واحدة من الاستعلام.