+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : سؤال في جملة select top() (/showthread.php?tid=41381)
سؤال في جملة select top() - bassant - 08-05-22
السلام عليكم اخواني
لو يوجد لدي جدول table_1 يوجد به عمود الدرجات degree يحتوي على قيم 10 -20-30-40-50 كيف لي ان اظهر القيمة قبل الاخيرة الا وهي 40
حيث اني يمكنني اظهار اعلى قيمة وهي 50 عن طريق الكود
SELECT TOP (1) degree
FROM dbo.table_1
لكن عندما اريد اظهار قيمة ال 40 واستخدم الكود
SELECT TOP (2 - 1) degree
FROM dbo.table_1
تظهر القيمة 10
فكيف لي ان اظهر القيمة 40
وشكرا لكم
RE: سؤال في جملة select top() - سعود - 24-05-22
PHP كود :
Dim dbpath As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\db.accdb"
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & dbpath
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim con As New OleDb.OleDbConnection(str)
Dim cm As New OleDb.OleDbCommand("", con)
cm.CommandText = "select Top 2 * from tb1 order by tid desc"
Dim dt As New DataTable
If con.State = ConnectionState.Closed Then con.Open()
dt.Load(cm.ExecuteReader)
If dt.Rows.Count > 0 Then
Dim rowindex As Integer = dt.Rows.Count - 1
TextBox1.Text = dt.Rows(rowindex).Item(1) & " - " & dt.Rows(rowindex).Item(2)
End If
dt.Clear()
If con.State = ConnectionState.Open Then con.Close()
End Sub
عدل ما يلزم ليعمل معك
طيب ما رايك بهذا؟
PHP كود :
PHP كود :
Dim dbpath As String = IO.Path.GetDirectoryName(Application.ExecutablePath) & "\db.accdb"
Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=" & dbpath
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
TextBox1.Clear()
Dim con As New OleDb.OleDbConnection(str)
Dim cm As New OleDb.OleDbCommand("", con)
cm.CommandText = "select top 1 * from tb1 where degree<(select top 1 degree from tb1 order by tid desc) order by tid desc"
Dim dr As OleDb.OleDbDataReader
If con.State = ConnectionState.Closed Then con.Open()
dr = cm.ExecuteReader
If dr.HasRows Then
If dr.Read Then
TextBox1.Text = dr(1) & " - " & dr(2)
End If
End If
If con.State = ConnectionState.Open Then con.Close()
dr.Close()