أتوفر على كائن من نوع ListOf على تطبيق Vb.net، وكما يعلم الجميع هذا النوع يحتوي على بنية من شكل Key-Value، أريد من خلال دالة أعطيها كمُدخل ListOf أن ترجع Keys فقط، وهذا ما حاولت فعله عن طريق هذا الكود:
Private Function GetReasons() As List(Of KeyValuePair(Of Integer, String))
Dim returnValue As New List(Of KeyValuePair(Of Integer, String))
Dim con As New SqlConnection(SCRGlobals.ConnectionString)
Dim cmd As New SqlCommand("SELECT CODE, DESC FROM ltblDELAY", con)
cmd.CommandType = CommandType.Text
Try
con.Open()
Dim c As SqlDataReader = cmd.ExecuteReader()
While c.Read
returnValue.Add(New KeyValuePair(Of Integer, String)(c("CODE"), c("DESC")))
End While
Catch ex As Exception
Common.LogError(ex, True, False)
Finally
If con.State <> ConnectionState.Closed Then
con.Close()
End If
End Try
Return returnValue
End Function
السؤال
Badraoui
أتوفر على كائن من نوع ListOf على تطبيق Vb.net، وكما يعلم الجميع هذا النوع يحتوي على بنية من شكل Key-Value، أريد من خلال دالة أعطيها كمُدخل ListOf أن ترجع Keys فقط، وهذا ما حاولت فعله عن طريق هذا الكود:
Private Function GetReasons() As List(Of KeyValuePair(Of Integer, String)) Dim returnValue As New List(Of KeyValuePair(Of Integer, String)) Dim con As New SqlConnection(SCRGlobals.ConnectionString) Dim cmd As New SqlCommand("SELECT CODE, DESC FROM ltblDELAY", con) cmd.CommandType = CommandType.Text Try con.Open() Dim c As SqlDataReader = cmd.ExecuteReader() While c.Read returnValue.Add(New KeyValuePair(Of Integer, String)(c("CODE"), c("DESC"))) End While Catch ex As Exception Common.LogError(ex, True, False) Finally If con.State <> ConnectionState.Closed Then con.Close() End If End Try Return returnValue End Functionلكنه لا يعيد لي ما أريده بالضبط، فهل من مساعدة؟
رابط هذا التعليق
شارك على الشبكات الإجتماعية
1 جواب على هذا السؤال
Recommended Posts
انضم إلى النقاش
يمكنك أن تنشر الآن وتسجل لاحقًا. إذا كان لديك حساب، فسجل الدخول الآن لتنشر باسم حسابك.