16-01-23, 08:06 PM
06-01-24, 02:32 AM
طبعًا، يمكنك استخدام SQL لجلب أخر اسم في قاعدة البيانات عند النقر على زر Button4. هنا مثال على كيفية فعل ذلك باستخدام مكتبة ADO.NET في VB.NET:
يرجى استبدال "YourConnectionStringHere" بسلسلة الاتصال الخاصة بك وتغيير الأسماء "YourTableName" و "NameColumn" و "IDColumn" بالأسماء الصحيحة لجدولك وأعمدتك.
هذا الكود يستخدم استعلام SQL
لاسترداد أخر اسم في قاعدة البيانات، حيث يتم ترتيبه بناءً على العمود الذي يحتوي على معرف فريد (مثل الـ ID) بترتيب تنازلي
، ويستخدم
لاسترجاع قيمة واحدة من الاستعلام.
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كود :
ORDER BY IDColumn DESCكود :
ExecuteScalar()