منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

استخدمت الكود التالي للحصول على أعلى قيمة في عمود مقابل عمود اخر فهل يوجد طريقة اخترافية اخرى لتنفيذ الكود
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

هذا تبسيط

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

hikmat

wale90