16-01-23, 08:02 PM
27-03-23, 02:40 PM
الكود الذي قمت بتقديمه في سؤالك لا يقوم بجلب آخر اسم في قاعدة البيانات، وإنما يحاول الوصول إلى موضع آخر سجل تم عرضه في عنصر التحكم المرتبط بمصدر البيانات. لجلب آخر اسم موجود في جدول البيانات يجب عليك استخدام عبارة SQL التي تستخدم للاستعلام عن البيانات في قاعدة البيانات والتي يمكن استخدامها في VB.NET باستخدام مكتبة System.Data.SqlClient. وفيما يلي مثال على كيفية جلب آخر اسم موجود في جدول البيانات باستخدام الأمر SELECT في SQL:
حيث تم استخدام الأمر SELECT لاستعراض الأسماء في الجدول myTable، والحصول على أحدث اسم تم إدخاله باستخدام الأمر ORDER BY id DESC واستخدام TOP 1 للحصول على السجل الأول الذي يتوافق مع ذلك.
كود :
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 للحصول على السجل الأول الذي يتوافق مع ذلك.
05-01-24, 01:19 AM
يرجى استبدال
بسلسلة الاتصال الخاصة بقاعدة البيانات الخاصة بك و
بالجدول الذي تريد استرجاع الأسماء منه. هذا الكود يسترجع آخر اسم في الجدول ويعرضه في MessageBox. تستطيع تغيير الجزء النهائي من الكود لعرض الاسم في أي وسيلة تفضلها في واجهة المستخدم
كود :
"Your_Connection_String"كود :
"YourTableName"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