[suliman01]

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

= BindingContext(ds, "st1").Position

[sanyor77]

الكود الذي قمت بتقديمه في سؤالك لا يقوم بجلب آخر اسم في قاعدة البيانات، وإنما يحاول الوصول إلى موضع آخر سجل تم عرضه في عنصر التحكم المرتبط بمصدر البيانات. لجلب آخر اسم موجود في جدول البيانات يجب عليك استخدام عبارة SQL التي تستخدم للاستعلام عن البيانات في قاعدة البيانات والتي يمكن استخدامها في VB.NET باستخدام مكتبة System.Data.SqlClient. وفيما يلي مثال على كيفية جلب آخر اسم موجود في جدول البيانات باستخدام الأمر SELECT في SQL:

كود :

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

حيث تم استخدام الأمر SELECT لاستعراض الأسماء في الجدول myTable، والحصول على أحدث اسم تم إدخاله باستخدام الأمر ORDER BY id DESC واستخدام TOP 1 للحصول على السجل الأول الذي يتوافق مع ذلك.

[HALIM ELEULMA]

يرجى استبدال

كود :

"Your_Connection_String"

بسلسلة الاتصال الخاصة بقاعدة البيانات الخاصة بك و

كود :

"YourTableName"

بالجدول الذي تريد استرجاع الأسماء منه. هذا الكود يسترجع آخر اسم في الجدول ويعرضه في MessageBox. تستطيع تغيير الجزء النهائي من الكود لعرض الاسم في أي وسيلة تفضلها في واجهة المستخدم

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