Why i am getting this error? Property 'Item' is 'ReadOnly' ive created this in my class, Please help me to configured this error. i found in the Internet about this Property 'Item' is 'ReadOnly' but i think were not the same question Property 'Item' is 'ReadOnly'
class
Public Function GetRecordDataSet(ByVal sStoreProcName As String, ByVal sParameterList As String) As ADODB.Recordset
Dim cmd As New ADODB.Command
Dim arrParameter, arrParamName
Dim sParamName As String
Dim sDataValue
Dim lCtr As Long
On Error GoTo errhandler
GetRecordDataSet = New ADODB.Recordset
cmd.ActiveConnection = con
cmd.CommandTimeout = 1800
cmd.CommandType = ADODB.CommandTypeEnum.adCmdStoredProc
cmd.CommandText = sStoreProcName
If Not Trim(sParameterList) = "" Then
arrParameter = Split(sParameterList, "|", , vbTextCompare)
If UBound(arrParameter) >= 0 And IsArray(arrParameter) Then
For lCtr = 0 To UBound(arrParameter)
arrParamName = Split(arrParameter(lCtr), "$", , vbTextCompare)
sParamName = arrParamName(0)
sDataValue = arrParamName(1)
cmd.Parameters.Item(sParamName) = sDataValue
Next lCtr
End If
End If
GetRecordDataSet = cmd.Execute
cmd = Nothing
Exit Function
errhandler:
MessageBox.Show("Records Not Found!!!")
End Function
form
Public Function Listdata()
Dim username = txtbox_username.Text //value Client1
Dim objDataInquiry As New clsDataQuery
Dim objFunction As New clsFunction
Dim rs As ADODB.Recordset
Dim lCtr As Long
'Dim xItem As ListItem
Dim sParametList As String
On Error GoTo errhndler
lCtr = 0
sParameterList = "@strUserName$" & username
rs = objDataInquiry.GetRecordDataSet("GetRecordDataSet", sParameterList)
Exit Function
errhndler:
MessageBox.Show("Error found. Please try again. If error persists please contact the administrator.")
End Function
question from:
https://stackoverflow.com/questions/66057864/adodb-bc30526-property-item-is-readonly 与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…