+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استشارة في الكود (/showthread.php?tid=21910)
استشارة في الكود - hikmat - 28-09-17
استخدمت الكود التالي للحصول على أعلى قيمة في عمود مقابل عمود اخر فهل يوجد طريقة اخترافية اخرى لتنفيذ الكود
Sub ser()
Dim da As New OleDbDataAdapter("SELECT Tab_course.num, Tab_course.barcode_deploma, Tab_course.barcode_course, Tab_course.[year of course], Tab_course.start_date, Tab_course.end_date FROM Tab_course WHERE Tab_course.barcode_deploma='" & course_list.TextBox1.Text & "'", con)
Dim dt As New DataTable
da.Fill(dt)
course_list.data_course_view.DataSource = dt
End Sub
Sub ex()
Dim number As String
Dim cmd As New OleDbCommand("select max(barcode_course) from Tab_course", con)
con.Open()
number = cmd.ExecuteScalar
con.Close()
MsgBox(number)
Dim da As New OleDbDataAdapter("SELECT Tab_course.num, Tab_course.barcode_deploma, Tab_course.barcode_course, Tab_course.[year of course], Tab_course.start_date, Tab_course.end_date FROM Tab_course WHERE Tab_course.barcode_course='" & number & "'", con)
Dim dt As New DataTable
da.Fill(dt)
course_list.data_course_view.DataSource = dt
RE: استشارة في الكود - wale90 - 28-09-17
هذا تبسيط
كود :
Sub ex()
Dim da As New OleDbDataAdapter("SELECT * FROM Tab_course WHERE barcode_course=(SELECT MAX(barcode_course) FROM Tab_course)", con)
Dim dt As New DataTable
da.Fill(dt)
course_list.data_course_view.DataSource = dt
End Sub