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
