我正在努力使用以下代码。我一直在标题中收到错误消息。执行ReportType =时代码出错... 我对此很陌生。非常感谢任何帮助。
MySQL1 = "SELECT SR.Requestid,RD.rptdesctext as ReportName from SELECTED_REPORT SR inner join REPORT_DESCRIPTION RD on SR.rptdesc = RD.rptdesc where requestid=" & aRequestInfo(nRequest, 1)
'---Work with the Record Set
rs = New ADODB.Recordset
With rs
.ActiveConnection = cn
.Open(MySQL1)
lFoundRequest = (Not (.BOF And .EOF))
If lFoundRequest Then
'---Initialize Variables
GetRequestInfo = True
'For nX = 1 To 6
' aRequestReports(nRequest, nX, 6) = "ALL" '---Service Date Range
' aRequestReports(nRequest, nX, 9) = "ALL" '---Payment Date Range
'Next nX
'aRequestInfo(nRequest, 31) = rs.Fields("rptdesctext").Value
'---Report Type
ReportType = rs.Fields("rptdesctext").Value
'---Close Recordset
.Close()
'---Clear Recordset Variable
rs = Nothing
End If
End With
答案 0 :(得分:1)
您应该使用
ReportType = rs.Fields("ReportName").Value
在您的查询中,您要将列RD.rptdesctext as ReportName
重命名为ReportName
,因此您应该使用ReportName
作为字段名称。
或者您也可以省略将列RD.rptdesctext as ReportName
重命名为RD.rptdesctext
,然后ReportType = rs.Fields("rptdesctext").Value
不会产生任何错误。