好家伙了这里的几个问题。至于你，我想从我的数据库得到的数据，在小牛usinng两个参数。问题是IM这个未指定参数'年'的'公共职能SelectByCourseID（作为字符串，如字符串今年courseId）作为CourseYearCollection错误错误1Argument的。我不知道这意味着什么，请大家帮忙
我的类
Public Class CourseYear
Private _year As String
Private _courseId As String
Private _courseCode As String
Private _courseDuration As String
Public Property Year() As String
Get
Return _year
End Get
Set(ByVal value As String)
_year = value
End Set
End Property
Public Property CourseID() As String
Get
Return _courseId
End Get
Set(ByVal value As String)
_courseId = value
End Set
End Property
Public Property CourseDuration() As String
Get
Return _courseDuration
End Get
Set(ByVal value As String)
_courseDuration = value
End Set
End Property
Public Property CourseCode() As String
Get
Return _courseCode
End Get
Set(ByVal value As String)
_courseCode = value
End Set
End PropertyPublic Function SelectByCourseID(ByVal courseId As String, ByVal year As String) As CourseYearCollection
Try
Dim sqlConn As New SqlConnection(_connString)
sqlConn.Open()
Dim sqlCmd As New SqlCommand("select * from [CourseYear] where CourseID = '" & courseId & "' And Year = '" & year & "'", sqlConn)
Dim dr As SqlDataReader = sqlCmd.ExecuteReader()
Dim courseyearTp As CourseYear = Nothing
Dim courseyearColl As CourseYearCollection = Nothing
While dr.Read()
courseyearTp = New CourseYear
courseyearTp.CourseID = dr("CourseID").ToString
courseyearTp.CourseDuration = dr("CourseDuration").ToString
courseyearTp.CourseCode = dr("CourseCode").ToString
courseyearColl.Add(courseyearTp)
End While
dr.Close()
Return courseyearColl
Finally
If _sqlConn IsNot Nothing Then
If _sqlConn.State = Data.ConnectionState.Open Then
_sqlConn.Close()
End If
End If
End Try
Return Nothing
End Function